CDONTS.NewMail 发邮件的简单示例,供大家参考,其中 From 参数对应的邮件服务器应该是不要求身份验证的才行。
dim objNewMail
set objNewMail = server.CreateObject("CDONTS.NewMail")
objNewMail.From = "发送人的邮件地址"
objNewMail.To = "接收人的邮件地址"
objNewMail.Subject = "邮件主题"
objNewMail.Body = "邮件内容"
objNewMail.Send()
set objNewMail = Nothing