木子屋
 

标题: ASP用JMail发送邮件

作者: dnawo

日期: 2006-12-19 08:21 PM

分类: Web编程

内容: 一、Jmail 4.4下载：点击下载
二、Jmail 4.4发送邮件核心代码：
复制内容到剪贴板 程序代码<%
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")'建立发送邮件的对象
JMail.Charset="gb2312"'邮件的文字编码为国标
JMail.logging = true '启用邮件日志
JMail.silent=True'屏蔽例外错误，返回False或True
JMail.ContentType = "text/html"'邮件的格式为HTML格式
JMail.MailServerUserName = ""'登录邮件服务器所需的用户名
JMail.MailServerPassWord = ""'登录邮件服务器所需的密码
JMail.FromName = ""'发件人的姓名
JMail.From = ""'发件人的E-MAIL地址
JMail.MailDomain = ""'邮件服务器
JMail.AddRecipient "",""'邮件收件人的地址，姓名
JMail.AddRecipientCC "",""'邮件抄送人的地址，姓名
JMail.Subject = ""'邮件的标题
JMail.HtmlBody = ""'邮件的内容，支持HTML
JMail.Priority = 3 '邮件等级，1为加急，3为普通，5为低级
JMail.Send("")'执行邮件发送(通过邮件服务器地址),有返回值
JMail.Close'关闭对象
Set JMail=nothing'释放对象
%>
三、应用举例：
复制内容到剪贴板 程序代码<%
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312"
JMail.silent=True
JMail.ContentType = "text/html"
JMail.MailServerUserName = "txwl@txwl.com.cn"
JMail.MailServerPassWord = "txwl"
JMail.FromName = "yourname"
JMail.From = "yourname@163.com"
JMail.MailDomain = "txwl.com.cn"
JMail.AddRecipient "dnawo@sohu.com","dnawo"
JMail.Subject = "技术支持"
JMail.HtmlBody = "<font color=red>这是内容</font>"
JMail.Priority = 3
Response.write JMail.Send("mail.txwl.com.cn")
JMail.Close
Set JMail=nothing
%>

+ 查看当前日志评论 (2)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.094 ms

标题: ASP用JMail发送邮件

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.094 ms

标题: ASP用JMail发送邮件

评论内容:

== 宁波网站优化 2010-05-04 10:50 AM ----

不错，学习jmail发送邮件核心代码。nb seo . cc 宁波网站优化

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.094 ms