Code
Function SendEmail(frommail,fromname,tomail,subject,content,mailserver,smtpuser,smtppwd)
'On Error Resume Next
set JMail=server.CreateObject("JMail.Message") '创建Jmail对象
JMail.Logging=true '是否使用日志
JMail.charset="gb2312" '邮件编码,缺省为"US-ASCII",最好加上,免得出现乱码
JMail.ContentType="text/html" '邮件的格式,text/plain为纯文本型
JMail.From=frommail '发送邮件地址,最好写邮件服务器验证的邮箱账号
JMail.FromName=fromname '发送者,可以随便填写
JMail.AddRecipient tomail '要发送到的邮件地址
JMail.Subject=subject '邮件的标题
JMail.Priority = 3 '邮件的优先级
JMail.Body=content '邮件的内容
JMail.MailServerUserName = mailuser '邮件服务器验证账号
JMail.MailServerPassword = mailpwd '邮件服务器验证密码
JMail.Send(mailserver) '通过邮件服务器smtp发送邮件
set JMail=nothing '关闭对象
if err.number<>0 then '错误处理
SendEmail=0
else
SendEmail=1
end if
End Function
Function SendEmail(frommail,fromname,tomail,subject,content,mailserver,smtpuser,smtppwd)
'On Error Resume Next
set JMail=server.CreateObject("JMail.Message") '创建Jmail对象
JMail.Logging=true '是否使用日志
JMail.charset="gb2312" '邮件编码,缺省为"US-ASCII",最好加上,免得出现乱码
JMail.ContentType="text/html" '邮件的格式,text/plain为纯文本型
JMail.From=frommail '发送邮件地址,最好写邮件服务器验证的邮箱账号
JMail.FromName=fromname '发送者,可以随便填写
JMail.AddRecipient tomail '要发送到的邮件地址
JMail.Subject=subject '邮件的标题
JMail.Priority = 3 '邮件的优先级
JMail.Body=content '邮件的内容
JMail.MailServerUserName = mailuser '邮件服务器验证账号
JMail.MailServerPassword = mailpwd '邮件服务器验证密码
JMail.Send(mailserver) '通过邮件服务器smtp发送邮件
set JMail=nothing '关闭对象
if err.number<>0 then '错误处理
SendEmail=0
else
SendEmail=1
end if
End Function