正在阅读:

jmail测试脚本

<% 
'请修改以下邮件服务器配置信息 
'发件人邮件地址 
EmailSender="xxxxx@xxxxx.com" 
'发件人名称 
SYS_WEBNAME="无极数据" 
'邮件发送服务器地址 
EMAILServer="mail.xxxxx.com" 
'邮件发送服务器用户名 
EMAILServerUser="xxxxxxx@xxxx.com" 
'邮件发送服务器用户密码 
EMAILServerPass="xxxxxxxxxxxxx" 
'下面是收信邮箱&测试标题&测试内容
Call Jmail("yiade@qq.com","无极数据JMAIL邮件发送测试","无极数据邮件发送测试成功!") 


'************************************************************************************  
'函数名:Jmail()  

'作用:利用Jmail4.3组件发送E-Mail  

'参数:  

'Email:类型:字符串。作用:接收E-Mail的地址。  

'E_Subject:类型:字符串。作用:信件主题。  

'Information:类型:字符串。作用:信件内容。  

'如果发送成功,函数将返回True否则返回False  

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

Function Jmail(Email,E_Subject,Information)  
Dim C_Email,C_HostName,C_Smtp,C_M_User,C_M_Pass 
C_Email=EmailSender '发送者的邮箱  
C_HostName=SYS_WEBNAME '发送者的名字  
C_Smtp=EMAILServer 'Smtp服务器地址  
C_M_User=EMAILServerUser '如果Smtp服务器需要验证身份,请输入用户名  
C_M_Pass=EMAILServerPass '请输入密码 

Dim Sender  
Err.Clear  
On Error Resume Next  
If Email="" Or Information="" Or E_Subject="" Then  
Jmail=False  
Exit Function  
End If  
set Sender=Server.CreateObject("Jmail.message")  
Sender.Charset="gb2312" 
Sender.ISOEncodeHeaders=false 
Sender.Logging=true 
Sender.From=C_Email  
Sender.Fromname=C_HostName  
sender.addrecipient Email  
sender.subject=E_Subject  
Sender.AppendHtml Information  
sender.maildomain=C_Smtp 
sender.mailserverusername=C_M_User  
sender.mailserverpassword=C_M_Pass  
sender.Priority = 1  
sender.send(C_Smtp)  

If Err.Number<>0 Then  
   Jmail=False 
   Response.write "邮件发送失败!详细错误原因:"&Err.Description 
Else  
   Jmail=True  
   Response.write "邮件发送成功!请查收你的邮箱"& Email 
End If  
Err.Clear  
End Function 

%>



将以上代码相关信息改成自己的,并保存成.asp文件放至服务器环境中访问,即可运行测试。

目前有:0条评论

留下脚印,证明你来过。发表评论:

*

*