那位大哥大姐给小弟解释一下这段代码啊

来源:百度知道 编辑:UC知道 时间:2024/06/10 01:34:24
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "admin1@fabrikam.com"
objEmail.To = "admin2@fabrikam.com"
objEmail.Subject = "Server down"
objEmail.Textbody = "Server1 is no longer accessible over the network."
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smarthost"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/c

设置一个邮件然后发送。
邮件从admin1@fabrikam.com发给admin2@fabrikam.com,主题是Server down,内容是Server1 is no longer accessible over the network.
smtp服务器名是smarthost,端口25

太难了