该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
'请修改以下邮件服务器配置信息
'发件人邮件地址
EmailSender="test@163ns.com"
'发件人名称
SYS_WEBNAME="我的名字"
'邮件发送服务器地址
EMAILServer="mail.163ns.com"
'邮件发送服务器用户名
EMAILServerUser="test@163ns.com"
'邮件发送服务器用户密码
EMAILServerPass="1xxxxx"
Call Jmail("820@163ns.com","中国互联JMAIL邮件发送测试","中国互联163ns.com邮件发送测试成功!")
'************************************************************************************
'函数名: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
'Copyright 163ns.com
'QQ761810 Msn: 820@163ns.com
'如有疑问可以联系我,呵呵
%>