ASP发送邮件代杩
- 提问者网友：情歌越听越心酸
- 2021-05-16 19:50
- 五星知识达人网友：躲不过心动
- 2021-05-16 20:35
<%
Mess = Mess & "<p font-size:16px"">- http://www.dicoo.com.cn</p>"
On Error Resume Next
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312"
E_SendManMail =smtpuser
E_SendManName ="爱上包"
E_Subject ="您的朋友推荐一款新商品给你！-爱上包"
E_ServerUser =smtpusermail
E_ServerPass =smtpuserpass
E_Server =smtp
FriendEmail = ""&Messfriendemail&""
JMail.From = E_SendManMail
JMail.FromName = E_SendManName
JMail.Subject = E_Subject
JMail.MailServerUserName = E_ServerUser
JMail.MailServerPassword = E_ServerPass
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.AddRecipient(FriendEmail)
JMail.HTMLBody = Mess
JMail.Send(E_Server)
JMail.Close()
Set JMail = Nothing
Response.Write "<script>alert(""发送成功！感谢您对本商城的支持！"");location.href=""sendemail.asp"";</script>"
Response.End
end if
%>