ASP中使用jmail发送邮件的函数

今天给大家发布一个可能经常会用到的jmail发送邮件的ASP函数，代码如下：

'smtp为邮件服务器名 'user为smtp邮件服务器上的邮件地址 'pwd为smtp邮件服务器上的邮件的密码 'sendto为要发送的邮件地址 'form发件人名 'subject为主题 'body为邮件内容 function sendmail(smtp,sendto,from,user,pwd,subject,body) Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象  jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j  jmail.logging = true '启用邮件日志  '加上如下语句，否则还有可能出现乱码的可能性：  jmail.Charset = "GB2312" '邮件的文字编码为国标  jmail.ContentTransferEncoding = "base64"    jmail.Encoding = "base64"    jmail.ISOEncodeHeaders = false 'jmail.ContentType = "text/html" '邮件的格式为HTML格式 -- 有此句则发送附件时为乱码 jmail.AddRecipient sendto '邮件收件人的地址  jmail.From = from '发件人的E-MAIL地址  jmail.MailServerUserName = user '登录邮件服务器所需的用户名 jmail.MailServerPassword = pwd '登录邮件服务器所需的密码  jmail.Subject = subject '邮件的标题  jmail.Body = body '邮件的内容  'jmail.AddAttachment Server.MapPath("login.gif")'附件--不能有此句:jmail.ContentType = "text/html" 'Jmail.AddAttachment Server.MapPath("b.rar")      '否则附件会变成乱码 jmail.Priority = 3 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值  if jmail.send(smtp)=false then'执行邮件发送（通过邮件服务器地址）      sendmail=0 else     sendmail=1 end if jmail.Close end Function