此脚本使用 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 = “ron.nixon@fastmail.us”
objEmail.To = “users.name@abc.com”
objEmail.Subject = “All done!”
objEmail.Textbody = “…here you go…”
objEmail.Addattachment “C:\directory name of file\filename”
objEmail.Send
Exchange中文站
Exchange中文站 的最新文章 (查看所有)
- Office 365 将自动归档的里的文件移动到收件箱 - 2018年4月23日
- Office 365 如何修改密码 - 2016年11月20日
- Office 365 共享邮箱功能和使用介绍 - 2016年11月2日
还没有评论