WinWebMail Server 短消息支持组件的使用

Xuan • 2024-11-26 • 技术分享
  • 当启用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>

版权声明：
作者：Xuan
链接：https://www.tacores.com/archives/522
来源：优林博客
文章版权归作者所有，未经允许请勿转载。

THE END
分享
二维码
海报
WinWebMail Server 短消息支持组件的使用
当启用WinWebMail中的短消息数据存储功能之后（方法是：在服务器上点击右下角图标，然后在弹出菜单的“高级 | Web”页选中“启用短消息数据存储”项），将可以使……
<<上一篇
下一篇>>