那位大哥大姐给小弟解释一下这段代码啊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 acce
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/01 05:33:44
那位大哥大姐给小弟解释一下这段代码啊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 acce
那位大哥大姐给小弟解释一下这段代码啊
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 _
objEmail.Configuration.Fields.Item _
"smarthost"
objEmail.Configuration.Fields.Item _
objEmail.Configuration.Fields.Update
objEmail.Send
那位大哥大姐给小弟解释一下这段代码啊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 acce
设置一个邮件然后发送.
邮件从admin1@fabrikam.com发给admin2@fabrikam.com,主题是Server down,内容是Server1 is no longer accessible over the network.
smtp服务器名是smarthost,端口25