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=0else    sendmail=1end ifjmail.Closeend Function

评论