asp程序怎样使用jmail

asp程序怎样使用jmail,第1张

<%

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

%>

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


欢迎分享,转载请注明来源:夏雨云

原文地址:https://www.xiayuyun.com/zonghe/56320.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-02-26
下一篇2023-02-26

发表评论

登录后才能评论

评论列表(0条)

    保存