使用 CDO 发送测试电子邮件消息

此脚本使用 CDO 发送测试电子邮件消息。

Visual Basic
Set objEmail = CreateObject(“CDO.Message”)
set objConf = CreateObject(“CDO.Configuration”)

Set objFlds = objConf.Fields
With objFlds
.Item(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “XXX-ex100″
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
‘.Item(“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”) = cdoBasic
.Update
End With
Set objEmail.Configuration = objConf

objEmail.From = “[email protected]”
objEmail.To = “[email protected]”
objEmail.Subject = “All done!”
objEmail.Textbody = “…here you go…”
objEmail.Addattachment “C:\directory name of file\filename”
objEmail.Send

• 作者
• 最近文章

Exchange中文站

Exchange中文站是一个专注讨论 Microsoft Exchange Server / Exchange Online / Office 365 的技术型网站。

Exchange中文站 的最新文章 (查看所有)

• Exchange 2019 的新特性 - 2019年4月8日
• Office 365 和 Office 2019 的区别是什么 - 2019年4月8日
• Exchange各版本2019年第一个更新补丁已经发布 - 2019年2月15日