加入收藏 | 设为首页 | 会员中心 | 我要投稿 聊城站长网 (https://www.0635zz.com/)- 智能语音交互、行业智能、AI应用、云计算、5G!
当前位置: 首页 > 站长学院 > Asp教程 > 正文

分享使用Jmail4.3发送邮件的方法

发布时间:2023-10-03 15:09:28 所属栏目:Asp教程 来源:
导读:使用JMail组件发送邮件非常方便,本文就给出了在Jmail4.3中发送组件的常用代码,包括邮件的基本信息,身份验证,附件等等,源代码可以直接使用啊,当然用户名和密码必须是自己的啊。

该段代码涉及到JMail v4.3的
使用JMail组件发送邮件非常方便,本文就给出了在Jmail4.3中发送组件的常用代码,包括邮件的基本信息,身份验证,附件等等,源代码可以直接使用啊,当然用户名和密码必须是自己的啊。
 
该段代码涉及到JMail v4.3的大部分常用方法:包括邮件基本信息、身份验证、附件等。无需很多的修改就可以使用,也可以改成函数或过程。
 
<%
 
Dim JMail, contentId
 
Set JMail = Server.CreateObject("JMail.Message")
 
JMail.Charset = "gb2312" ' 邮件字符集,默认为"US-ASCII"
 
' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码,默认为True
 
' 发送者信息(可用变量方式赋值)
 
JMail.From = "cuoxin@163.com" ' 发送者地址
 
JMail.FromName = "cuoxin" ' 发送者姓名
 
JMail.Subject = "错新网CUOXIN(http://www.cuoxin.com)欢迎您的到来(请将编码设为简体中文(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://www.cuoxin.com"
 
' 发送【调用格式:objJMail.Send([username:password@]SMTPServerAddress[:Port])】
 
JMail.Send("user:password@smtp.163.com")
 
' 关闭并清除对象
 
JMail.Close()
 
Set JMail = Nothing
 
%>
 
怎么样,很简单吧,自己下载组件后,安装后就可以编写Jmail的邮件发送程序了。
 
 

(编辑:聊城站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章