谁有asp编写的jmail组件实例，一定要测试通过的！_服务器知识

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

option explicit '强制变量定义开关，建议保留此项

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

'---------------------------------- 工单通知接口配置 ---------------------------------

'---------------------------------- 请按照提示进行设置---------------------------------

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

Sub V_JMail_Config()

sSMTPServer="smtp.163.com" 'SMTP服务器，可以直接输入SMTP的IP地址或者网址

sMailUser="cqaspx@163.com" '代发送邮件的帐号，如果是不含@的帐号，就不能写@

sSenderPassword="ziyuxinz" '邮件服务器的登陆密码

sSysTitle="奉节联通工单短信通知"'本系统的名称

sVersion="0.1" '版本号，建议只能是数值格式

lShowSMTPSvr=1 '是否允许发送者查看SMTP服务信息。允许为1，禁止为0

End Sub

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

' 以下为程序核心

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

dim JmailMsg 'JMail.Message COM对象

dim sMailUser '邮件服务器的登陆帐号，如果是不含@的帐号，就不能写@

dim sSenderPassword'邮件服务器的登陆密码

dim sSMTPServer 'SMTP服务器

dim sRecMail '收件人Email

dim sRecMailArr '收件人Email数组

dim sFromName '在对方接收人中显示的发信人名称

dim sFromMail '在对方接收人中显示的发信人地址

dim sMailSubject'邮件主题

dim sMailBody '邮件主体

dim lAnonymous '是否匿名

dim lHTML '是否HTML发送

dim sSysTitle '系统标题

dim sVersion '版本

dim sErrorMsg '错误消息文本

dim RecMail_i '收件人数组索引

dim lShowSMTPSvr'是否显示SMTP服务器(代发邮件信息)

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

Call VJMail_Config()

sErrorMsg="" %>

<html>

<head>

<style>

A:link {

COLOR: #000000TEXT-DECORATION: none

}

A:visited {

COLOR: #000000TEXT-DECORATION: none

}

A:active {

COLOR: #FF0000TEXT-DECORATION: none

}

A:hover {

COLOR: #FF0000TEXT-DECORATION: underline

}

body{

font-family: Arialstylefont-size: 12pxcolor: #111111letter-spacing:0px

SCROLLBAR-HIGHLIGHT-COLOR: buttonfaceSCROLLBAR-SHADOW-COLOR: buttonfaceSCROLLBAR-3DLIGHT-COLOR: buttonhighlightSCROLLBAR-TRACK-COLOR: #eeeeeeSCROLLBAR-DARKSHADOW-COLOR: buttonshadow

}

td {

font-family: "宋体"font-size: 12pxcolor: #111111letter-spacing:0pxword-break:break-all

}

.bigfont1 {

FONT-SIZE: 20pxfont-weight:bold

}

</style>

</head>

<body>

<% if lcase(trim(request("action")))="smtp" then %>

<tr>

</tr>

<tr>

<td bgcolor="#FFFFFF" align="right" width="88">SMTP服务器：</td>

</tr>

<tr>

<td bgcolor="#FFFFFF" align="right" width="88">SMTP帐号：</td>

</tr>

<tr>

</tr>

</table><%

response.write "</body></html>"

response.end

end if

if lcase(trim(request("action")))="preview" then %>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

dim sStrTmp

sStrTmp=trim(window.opener.document.send_mail_form.sEMail.value)

sRecMail.innerHTML="<u>" &sStrTmp &"</u>"

sStrTmp=trim(window.opener.document.send_mail_form.sSender.value)

if sStrTmp="" then sStrTmp="<%=Request.ServerVariables("REMOTE_ADDR")%>"

if trim(window.opener.document.send_mail_form.sFrom.value)="" then

sStrTmp=sStrTmp &" <Anonymous@anysecond.net>"

else

sStrTmp=sStrTmp &" <" &window.opener.document.send_mail_form.sFrom.value &">"

end if

sSender.innerHTML="<u>" &sStrTmp &"</u>"

sStrTmp=trim(window.opener.document.send_mail_form.sTitle.value)

sTitle.innerHTML="<u>" &sStrTmp &"</u>"

sStrTmp=trim(window.opener.document.send_mail_form.sContent.value)

if window.opener.document.send_mail_form.lHTML.checked then

sContent.innerHTML=sStrTmp

else

sStrTmp=replace(sStrTmp,vbCrLf,"<br>")

sStrTmp=replace(sStrTmp,Chr(32)," ")

sContent.innerHTML=sStrTmp

end if

</script><%

response.write "</body></html>"

response.end

end if %>

<tr>

<tr>

</tr>

<tr>

<td width="100%" align="center">Version<%=sVersion%></td>

</tr>

</table>

</td>

</tr>

<tr>

<% if lcase(trim(request("action")))="" then %>

Sub ConfirmSend()

if ChkInputData() then

document.send_mail_form.btn_send.disabled=true

document.send_mail_form.btn_reset.disabled=true

