您的位置：首页 > 编程语言

新改的jmail发送邮件代码，有注释

2008-08-01 12:11 459 查看

<%

'获得发送人的姓名

fsname = request.Form("fsname")

'获得发送人的邮件地址

fsemail = request.Form("fsemail")

'将发送人的邮件地址通过@分离开,放到fs_email数组里面

fs_email = split(fsemail,"@")

'获得发送人的邮件密码

fspassword = trim(request.Form("fspassword"))

'获得收件人的邮件地址

sjemail = request.Form("sjemail")

'获得收件人的姓名

sjname = request.Form("sjname")

'获得邮件的主题

emailsubject = request.Form("emailsubject")

'获得邮件的内容

emailcontent = request.Form("emailcontent")

'设置JMail组件

Set JMail = Server.CreateObject("JMail.Message")

'是否将信头编码成iso-8859-1字符集. 缺省是True

'邮件的紧急程序,1为最快,5为最慢,3为默认值

Jmail.Priority = 1

JMail.ISOEncodeHeaders = True

'如果JMail.silent设置为true,ErrorCode包含的是错误代码

JMail.Silent = True

'设置标题和内容编码,如果标题有中文,必须设定编码为gb2312

JMail.Charset = "gb2312"

'如果发内嵌附件一定要注释掉这行

'JMail.ContentType = "text/html"

'发送人的姓名

JMail.FromName = fsname

'发送人的邮件

JMail.From =fsemail

'发送人的邮件用户名，163的邮箱用户名只是@前面部分，所以使用split分割，一些邮箱必须包含@以及后缀，特别是企业邮箱，所以使用完整的。

if fs_email(1)="163.com" then

JMail.MailServerUserName = fs_email(0)

stmpmail="smtp.163.com"

'response.Write stmpmail

'response.End()

else

stmpmail="mail."&fs_email(1)

JMail.MailServerUserName = fsemail

end if

'发送人的邮件密码

JMail.MailServerPassword =fspassword

'加入新的收件人

JMail.AddRecipient sjemail, sjname

'密件收件人的地址

'JMail.AddRecipientBCC Email

'邮件抄送者的地址

'JMail.AddRecipientCC Email

'邮件主题

JMail.Subject = emailsubject

'邮件内容

JMail.Body = emailcontent

'增加一个普通附件

'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格式的邮件内容

JMail.HTMLBody = "<html><body><br>"&emailcontent

JMail.appendHTML "<br><br></body></html>"

'如果对方信箱不支持HTML格式邮件,我们仍需要给他一个友善的提示

JMail.Body = "Too bad you can't read HTML-mail."

JMail.appendText " "

'执行邮件发送<通过邮件服务器地址>smtp.域名.com 不一定是邮件服务器

if JMail.Send(stmpmail) then

response.Write("邮件发送成功")

else

response.Write("邮件发送失败")

end if

JMail.Close()

Set JMail = Nothing

%>

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航