asp Jmail发送邮件

来源：互联网发布：ajax获取数据库数据编辑：程序博客网时间：2024/05/18 00:22

% '发送邮件到会员邮箱里

function sendJmail(strFromEmail,strFromName,strToEmail,strSubject,intBodyType,strBody)
dim msg
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" '邮件文字的代码为简体中文
JMail.Logging = true
'JMail.silent=true
JMail.From = strFromEmail
JMail.FromName = strFromName
JMail.Subject = strSubject
JMail.MailServerUserName = "xxx" '发送邮箱用户名
JMail.MailServerPassword = "11111111" '发送邮箱密码
JMail.Priority = 3 ''邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.AddRecipient(strToEmail)
if intBodyType=1 then
JMail.ContentType="text/html"
end if
JMail.Body = strBody
msg=JMail.Send("smtp.163.com") '发送邮件服务器
JMail.Close()
Set JMail = Nothing
sendJmail=msg
end function
tomailstr="" '将要发送到的邮箱
frommailstr="xxx@163.com"' 发送的邮箱
strfromname="" '发送人名字
strtitle="" '邮件主题
strcontent="" '邮件内容

response.write sendJmail(frommailstr,strfromname,tomailstr,strtitle,0,strcontent)
'邮件发送结速%>

一种简单的邮件发送代码

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

<%
set jmail = server.CreateObject ("jmail.message") ''创建对象
jmail.Silent = true ''一般不用改
jmail.Charset = "gb2312" ''信件的语言编码
jmail.ContentType = "text/html" ''信件的格式html或纯文本
jmail.From = "abc@126.com" ''发信人邮箱
jmail.FromName = "王大" ''发信人姓名
jmail.Subject = "注册信息！" ''信件主题
jmail.AddRecipient "mm@163.com" ''收信人地址
jmail.Body = "恭喜您在赛友在线注册成功！" ''信件正文
jmail.MailServerUserName = "abc" ''服务器登陆用户名(您的邮件地址)
jmail.MailServerPassWord = "123" ''服务器登陆密码(您的邮件密码)
jmail.Send("smtp.126.com") ''服务器地址
jmail.Close
set jmail = nothing
%>

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++=