<%
Function Send_Email(smtpHost,smtpUser,smtpPass,mailTo,FromName,subject,content)
Set jmail = Server.CreateObject("JMAIL.Message")
jmail.silent = true
jmail.logging = true
jmail.Charset = "gb2312"
jmail.ContentType = "text/html"
jmail.AddRecipient mailTo
jmail.From = smtpUser
jmail.FromName = FromName
jmail.Subject = subject
jmail.Body = content
jmail.Priority = 1
jmail.MailServerUserName = smtpUser
jmail.MailServerPassword = smtpPass
jmail.Send(smtpHost)
jmail.Close()
response.write("邮件发送成功")
End Function
%>
'使用方法:
<%Send_EMail("smtp服务器","发件人邮箱地址","你的密码","收件人邮箱","发件人姓名","标题","邮件正文内容")%>
'例子:
<%Send_EMail("smtp.163.com","00000@163.com","00000","11111@126.com","小明","标题","邮件正文内容")%>
Function Send_Email(smtpHost,smtpUser,smtpPass,mailTo,FromName,subject,content)
Set jmail = Server.CreateObject("JMAIL.Message")
jmail.silent = true
jmail.logging = true
jmail.Charset = "gb2312"
jmail.ContentType = "text/html"
jmail.AddRecipient mailTo
jmail.From = smtpUser
jmail.FromName = FromName
jmail.Subject = subject
jmail.Body = content
jmail.Priority = 1
jmail.MailServerUserName = smtpUser
jmail.MailServerPassword = smtpPass
jmail.Send(smtpHost)
jmail.Close()
response.write("邮件发送成功")
End Function
%>
'使用方法:
<%Send_EMail("smtp服务器","发件人邮箱地址","你的密码","收件人邮箱","发件人姓名","标题","邮件正文内容")%>
'例子:
<%Send_EMail("smtp.163.com","00000@163.com","00000","11111@126.com","小明","标题","邮件正文内容")%>