常用Email组件发送函数

王朝other·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

<%

sub Jmail(email)

Dim JMail,SendMail

Set JMail=Server.CreateObject("JMail.SMTPMail")

JMail.Logging=True

JMail.Charset="gb2312"

JMail.ContentType = "text/html"

JMail.ServerAddress=SMTPServer

JMail.Sender=SystemEmail

JMail.Subject=topic

JMail.Body=mailbody

JMail.AddRecipient email

JMail.Priority=3

JMail.Execute

Set JMail=nothing

if err then

SendMail=err.description

err.clear

else

SendMail="OK"

end if

end sub

sub Cdonts(email)

dimobjCDOMail

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

objCDOMail.From =SystemEmail

objCDOMail.To =email

objCDOMail.Subject =topic

objCDOMail.Body =mailbody

objCDOMail.Send

Set objCDOMail = Nothing

if err then

SendMail=err.description

err.clear

else

SendMail="OK"

end if

end sub

sub aspemail(email)

Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")

recipient=email

sender=SystemEmail

subject=topic

message=mailbody

mailserver=SMTPServer

result=mailer.SendMail(mailserver, recipient, sender, subject, message)

if err then

SendMail=err.description

err.clear

else

SendMail="OK"

end if

end sub

%>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航