查看文章 |
ASP+Jmail 4.4发送邮件代码
2007-12-20 14:37
<% Set jmail = Server.CreateObject("JMAIL.Message") ’建立发送邮件的对象 jmail.silent = true ’屏蔽例外错误，返回FALSE跟TRUE两值j jmail.logging = true ’启用邮件日志 jmail.Charset = "GB2312" ’邮件的文字编码为国标 jmail.ContentType = "text/html" ’邮件的格式为HTML格式 jmail.AddRecipient "friend@blueidc.cn" ’邮件收件人的地址 jmail.From = "user@blueidc.cn" ’发件人的E-MAIL地址 jmail.MailServerUserName = "user" ’登录邮件服务器所需的用户名 jmail.MailServerPassword = "password" ’登录邮件服务器所需的密码 jmail.Subject = "Aspid Jmail Test" ’邮件的标题 jmail.Body = "Aspid Jmail sender ok !" ’邮件的内容 jmail.Priority = 1 ’邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值 jmail.Send("smtp.blueidc.cn") ’执行邮件发送（通过邮件服务器地址） jmail.Close() ’关闭对象 response.write "Send email ok!" %> 下面是详细的ASP代码，适合ASP调用: ’参数说明 ’Subject : 邮件标题 ’MailAddress : 发件服务器的地址,如smtp.163.com ’Email : 收件人邮件地址 ’Sender : 发件人姓名 ’Content : 邮件内容 ’Fromer : 发件人的邮件地址 Sub SendAction(subject,mailaddress,email,sender,content,fromer) Dim JMail,contentId Set JMail = Server.CreateObject("JMail.Message") JMail.Charset = "gb2312" ’ 邮件字符集，默认为"US-ASCII" ’ JMail.ISOEncodeHeaders = False ’ 是否进行ISO编码，默认为True ’ 发送者信息（可用变量方式赋值） JMail.From = fromer ’ 发送者地址 JMail.FromName = sender ’ 发送者姓名 JMail.Subject = subject ’ 邮件主题 ’ 身份验证 JMail.MailServerUserName = "mail@blueidc.cn" ’身份验证的用户名 JMail.MailServerPassword = "******" ’ 身份验证的密码 ’ 设置优先级，范围从1到5，越大的优先级越高，3为普通 JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") ’ 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个 FriendEmail=email ’接收人邮件地址 JMail.AddRecipient(FriendEmail) ’ 加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_机器名有访问的权限】 ’ 【参数设置是(True)否(False)为Inline方式】 ’contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True) ’ 邮件主体（HTML(注意信件内链接附件的方式)） MailBody = MailBody & "<html><head><META content=zh-cn http-equiv=Content-Language><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><style type=text/css>BODY {FONT-SIZE: 9pt}</style></head><body>" MailBody = MailBody & content MailBody = MailBody & "</body></html>" JMail.HTMLBody = MailBody ’ 邮件主体（文本部分） JMail.Body = content ’ 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】 ’ 发送邮件的服务器 JMail.Send(mailaddress) ’ 关闭并清除对象 JMail.Close() Set JMail = Nothing End Sub ’调用此Sub的例子 Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer strSubject = "这是一封用JMAIL发送的测试邮件" strContent = "JMail组件发送测试成功！" strEmail = "user@163.com" strFromer = "mail@blueidc.cn" strMailAddress = "smtp.mail.sogou.com" strSender = "邮件发送者" Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer) |
最近读者：
