新改的jmail发送邮件代码,有解释

<%
'获得发送人的姓名
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 
%> 
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值