asp利用jmail发信的函数

作者:网络 来源:佚名 更新时间:2008-02-05 18:19:26 点击:
国内最大的酷站演示中心!
'************************************************************************************

'作者:loster(oicq:181306) [如果转载请勿删除此信息,谢谢!]

'函数名:send_email()

'作用:利用jmail4.3组件发送e-mail

'参数:

'email:类型:字符串。作用:接收e-mail的地址。

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

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

's_type:类型:布尔值。作用:是否为html格式信件。true为html格式。false为文本格式。

'c_m_chk:类型:布尔值。作用:smtp服务器是否需要身份验证

'如果发送成功,函数将返回true否则返回false

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

function send_email(email,e_subject,information,s_type,c_m_chk)

const c_email=““'发送者的邮箱

const c_hostname=““'发送者的名字

const c_smtp=“smtp.xxx.com“'smtp服务器地址

const c_m_user=““'如果smtp服务器需要验证身份,请输入用户名

const c_m_pass=““'请输入密码


dim sender
err.clear
on error resume next
if email="" or information="" or e_subject="" then
send_email=false
exit function
end if
set sender=server.createobject("jmail.message")
sender.logging=true
sender.from=c_email
sender.fromname=c_hostname
sender.addrecipient email
sender.subject=e_subject
if s_type=false then
sender.appendtext information
else
sender.appendhtml information
end if
sender.maildomain=c_smtp
if c_m_chk=true then
sender.mailserverusername=c_m_user
sender.mailserverpassword=c_m_pass
end if
sender.priority = 1
sender.send(c_smtp)

if err.number<>0 then
send_email=false
else
send_email=true
end if
err.clear
end function