当启用了WinWebMail中的短消息数据存储功能之后，您将可以使用WinWebMail系统提供的标准组件接口，在其他的各种开发工具中（如：VB、VC、ASP、Delphi、C++ Builder）对邮件系统的邮件简要信息进行提取和管理操作。
版本要求：3.5.0.1版或更高版本
下载 Example.zip （2K）
| <%@LANGUAGE = VBSCRIPT%> <% Dim esm 创建EMSMS对象 Set esm = Server.CreateObject("EMSMS.sms") 导入指定SMS文件夹中的所有数据 esm.Load ("C:\WinWebMail\sms\") Response.Write "当前数据总数: " %26amp; esm.Count %26amp; " " if esm.Count > 0 then 取最后一条数据的信息 esm.Get esm.Count - 1 Response.Write "取最后一条数据的信息: " Response.Write "发件人名: " %26amp; esm.FromName %26amp; " " Response.Write "发件人地址: " %26amp; esm.FromMail %26amp; " " Response.Write "收件人帐号: " %26amp; esm.To %26amp; " " Response.Write "邮件重要度: " %26amp; esm.Priority %26amp; " " Response.Write "收件时间: " %26amp; esm.ReceiveTime %26amp; " " Response.Write "发件时间: " %26amp; esm.SendTime %26amp; " " Response.Write "邮件大小: " %26amp; esm.Size %26amp; " " Response.Write "邮件主题: " %26amp; esm.Subject %26amp; " " 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 %> |
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
