下载了jmail 4.3,怎么用

下载了jmail 4.3,怎么用,第1张

jmail组件是在服务器端支持的组件,如果你自己的电脑有IIS 或者其他的服务器 你也可以自己安装 jmail发送邮件的原码有很多.

<%

Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象

jmail.silent = true 'JMAIL不会抛出例外错误,返回的值为FALSE跟TRUE

jmail.logging = true '启用使用日志

jmail.Charset = "GB2312" '邮件文字的代码为简体中文

jmail.ContentType = "text/html" '邮件的格式为HTML的

jmail.ServerAddress = "Server Address" '发送邮件的服务器

jmail.AddRecipient Email'邮件的收件人

jmail.SenderName = "SenderName"'邮件发送者的姓名

jmail.Sender = "Email Address"'邮件发送者的邮件地址

jmail.Priority = 1 '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值

jmail.Subject = "Mail Subject" '邮件的标题

jmail.Body = "Mail Body" '邮件的内容

jmail.AddRecipientBCC Email '密件收件人的地址

jmail.AddRecipientCC Email '邮件抄送者的地址

jmail.Execute() '执行邮件发送

jmail.Close'关闭邮件对象

%>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<html>

<head>

<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312">

<title>表单提交至邮箱(非Mailto,不弹出Outlook)</title>

</head>

<body>

<h4>表单提交至邮箱(非Mailto,不弹出Outlook)</h4>

如发送失败请先检查程序常量设置,服务器是否安装了Jmail4.3以上版本。<br>

Jmail组件下载:http://www.skycn.com/soft/5555.html<br>

如果返回“The message was undeliverable. All servers failed to receive the message”说明服务器或服务器所在的网络有防火墙,不允许IIS进程发送邮件。

<form name="form1" method="post">

邮件标题:

<input type="text" name="tit" id="tit">

<br>

邮件正文(支持HTML):<br>

<textarea name="con" id="con" cols="45" rows="5"><b>Jmail发信测试,这是一封<font color="#FF0000">HTML邮件</font></b></textarea>

<input type="submit" name="button" id="button" value="提交">

</form>

<%

if request.Form<>"" then

Dim SendStat

SendStat = Jmail("hibaidu8@126.com",Trim(Request.Form("tit")),Trim(Request.Form("con")),"US-ASCII","text/plain")

Response.Write SendStat

end if

%>

<%

'--------------------------------------------------------------------

Function Jmail(mailTo,mailTopic,mailBody,mailCharset,mailContentType)

'****************************************************

'***************以下信息根据需要设置常量开始*****************

'****************************************************

Dim ConstFromNameCn,ConstFromNameEn,ConstFrom,ConstMailDomain,ConstMailServerUserName,ConstMailServerPassword

ConstFromNameCn = "Test"'发信人中文姓名(发中文邮件的时候使用),例如‘张三’

ConstFromNameEn = "Test"'发信人英文姓名(发英文邮件的时候使用),例如‘zhangsan’

ConstFrom = ""'发信人邮件地址,例如‘zhangsan@163.com’

ConstMailDomain = ""'smtp服务器地址,例如smtp.163.com

ConstMailServerUserName = ""'smtp服务器的信箱登陆名,例如‘zhangsan’。注意要与发信人邮件地址一致!

ConstMailServerPassword = ""'smtp服务器的信箱登陆密码

'***************根据需要设置常量结束*****************

'-----------------------------以下内容无需改动------------------------------

On Error Resume Next

Dim myJmail

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

myJmail.Logging = True'记录日志

myJmail.ISOEncodeHeaders = False'邮件头不使用ISO-8859-1编码

myJmail.ContentTransferEncoding = "base64"'邮件编码设为base64

myJmail.AddHeader "Priority","3"'添加邮件头,不要改动!

myJmail.AddHeader "MSMail-Priority","Normal"'添加邮件头,不要改动!

myJmail.AddHeader "Mailer","Microsoft Outlook Express 6.00.2800.1437"'添加邮件头,不要改动!

myJmail.AddHeader "MimeOLE","Produced By Microsoft MimeOLE V6.00.2800.1441"'添加邮件头,不要改动!

myJmail.Charset = mailCharset

myJmail.ContentType = mailContentType

If UCase(mailCharset) = "GB2312" Then

myJmail.FromName = ConstFromNameCn

Else

myJmail.FromName = ConstFromNameEn

End If

myJmail.From = ConstFrom

myJmail.Subject = mailTopic

myJmail.Body = ConstMailServerPassword

myJmail.AddRecipient mailTo

myJmail.MailDomain = ConstMailDomain

myJmail.MailServerUserName = ConstMailServerUserName

myJmail.MailServerPassword = ConstMailServerPassword

myJmail.Send ConstMailDomain

myJmail.Close

Set myJmail=nothing

If Err Then

Jmail=Err.Description

Err.Clear

Else

Jmail="OK"

End If

On Error Goto 0

End Function

'--------------------------------------------------------------------

%>

</body>

</html>

前一段时间有发过一个简单的JMAIL邮件发邮件的代码,今天就把这个代码做一个具体的注解,并增加了另外两个格式的代码,并举几个简单的例子:

首先是jmail.smtpmail的核心代码:

<%

Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象

jmail.silent = true 'JMAIL不会抛出例外错误,返回的值为FALSE跟TRUE

jmail.logging = true '启用使用日志

jmail.Charset = "GB2312" '邮件文字的代码为简体中文

jmail.ContentType = "text/html" '邮件的格式为HTML的

jmail.ServerAddress = "Server Address" '发送邮件的服务器

jmail.AddRecipient Email'邮件的收件人

jmail.SenderName = "SenderName"'邮件发送者的姓名

jmail.Sender = "Email Address"'邮件发送者的邮件地址

jmail.Priority = 1 '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值

jmail.Subject = "Mail Subject" '邮件的标题

jmail.Body = "Mail Body" '邮件的内容

jmail.AddRecipientBCC Email '密件收件人的地址

jmail.AddRecipientCC Email '邮件抄送者的地址

jmail.Execute() '执行邮件发送

jmail.Close'关闭邮件对象

%>

w3 Jmail4.3组件重新设计了其内部结构——使用Message对象代替原来的单一对象Jmail.smtpmail发送邮件,有些方法需要身份验证的(如163、yahoo等),可以用下面的方法解决:

<%

Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象

jmail.silent = true'屏蔽例外错误,返回FALSE跟TRUE两值j

mail.logging = true '启用邮件日志

jmail.Charset = "GB2312" '邮件的文字编码为国标

jmail.ContentType = "text/html"'邮件的格式为HTML格式

jmail.AddRecipient Email '邮件收件人的地址

jmail.From = "Email From for Sender" '发件人的E-MAIL地址

jmail.MailServerUserName = "UserName of Email" '登录邮件服务器所需的用户名

jmail.MailServerPassword = "Password of Email" '登录邮件服务器所需的密码

jmail.Subject = "Mail Subject"'邮件的标题

jmail.Body = "Mail Body" '邮件的内容

jmail.Prority = 1 '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值

jmail.Send("Server Address") '执行邮件发送(通过邮件服务器地址)

jmail.Close() '关闭对象

%>

-----------------------------

总的来说,JMail.Message是JMAIL.SMTPMail的升级版,通常使用JMail.Message


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

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

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

发表评论

登录后才能评论

评论列表(0条)

    保存