- 当启用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 & “<br><br>”
if esm.Count > 0 then
‘ 取最后一条数据的信息
esm.Get esm.Count – 1
Response.Write “取最后一条数据的信息:<br>”
Response.Write “发件人名: ” & esm.FromName & “<br>”
Response.Write “发件人地址: ” & esm.FromMail & “<br>”
Response.Write “收件人帐号: ” & esm.To & “<br>”
Response.Write “邮件重要度: ” & esm.Priority & “<br>”
Response.Write “收件时间: ” & esm.ReceiveTime & “<br>”
Response.Write “发件时间: ” & esm.SendTime & “<br>”
Response.Write “邮件大小: ” & esm.Size & “<br>”
Response.Write “邮件主题: ” & esm.Subject & “<br>”
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>
