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

最新推荐文章于 2022-12-31 22:19:24 发布

xmlife

最新推荐文章于 2022-12-31 22:19:24 发布

阅读量811

点赞数

分类专栏： ASP web

本文链接：https://blog.csdn.net/xmlife/article/details/18003595

版权

web 同时被 2 个专栏收录

101 篇文章 0 订阅

订阅专栏

ASP

5 篇文章 0 订阅

订阅专栏

这篇文章包含 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

xmlife

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
使用 CDO 发送传递状态通知 For VBScript

这篇文章包含 Microsoft Visual Basic 脚本版本（VBScript）示例，您可以使用传递状态通知 (DSN) 和已读回执发送请求的消息。注意：您只能发送一条消息以请求传递状态通知和已读回执时使用cdoSendUsingPort方法传递。当您发送电子邮件通过本地简单邮件传输协议 (SMTP) 服务器的拾取目录时，您就不能这样做。要发送传递状态通知和读回执
复制链接

扫一扫

专栏目录