常用Email组件发送函数
来源:互联网 发布:java程序设计实验报告 编辑:程序博客网 时间:2024/04/29 13:41
<%
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)
dim objCDOMail
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
%>
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)
dim objCDOMail
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
%>
- 常用Email组件发送函数
- 常用Email组件发送函数
- 常用Email组件发送函数
- 常用Email组件发送函数
- 常用email校验函数
- ASP.NET结合COM组件发送Email
- ASP.NET结合COM组件发送Email
- ASP.NET结合COM组件发送Email
- 使用Apache Commons-email组件发送邮件
- 使用Apache email组件发送邮件实例
- ASP.NET结合COM组件发送Email
- ASP.NET结合COM组件发送Email
- ASP.NET结合COM组件发送Email
- ASP.NET结合COM组件发送Email
- ASP.NET结合COM组件发送Email
- 使用Apache email组件发送邮件实例
- 使用Apache Commons-email组件发送邮件
- 利用Apache commons-email组件发送邮件
- 十二生肖鸡年运势
- 怎样拥有自己的航线
- 关于跳槽的切身体会(转)
- Project_Description 给大家解释一下
- 如何获得 frame 的 src 的值~~
- 常用Email组件发送函数
- Java Card虚拟机(JCVM)
- foxmail格式研究
- 多多少少看创业
- SQLServer 2005安装及界面截图,新增功能
- 一个研究生毕业以后的人生规划(转自天涯虚拟社区)
- 饶了水木吧!!!!(讲给“上面”听,冲个十大)
- 脚本语言正在威胁Java吗?
- How To Display Hierarchical Data by Using Nested Repeater Controls and Visual C# .NET