使用VBScript发送邮件的时候如何完成发件人的验证？谢谢。

[chinalumin]

使用VBScript发送邮件的时候如何完成发件人的验证？谢谢。

Set objEmail = CreateObject("CDO.Message")

objEmail.From = "[e-mail]"
objEmail.To = "[e-mail]"
objEmail.Subject = "Finding"
objEmail.Textbody = "Server1 is no longer accessible over the network."

'下列两行用来作为发送验证
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[e-mail]"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "abc2007"

'发送服务器仅需将online.sh.cn替换即可
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smtp.163.com"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update

objEmail.Send