WinWebMail邮件系统 - 短消息支持组件的使用

短消息支持组件的使用

当启用WinWebMail中的短消息数据存储功能之后（方法是：在服务器上点击右下角图标，然后在弹出菜单的“高级 | Web”页选中“启用短消息数据存储”项），将可以使用WinWebMail系统提供的标准组件接口，在其他的各种开发工具中（如：VB、VC、ASP、Delphi、C++ Builder）对邮件系统的邮件简要信息进行提取和管理操作。
组件位置：[系统安装目录]\Windows\system32\emsms.dll

<%@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>