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

最新推荐文章于 2021-06-16 01:19:02 发布

原创最新推荐文章于 2021-06-16 01:19:02 发布 · 900 阅读

0 ·

CC 4.0 BY-SA版权

web 同时被 2 个专栏收录

101 篇文章

订阅专栏

ASP

5 篇文章

订阅专栏

本文介绍如何利用VBScript与CDOSYS组件发送带有传递状态通知(DSN)和已读回执请求的电子邮件。文章提供了具体的脚本示例，展示了如何设置SMTP服务器并配置DSN选项。

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

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

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

'Send by using the port on an SMTP server.
Dim iMsg 
Dim iConf 
Dim Flds 
Dim strHTML

set imsg = createobject("cdo.message")
set iconf = createobject("cdo.configuration")

Set Flds = iConf.Fields
With 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.
    .Update
End With

strHTML = "<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
    .Send
End With