张振峰

以前每次用到Jmail发送邮件的代码，都要到网上搜索半天，还要测试。今天整理了一个，还是写到博客吧，省得下次找着麻烦。代码如下：



<%
Dim JMail
Dim SendFrom,SendName,SendPass,SendSmtp,SendTo,Subject
'发件人邮箱，发件人显示名称，发件人密码，发件SMTP服务器，收件人邮箱,邮件主题
'***********请根据自己的情况修改以下6个变量
SendFrom = "do-not-reply@zhangzhenfeng.com"
SendName = "阵风"
SendPass = "123456"
SendSmtp = "smtp.zhangzhenfeng.com"
SendTo = "free8@free8.name"
Subject = "测试Jmail"
'*******************
Set JMail = Server.CreateObject("JMail.Message")
JMail.silent = true
JMail.Charset = "GB2312"
JMail.ContentType = "text/html"
JMail.From = SendFrom
JMail.FromName = SendName
JMail.Subject = Subject
JMail.AddRecipient  SendTo
JMail.MailServerUserName = SendFrom
JMail.MailServerPassword = SendPass
JMail.Body ="恭喜你！Jmail测试成功"

If JMail.Send(SendSmtp) Then
  Response.Write("恭喜你！Jmail测试成功！请登录邮箱查看（可能在垃圾箱里）")
Else
  Response.Write("Jmail测试失败！")
End If
JMail.Close()
%>