asp程序怎样使用jmail

<%

function SendMail(SMTPServer,SMTPServerUserName,SMTPServerPassword,MailDomain,MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)

dim JMail, msg

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

JMail.Charset="gb2312" '编码

JMail.silent=true '设置为true,JMail不会抛出例外错误.

JMail.ContentType = "text/plain" '邮件正文格式

'JMail.ServerAddress = SMTPServer '用来发送邮件的SMTP服务器(无效)

'指定邮件服务器的地址。可以指定多个服务器，用分号点开。可以指定端口号。

'如果serverAddress保持空白，JMail会尝试解决远程邮件服务器，然后直接发送到服务器上去。

'如：JMail.ServerAddress = &tquomail.mydom.netmail2.mydom.net:2500"

JMail.MailServerUserName = SMTPServerUserName '登录用户名

JMail.MailServerPassWord = SMTPServerPassword '登录密码

JMail.MailDomain = MailDomain '域名（如果用“name@domain.com”这样的用户名登录时，请指明domain.com

JMail.AddRecipient MailtoAddress,MailtoName '收信人

JMail.Subject = Subject '主题

JMail.Body = MailBody '邮件正文（纯文本格式）

JMail.FromName = FromName '发信人姓名

JMail.From = MailFrom '发信人Email

JMail.Priority = Priority '邮件等级12345

msg = JMail.Send(SMTPServer)

JMail.Close

set JMail = nothing

SendMail = msg

end function

%>

1.首先下载jmail控件，然后安装（其实不安装也行，只要你能找到jmail.dll文件，然后注册该dll文件。这里不支持上传附件，否则我就把我下载的传上来了）。

附上手工注册它的批处理：

echo off

copy jmail.dll C:/windows/system32

regsvr32 jmail.dll

echo 执行完毕!

pause

2.使用tlbimp c:/Program Files/Dimac/w3JMail4/jmail.dll /out:myJmail.dll /namespace:myJmail生成myJmail.dll后，copy到web的根目录的bin目录。

在ASP.Net页面中，用using myjmail方法引用，例程如下：

protected void Page_Load(object sender, EventArgs e)

{

myjmail.Message jmail = new myjmail.Message()

DateTime t=DateTime.Now

string subject = "jmail test from web"

string body= "<center>jmail test from web<br>test</center>" //tbContent.Text.Replace("/n","<br>")

string fromemail="xxxx@e165.com "

string toEmail= "xxxx@e165.com "

//silent属性：如果设置为true,jmail不会抛出例外错误. jmail. send( () 会根据操作结果返回true或false

jmail.Silent = true

//jmail创建的日志，前提loging属性设置为true

//jmail.Logging=true

//字符集，缺省为"us-ascii"

jmail.Charset="gb2312"

//信件的contentype. 缺省是"text/plain"） : 字符串如果你以html格式发送邮件, 改为"text/html"即可。

jmail.ContentType="text/html"

//添加收件人

jmail.AddRecipient(toEmail,"","")

jmail.From = fromemail

//发件人邮件用户名

jmail.MailServerUserName="xxxx"

//发件人邮件密码

jmail.MailServerPassWord="xxxx"

//设置邮件标题

jmail.Subject=subject

// 邮件添加附件,(多附件的话，可以再加一条jmail.addattachment( "c://test.jpg",true,null))就可以搞定了。［注］：加了附件，讲把上面的 jmail.contenttype="text/html"删掉。否则会在邮件里出现乱码。

//jmail.addattachment( "c://test.jpg",true,null)

//邮件内容

jmail.Body=body

//jmail发送的方法

if(jmail.Send("smtp.e165.com",false))

lbResult.Text = "已成功发送邮件。"

else

lbResult.Text = "发送邮件失败！！！"

jmail.Close()

}

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

%>

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

---