那位大哥大姐给小弟解释一下这段代码啊Set objEmail = CreateObject("CDO.Message") objEmail.From = "[email protected]" objEmail.To = "[email protected]" objEmail.Subject = "Server down" objEmail.Textbody = "Server1 is no longer acce
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/19 23:20:14
那位大哥大姐给小弟解释一下这段代码啊Set objEmail = CreateObject("CDO.Message") objEmail.From = "[email protected]" objEmail.To = "[email protected]" objEmail.Subject = "Server down" objEmail.Textbody = "Server1 is no longer acce
那位大哥大姐给小弟解释一下这段代码啊
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "[email protected]"
objEmail.To = "[email protected]"
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 = "[email protected]" objEmail.To = "[email protected]" objEmail.Subject = "Server down" objEmail.Textbody = "Server1 is no longer acce
设置一个邮件然后发送.
邮件从[email protected]发给[email protected],主题是Server down,内容是Server1 is no longer accessible over the network.
smtp服务器名是smarthost,端口25