asp 如何实现外部邮件发送和接收、跪求完整的详细代码、谢谢!!!

2025-12-17 10:59:00
推荐回答(1个)
回答1:

sub mail()
dim mailbody,Jmail
mailbody=""&s1&""
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset ="gb2312"
Jmail.Silent =true
Jmail.Priority = 3
Jmail.MailServerUserName = mailname
Jmail.MailServerPassword = mailpass
Jmail.From = mailform
Jmail.FromName =""&title&""
Jmail.Subject =""&mailbiaoti&""
Jmail.AddRecipient ""&email&""
Jmail.Body = mailbody
Jmail.Send(mailsmtp)
Set Jmail=nothing
end sub

支持JMAIL才能用,用户名密码自己改吧,要群发自己做列表吧