切换到宽版
发帖 回复
返回列表
  • 6893阅读
  • 0回复

[求助]使用脚本调用CDO发送测试邮件 [复制链接]

 上一主题 下一主题
script
技术人员
 
只看楼主 倒序阅读 0楼  发表于: 2011-03-09
— 本帖被 YOYO 从 Exchange 脚本中心 移动到本区(2015-06-25) —
  • 脚本环境：Visual Basic
  • 适合版本：Exchange 2003
  • 适用平台：
  • 脚本作用：此脚本可以调用CDO发送一封测试的邮件，从测试邮件的结果中看出环境搭配的结果。
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
回复
举报
分享到
发帖 回复
返回列表
快速回复
限60 字节
 
上一个 下一个