ASP中实现定时发送邮件的代码共享

现在的这个项目需要用asp做定时邮件发送，好多人都说asp没有这样的功能。

其实我在以前的一篇文章已经做过详细的解释了，不过那个是定时任务，基本思路是一样的。

参考：ASP中实现执行定时任务的方法

这里我们使用JMail组件的方式来做，邮件的内容为单个网页，可以自由定制。

下面我们看看定时邮件发送的代码：

代码如下:

Function getHTTPPage(url)

   dim objXML

   set objXML=createobject("MSXML2.SERVERXMLHTTP.3.0") '调用XMLHTTP组件，测试空间是否支持XMLHTTP

   objXML.open "GET",url,false 'false表示以同步的方式获取网页代码，了解什么是同步？什么是异步？

   objXML.send() '发送

   getHTTPPage=bBytesToBstr(objXML.responseBody)'返回信息，同时用函数定义编码

   set objXML=nothing'关闭

End Function

Function bBytesToBstr(body)

   dim objstream

   set objstream = CreateObject("adodb.stream") '//调用adodb.stream组件

   objstream.Type = 1

   objstream.Mode =3

   objstream.Open

   objstream.Write body

   objstream.Position = 0

   objstream.Type = 2

   objstream.Charset = "GB2312"

'转换原来默认的UTF-8编码转换成GB2312编码，否则直接用XMLHTTP调用有中文字符的网页得到的将是乱码

   bBytesToBstr = objstream.ReadText

   objstream.Close

   set objstream = nothing

end Function

Sub SendAction(subject,mailaddress,Tomail,sender,content,fromEmail,Fromer,UserName,PassWord)

   Set oJmail=CreateObject("Jmail.Message")

   oJmail.Logging=false

   oJmail.Silent=True

   oJMail.Priority = 3

   oJmail.FromName=Fromer

   oJmail.From= FromEmail

   oJmail.CharSet="gb2312"

   oJmail.MailServerUserName = UserName

   oJmail.MailServerPassWord = PassWord

   oJmail.ContentTransferEncoding = "base64"

   oJMail.HTMLBody = content '邮件内容

   oJMail.Body =content'"我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持"

   oJmail.AddRecipient Tomail '收件人地址

   oJmail.Subject = subject '标题

   oJmail.Send(mailaddress)

End Sub

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!