mailuser=邮箱用户名
mailpass=密码
ser=服务器
Set msg = Server.Createobject("JMail.Message")
msg.silent = true '改成false可以看出错信息
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = mailuser '发信邮箱用户名
msg.MailServerPassword = mailpass '发信邮箱密码
msg.From = mailuser '发信人邮箱
msg.FromName = "发信人姓名"
msg.AddRecipient maddr '收信人邮箱
msg.Subject = "邮件标题"
msg.HTMLBody = "邮件内容" '支持HTML
msg.ReturnReceipt=true
msg.Send (ser) '邮箱服务器
set msg = nothing
mailpass=密码
ser=服务器
Set msg = Server.Createobject("JMail.Message")
msg.silent = true '改成false可以看出错信息
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = mailuser '发信邮箱用户名
msg.MailServerPassword = mailpass '发信邮箱密码
msg.From = mailuser '发信人邮箱
msg.FromName = "发信人姓名"
msg.AddRecipient maddr '收信人邮箱
msg.Subject = "邮件标题"
msg.HTMLBody = "邮件内容" '支持HTML
msg.ReturnReceipt=true
msg.Send (ser) '邮箱服务器
set msg = nothing