document.send_mail_form.action="?action=sendmail"

document.send_mail_form.submit

end if

End Sub

Sub DoPreview()

if ChkInputData() then

window.open "?action=preview","SHOW_PREVIEW","menubar=no,toolbar=no,location=no,directories=no,status=no,resizable=0,scrollbars=1,width=420,height=300"

end if

End Sub

Sub ConfirmRet()

If MsgBox("是否清空当前数据？", vbYesNo + vbQuestion + vbDefaultButton2, "<%=sSysTitle%>") = vbYes Then document.send_mail_form.reset

End Sub

Sub ShowSMTPSvr()

window.open "?action=smtp","SHOW_SMTP","menubar=no,toolbar=no,location=no,directories=no,status=no,resizable=0,scrollbars=0,width=280,height=120"

End Sub

Function ChkInputData()

if trim(document.send_mail_form.sEMail.value)="" then

MsgBox "邮件发送失败：收件人地址不能为空！", vbOKOnly + vbCritical, "<%=sSysTitle%>"

document.send_mail_form.sEMail.focus

ChkInputData=False

exit function

end if

if CHKMail(trim(document.send_mail_form.sEMail.value))=False then

MsgBox "邮件发送失败：收件人地址格式错误！", vbOKOnly + vbCritical, "<%=sSysTitle%>"

document.send_mail_form.sEMail.focus

document.send_mail_form.sEMail.select

ChkInputData=False

exit function

end if

if document.send_mail_form.lAnonymous.checked=false then

if trim(document.send_mail_form.sSender.value)="" then

MsgBox "邮件发送失败：因为您选择了非匿名发送，因此发件人名称不能为空！", vbOKOnly + vbCritical, "<%=sSysTitle%>"

document.send_mail_form.sSender.focus

ChkInputData=False

exit function

end if

if trim(document.send_mail_form.sFrom.value)="" then

MsgBox "邮件发送失败：因为您选择了非匿名发送，因此发件人邮件地址不能为空！", vbOKOnly + vbCritical, "<%=sSysTitle%>"

document.send_mail_form.sFrom.focus

ChkInputData=False

exit function

end if

if CHKMail(trim(document.send_mail_form.sFrom.value))=False then

MsgBox "邮件发送失败：发件人邮件地址格式错误！", vbOKOnly + vbCritical, "<%=sSysTitle%>"

document.send_mail_form.sFrom.focus

document.send_mail_form.sFrom.select

ChkInputData=False

exit function

end if

if trim(document.send_mail_form.sTitle.value)="" then

MsgBox "邮件发送失败：邮件主题不能为空！", vbOKOnly + vbCritical, "<%=sSysTitle%>"

document.send_mail_form.sTitle.focus

ChkInputData=False

exit function

end if

if Len(trim(document.send_mail_form.sTitle.value))>50 then

MsgBox "邮件发送失败：邮件主题长度不能大于50字节！", vbOKOnly + vbCritical, "<%=sSysTitle%>"

document.send_mail_form.sTitle.focus

document.send_mail_form.sTitle.select

ChkInputData=False

exit function

end if

if trim(document.send_mail_form.sContent.value)="" then

MsgBox "邮件发送失败：邮件主体不能为空！", vbOKOnly + vbCritical, "<%=sSysTitle%>"

document.send_mail_form.sContent.focus

ChkInputData=False

exit function

end if

if Len(trim(document.send_mail_form.sContent.value))>16384 then

MsgBox "邮件发送失败：邮件主体长度不能大于16K！", vbOKOnly + vbCritical, "<%=sSysTitle%>"

document.send_mail_form.sContent.focus

document.send_mail_form.sContent.select

ChkInputData=False

exit function

end if

ChkInputData=True

End Function

Function CHKMail(byval sMail)

Dim sMailStr

dim lFoundError

lFoundError=0

sMailStr=sMail

if instr(sMailStr,"@")=0 or instr(sMailStr,".")=0 then lFoundError=1

if lFoundError=1 then

CHKMail=False

else

CHKMail=True

end if

End Function

Sub SendToDuclika()

if trim(document.send_mail_form.sEMail.value)<>"" or trim(document.send_mail_form.sContent.value)<>"" then

If MsgBox("系统检测到您好象正在编写邮件，是否清空当前数据？", vbYesNo + vbQuestion + vbDefaultButton1, "<%=sSysTitle%>") = vbNo Then

Exit Sub

End If

end if

document.send_mail_form.sEMail.value="Duclika@hotmail.com"

document.send_mail_form.sTitle.value="V-Jmail<%=sVersion%>发送程序反馈"

document.send_mail_form.sContent.value="请在这里输入您的反馈信息"

document.send_mail_form.sContent.focus

document.send_mail_form.sContent.select

End Sub

</script>

<tr>

</select>

</td>

</tr>

<tr>

<td width="19%" bgcolor="#FFFFFF" align="right">发信人名称：</td>

