最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp发送邮件代码
时间:2008-08-01 编辑:简简单单 来源:一聚教程网
function SendMail(MailServerAddress,AddRecipient,Subject,Body,Sender,MailFrom)
on error resume next
Dim JMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
if err then
SendMail= "
err.clear
exit function
end if
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress=MailServerAddress
JMail.AddRecipient=AddRecipient
JMail.Subject=Subject
JMail.Body=MailBody
JMail.Sender=Sender
JMail.From = MailFrom
JMail.Priority=1
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end function
-
上一个: asp取得字符长度函数
-
下一个: asp检测服务安装了什么组件
相关文章
- ASP邮件发送插件Jmail全部方法属性的介绍 05-22
- asp 利用cdonts组件发送邮件 02-22
- asp 发送邮件代码,支持外国主机 01-05
- asp各种发送邮件功能代码 07-07
- 如何在ASP+中发送邮件 01-12
- ASP用JMail、CDO发送邮件 01-12