如何在 ASP中用JMAIL 发送邮件

jmail，一般的虚拟主机服务商，都是安装的，不需要你安装，（如果你是自己的服务器，是需要安装的，下载jmail后，直接安装即可）。在asp中，请用以下代码：

<%

on error resume next

sub SendMail(mailto,subject,msg)

set mail=CreateObject("jmail.Message")

Mail.silent = True

'mail_smtprz=true

mail.Charset ="gb2312"

mail.From =jmail_sender '发件人的邮箱地址

'Mail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True

mail.MailDomain=jmail_smtpserver '改成可以正常使用的邮件服务器域名

mail.MailServerUserName = jmail_smtp_user '发件人的邮箱的用户名

mail.MailServerPassWord = jmail_smtp_pass '发件人的邮箱密码

mail.AddRecipient mailto '收件人的邮箱地址

'Mail.ReplyTo = "ct.manager@gmail.com" '回复邮箱

'Mail.SenderName = "青岛畅通网络公司" '发送人姓名

mail.subject=Subject

Mail.Priority = 3

Mail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

mail.body= msg

On Error Resume Next

mail.Send(jmail_smtpserver) '改成可以正常使用的邮件服务器域名

mail.close()

set mail=nothing

end sub

Sub RecordLog(mailto,subject,msg)

Dim LogFileName,FileObject,Out

LogFileName="MAILLOG.txt"

Set FileObject=Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")

Set Out=FileObject.OpenTextFile(LogFileName,8,True)

Out.WriteLine("Time : " &Now())

Out.WriteLine("MailTo : " &mailto)

Out.WriteLine("Subject : " &subject)

Out.WriteLine("Content : ")

Out.Write(msg)

Out.WriteLine("----------")

Out.WriteLine()

Out.Close

End Sub

%>

其中的主题，内容，发件人，收件人等，请根据自己的情况修改一下即可。

有关stmp服务器，如果你是想用你自己的服务器来做一个STMP服务器，请参阅下面的文章进行设置：

http://www.360doc.com/content/09/0924/12/32573_6370328.shtml

如果你只想用你的普通邮箱（比如163的，yahoo的，163的其实很好用）来发邮件，按下面的函数中相关设置修改一下就可以了。

下面是我以前用过的一个JMAIL邮件发送函数，有关你想知道的参数都作了示例：

'===============================

'SendSGMail:Sgiy邮件发送(Jmail)

'ToEMail/收信人地址

'ToName/收信人姓名

'ToSubject/主题(HTML/文本)

'ToHtmlBody/信件内容

'===============================

Function SendSGMail(ToEMail,ToName,ToSubject,ToHtmlBody)

Dim SendMail_Mail,SendSmtp_Name,SendLogin_Name,SendSave_EmailPass

SendMail_Mail = "mymail@123.com"'回复地址示例

SendSmtp_Name = "sptp.123.com"'SMTP服务器(smtp.abc.com)

SendLogin_Name = "mymail_2@123.com"'登录用户名示例

SendSave_EmailPass = "123456"'登录密码示例

Dim JMail

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

If Err Then

SendMail= "<br><li>没有安装JMail组件</li>"

Err.Clear

Exit Function

End if

JMail.Charset="GB2312"

JMail.silent=true

JMail.ContentType = "text/html"

'JMail.ServerAddress=""'发送邮件的SMTP服务器(不需STMP验证时)

'如果服务器需要SMTP身份验证则还需指定以下参数

JMail.MailServerUserName = SendLogin_Name

JMail.MailServerPassWord = SendSave_EmailPass

'JMail.MailDomain = ""'若以name@domain.com式用户名登录时请指明domain.com

JMail.AddRecipient ToEMail,ToName

JMail.Subject = ToSubject

JMail.HMTLBody = ToHtmlBody

JMail.Body = ToHtmlBody

JMail.FromName = "我的名字"'发信人名

JMail.From = SendMail_Mail'回复地址

JMail.Priority = 1'优先级/1/3/5

JMail.Send(SendSmtp_Name)

SendMail = JMail.ErrorMessage

JMail.Close

Set JMail = Nothing

End Function

一般，在客户端定义一个表单，设置你的相关内容，当表单提交到后台时，使用jmail提供的功能发送邮件，当邮件发送成功后，可以将相关内容保存到该数据库表中，具体保存过程如下，假设变量uid,email,euname,epw,apop...为保存前台提交过来的内容，并且经过相关判断没有违反相关法则，就可以开始写入数据库了。

dim rs '定义记录集

set rs = server.createObject("ADODB.RecordSet")

rs.Open "select * from ca",conn,1,3 '这里假设conn这个数据库连接已经在前面定义过了

rs.AddNew

rs("a_uid") = uid

rs("a_email") = email

......

rs.update

if not err then

response.write "邮件发送并成功保存到数据库中."

else

response.write "邮件发送失败，请检查相关设置,错误信息："&err.description

end if

那么jMail如何使用呢，请参考一下下面的文章：使用Jmail4.3发送邮件的方法（源代码）

http://www.biye5u.com/article/netsite/ASP/2010/1503.html

---