Asp使用Jmail发送邮件函数

 

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