使用 CDO 发送传递状态通知 For VBScript

来源：互联网发布：java crontrigger 编辑：程序博客网时间：2024/05/22 08:24

这篇文章包含 Microsoft Visual Basic 脚本版本（VBScript）示例，您可以使用传递状态通知 (DSN) 和已读回执发送请求的消息。

注意：您只能发送一条消息以请求传递状态通知和已读回执时使用cdoSendUsingPort方法传递。当您发送电子邮件通过本地简单邮件传输协议 (SMTP) 服务器的拾取目录时，您就不能这样做。

要发送传递状态通知和读回执的请求消息的示例

'Send by using the port on an SMTP server.Dim iMsg Dim iConf Dim Flds Dim strHTMLset imsg = createobject("cdo.message")set iconf = createobject("cdo.configuration")Set Flds = iConf.FieldsWith Flds    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "<SMTP Server>" 'ToDo: Type a valid SMTP server name.    .UpdateEnd WithstrHTML = "<HTML>"strHTML = strHTML & "<HEAD>"strHTML = strHTML & "<BODY>"strHTML = strHTML & "<b> This is the test HTML message body</b></br>"strHTML = strHTML & "<hr>"strHTML = strHTML & "This another section of the message...</BR>"strHTML = strHTML & "</BODY>"strHTML = strHTML & "</HTML>"With iMsg    Set .Configuration = iConf    .To = "<valid e-mail address>"  'ToDo: Type a valid e-mail address.    .From = "<valid e-mail address>" 'ToDo: Type a valid e-mail address.    .Subject = "This is a test CDOSYS message (Setting DSN options)"    .HTMLBody = strHTML    .fields("urn:schemas:mailheader:disposition-notification-to") = "<valid e-mail address>" 'ToDo: Type a valid e-mail address. '已读回执    .fields("urn:schemas:mailheader:return-receipt-to") = "<valid e-mail address>"  'ToDo: Type a valid e-mail address. '已送达回执        'Set DSN options.'    Name                   Value       Description'    cdoDSNDefault             0       No DSN commands are issued.'    cdoDSNNever               1       No DSN commands are issued.'    cdoDSNFailure             2       Return a DSN if delivery fails.'    cdoDSNSuccess             4       Return a DSN if delivery succeeds.'    cdoDSNDelay               8       Return a DSN if delivery is delayed.'    cdoDSNSuccessFailOrDelay  14      Return a DSN if delivery succeeds, fails, or is delayed.    .DSNOptions = cdoDSNSuccessFailOrDelay    .DSNOptions = 14    .fields.update    .SendEnd With

0 0