<td width="81%" bgcolor="#FFFFFF"><input type="text" name="sSender" value="XXXX" size="20">(使用匿名发送时此项没效)</td>

</tr>

<tr>

<td width="19%" bgcolor="#FFFFFF" align="right">发信人地址：</td>

<td width="81%" bgcolor="#FFFFFF"><input type="text" name="sFrom" value="XXX@163.com" size="20">(使用匿名发送时此项没效)</td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

<input type="checkbox" name="lAnonymous" value="1">匿名发送(使用系统默认名称)

<input type="checkbox" name="lHTML" value="1">使用HTML正文

[<a href="#" onClick="vbscript:call DoPreview()">预览</a>]

</td>

</tr>

<tr>

</td>

</tr>

</table>

</form><%

else

response.write "<script language=vbscript>" &vbCrLf &"Sub SendToDuclika()" &vbCrLf &"End Sub" &vbCrLf &"</script>"

end if

Sub VJMail_Config()

Call V_JMail_Config()

if sMailUser="" or sSenderPassword="" or sSMTPServer="" or (Not IsNumeric(lShowSMTPSvr)) then

response.write "系统初始化错误，请联系管理员"

response.end

end if

if sSysTitle="" then sSysTitle="V-Jmail 在线邮件代发系统"

if sVersion="" then sVersion="1.0"

End Sub

if lcase(trim(request("action")))="sendmail" then

if len(request("lAnonymous"))=0 then

lAnonymous=0

else

lAnonymous=clng(request("lAnonymous"))

end if

if len(request("lHTML"))=0 then

lHTML=0

else

lHTML=clng(request("lHTML"))

end if

sRecMail=lcase(trim(request("sEMail")))

if instr(sRecMail,"@")=0 or instr(sRecMail,".")=0 then sErrorMsg=sErrorMsg &"·收件人邮件格式错误<br>"

sFromName=trim(request("sSender"))

if sFromName="" then

if lAnonymous=1 then

sFromName=Request.ServerVariables("REMOTE_ADDR")

else

sErrorMsg=sErrorMsg &"·发件人名称为空<br>"

end if

sFromMail=trim(request("sFrom"))

if sFromMail="" then

if lAnonymous=1 then

sFromMail="Anonymous@anysecond.net"

else

sErrorMsg=sErrorMsg &"·发件人邮件为空<br>"

end if

else

if instr(sFromMail,"@")=0 or instr(sFromMail,".")=0 then sErrorMsg=sErrorMsg &"·发件人邮件格式错误<br>"

end if

sMailSubject=trim(request("sTitle"))

if sMailSubject="" then sErrorMsg=sErrorMsg &"·邮件主题为空<br>"

sMailBody=request("sContent")

if trim(sMailBody)="" then

sErrorMsg=sErrorMsg &"·邮件主体为空<br>"

else

if lHTML=0 then

sMailBody=sMailBody

else

sMailBody=Trim(sMailBody)

end if

if sErrorMsg<>"" then

response.write "邮件发送失败，可能有如下的原因：<br><br>" &sErrorMsg &"<br><a href=javascript:history.back()>·返回</a>"

response.end

end if

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

JmailMsg.silent = true

JmailMsg.Logging = true

JmailMsg.Charset = "gb2312"

if lHTML=1 then

JmailMsg.ContentType="text/html"

sMailBody=sMailBody &"<br><br><p>无需回复</p>"

else

JmailMsg.ContentType="text/plain"

sMailBody=sMailBody &vbCrLf &vbCrLf &"无需回复。"

end if

JmailMsg.MailServerUserName = sMailUser

JmailMsg.MailServerPassword = sSenderPassword

JmailMsg.From = sFromMail

JmailMsg.FromName = sFromName

if instr(sRecMail,",")>0 then

sRecMailArr=split(sRecMail,",")

for RecMail_i=0 to UBound(sRecMailArr)

JmailMsg.AddRecipient sRecMailArr(RecMail_i)

else

JmailMsg.AddRecipient sRecMail

end if

JmailMsg.Subject = sMailSubject

JmailMsg.Body = sMailBody &vbCrLf

JmailMsg.Send sSMTPServer

if JmailMsg.ErrorCode>0 then

response.write "邮件发送失败：" &JmailMsg.ErrorMessage &"<br><br>可能错误来源：" &JmailMsg.ErrorSource &"<br><br><a href=javascript:history.back()>返回</a>"

else

response.write "== 邮件已成功发送到以下地址 ==<br><br>"

if instr(sRecMail,",")>0 then

for RecMail_i=0 to UBound(sRecMailArr)

response.write sRecMailArr(RecMail_i) &"<br>"

else

response.write sRecMail &"<br>"

end if

response.write "<br><a href=?>返回</a>"

end if

JmailMsg.close

set JmailMsg = nothing

end if %>

</td>

</tr>

</table>

</body>

</html>

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/143610.html

谁有asp编写的jmail组件实例，一定要测试通过的！

发表评论

评论列表（0条）