WinWebMail中短消息组件的使用

出处：WinWebMail 作者：WinWebMail 时间：2004-12-16 13:15:00

当启用了WinWebMail中的短消息数据存储功能之后，您将可以使用WinWebMail系统提供的标准组件接口，在其他的各种开发工具中（如：VB、VC、ASP、Delphi、C++ Builder）对邮件系统的邮件简要信息进行提取和管理操作。

版本要求：3.5.0.1版或更高版本

下载 Example.zip （2K）

<%@LANGUAGE = VBSCRIPT%>
<html>
<body>

<%
Dim esm

' 创建EMSMS对象
Set esm = Server.CreateObject("EMSMS.sms")

' 导入指定SMS文件夹中的所有数据
esm.Load ("C:\WinWebMail\sms\")

Response.Write "当前数据总数: " & esm.Count & " "

if esm.Count > 0 then

 ' 取最后一条数据的信息
 esm.Get esm.Count - 1

 Response.Write "取最后一条数据的信息: "

 Response.Write "发件人名: " & esm.FromName & " "
 Response.Write "发件人地址: " & esm.FromMail & " "
 Response.Write "收件人帐号: " & esm.To & " "
 Response.Write "邮件重要度: " & esm.Priority & " "
 Response.Write "收件时间: " & esm.ReceiveTime & " "
 Response.Write "发件时间: " & esm.SendTime & " "
 Response.Write "邮件大小: " & esm.Size & " "
 Response.Write "邮件主题: " & esm.Subject & " "

end if

Dim i
i = 0

' 删除所有发件人地址为: admin@system.mail 的数据
Do While i < esm.Count
 esm.Get i

 If esm.FromMail = "admin@system.mail" Then
 esm.RemoveIt i
 i = i - 1
 End If

 i = i + 1
Loop

Set esm = Nothing
%>

</body>
</html>

分享到：

最新专题

鸟哥的Linux私房菜之Mail服务器

Exchange Server 2010技术专题

Windows 7 技术专题

Sendmail 邮件系统配置

组建Exchange 2003邮件系统

Windows Server 2008 专题

ORF 反垃圾邮件系统

Exchange Server 2007 专题

分类导航

邮件服务器

WinWebMail中短消息组件的使用