快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

利用JMAIL.MESSAGE发送邮件

该段代码涉及到JMail v4.3的大部分常用方式。
包括邮件基本信息、身份验证、附件等。无需很多的修改就可以使用,也可以改成函数或过程。

<%
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")

JMail.Charset = "gb2312" \\\' 邮件字符集,默认为"US-ASCII"
\\\' JMail.ISOEncodeHeaders = False \\\' 是否进行ISO编码,默认为True

\\\' 发送者信息(可用变量方法赋值)
JMail.From = "jiaz@21cn.com" \\\' 发送者地址
JMail.FromName = "D.J." \\\' 发送者姓名
JMail.Subject = "您在炫网资讯的歌词快递(请将编码设为简体中文(gb2312))" \\\' 邮件主题

\\\' 身份验证
JMail.MailServerUserName = "user" \\\' 身份验证的用户名
JMail.MailServerPassword = "password" \\\' 身份验证的密码

\\\' 设置优先级,范围从1到5,越大的优先级越高,3为普通
JMail.Priority = 3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

\\\' 加入一个收件人【变量email:收件人地址】可以同一语句重复加入多个
JMail.AddRecipient(email)

\\\' 加入附件【变量filename:附件文件的绝对地址,确保用户IUSR_????有访问的权限】
\\\' 【参数设置是(True)否(False)为Inline方法】
contentId = JMail.AddAttachment (filename, True)

\\\' 邮件主体(HTML(注重信件内链接附件的方法))
JMail.HTMLBody = "<html><head><META content=zh-cn http-equiv=Content-Language><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><style type=text/css>A:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt} --></style></head><body bgcolor=""#FFFFFF"" text=""#666666"" leftmargin=""0"" topmargin=""30"" link=""#FF9900""><center>点击这里<a href=\\\' cid:" & contentId & "\\\' >[附件文件]</a>将文件保存</center></body></html>"

\\\' 邮件主体(文本部分)
JMail.Body = "我们的邮件采用了HTML格式,但是您的邮件查看软件可能不支持。您可以访问以下地址来查看:http://music.liuxuan.com"

\\\' 发送【调用格式:objJMail.Send([username:password@]SMTPServerAddress[:Port])】
JMail.Send("user:password@smtp.21cn.com")

\\\' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
%>
返回类别: 教程
上一教程: ASP中查错之实例
下一教程: 下拉框连动的小例子(数据库版)

您可以阅读与"利用JMAIL.MESSAGE发送邮件"相关的教程:
· ASP用JMAIL、CDO发送邮件
· 利用CDONTS发送邮件的ASP函数
· ASP用JMail、CDO发送邮件
· 用CDONTS发送邮件的两个函数
· 用HTML格式发送邮件
    微笑服务 优质保证 索取样品