如何用asp的jmail发邮件？

<%

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

msg.silent = true

msg.Logging = true

msg.Charset = "gb2312"

msg.MailServerUserName = "user@yourdomain.com" '输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址）

msg.MailServerPassword = "userpasswd" '输入smtp服务器验证密码 （用户Email帐号对应的密码）

msg.From = Request.Form("email")'发件人Email

msg.FromName = Request.Form("name") '发件人姓名

msg.AddRecipient "webmaster@abc.com" '收件人Email

msg.Subject = Request.Form("subject") '信件主题

msg.Body = Request.Form("body") '正文

msg.Send ("mail.yourdomain.com")'smtp服务器地址（企业邮局地址）

set msg = nothing

%>

互易中国虚拟主机

我的现在已经跑了大半年了，每天至少几百封邮件，所有邮件都支持，原来用的C#自带的发送邮件，但是对于我们自己的邮件服务的邮件规则不符合（在发送密码认证的时候跟其他邮箱不一样），所以这才使用JMail，可以通过多种密码发送验证的规则，有些人真不想说，我QQ303783996，加我，我给你源代码，

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

%>

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

---