jmail组件的应用

最新推荐文章于 2025-11-25 15:30:00 发布

原创最新推荐文章于 2025-11-25 15:30:00 发布 · 414 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#邮件服务器 #html #reference #email #嵌入式 #image

本文介绍如何利用JMail组件发送包含HTML格式正文及内嵌附件的电子邮件，详细展示了设置邮件各项属性的过程，如邮件头编码、邮件内容编码、发送者信息等，并提供了完整的VBScript代码示例。

<%
cname=request.Form("cname")
cemail=request.Form("cemail")
emailtitle=request.Form("emailtitle")
emailcontant=request.Form("emailcontant")
Set JMail = Server.CreateObject("JMail.Message")
'是否将信头编码成iso-8859-1字符集. 缺省是True
JMail.ISOEncodeHeaders = True
'如果JMail.silent设置为true,ErrorCode包含的是错误代码
JMail.Silent = True
'设置标题和内容编码，如果标题有中文，必须设定编码为gb2312
JMail.Charset = "gb2312"
'JMail.ContentType = "text/html" '如果发内嵌附件一定要注释掉这行，重要！
JMail.From = "555555@163.com" ' 发送者地址
JMail.FromName = "yongyong" ' 发送者姓名
JMail.MailServerUserName = "555555" ' 身份验证的用户名
JMail.MailServerPassword = "98654212" ' 身份验证的密码
'加入新的收件人
JMail.AddRecipient cemail, cname
'JMail.AddRecipientBCC Email '密件收件人的地址
'JMail.AddRecipientCC Email '邮件抄送者的地址
JMail.Subject = emailtitle
JMail.Body = emailcontant

'增加一个普通附件
'JMail.AddAttachment(Server.MapPath())
'增加一个嵌入式附件
' The return value of AddAttachment is used as a
' reference to the image in the HTMLBody.
'contentId = JMail.AddAttachment(Server.MapPath("images/email.gif"))

'只有HTML格式支持嵌入图片附件，我们采用HTML格式的邮件内容
' As only HTML formatted emails can contain inline images
' we use HTMLBody and appendHTML
JMail.HTMLBody = "<html><body><br>"&emailcontant
JMail.appendHTML "<br><br></body></html>"

'如果对方信箱不支持HTML格式邮件，我们仍需要给他一个友善的提示
' But as not all mailreaders are capable of showing HTML emails
' we will also add a standard text body
JMail.Body = "Too bad you can't read HTML-mail."
JMail.appendText " "

if JMail.Send( "smtp.163.com" ) then '执行邮件发送（通过邮件服务器地址）smtp.域名.com 不一定是邮件服务器
response.Write("邮件发送成功")
else
response.Write("邮件发送失败")
end if
JMail.Close()
Set JMail = Nothing