【Vegas原创】asp/html页面作为邮件正文发送

最新推荐文章于 2021-06-05 11:34:57 发布

weixin_34221073

最新推荐文章于 2021-06-05 11:34:57 发布

阅读量126

点赞数

asp/html页面作为邮件正文发送的最快方法，就是把整个网页代码写成一个字符串,在发送邮件的时候把此字符串作为邮件正文发出去。

<%
  TimeNow = FormatDateTime ( Time , 4 )
   If (TimeNow < " 08:00 " ) Then
  yesterday = date - 2
   else
  yesterday = date - 1
   End if
'...

         dim strBody
        strBody = ""
strBody = strBody + " <meta http-equiv='Content-Type' content='text/html; charset=GB2312'> "
strBody = strBody + "         <style type='text/css'> </style> "

strBody = strBody + "             <table> "
' ...
    strBody = strBody + "         </tr> "
    strBody = strBody + "     </table> "

        Response.Write strBody

'

' 发送mail
        path = Server.MapPath( " Temp\Summary.xls " )
         set mail = CreateObject ( " jmail.Message " )
        mail.Charset = " gb2312 "
        mail.From = " ** "           ' from
        mail.FromName = " KPI Daily Reporting~~ "
        mail.AddRecipient " ** "    ' to
     '     mail.MailDomain="mx.hichina.com"
     '     mail.MailServerUserName = "test@hichina.com"
     '     mail.MailServerPassWord = "*****"
        mail.subject = Subject
          mail.HTMLBody = strBody
        mail.AddAttachment(path)
'         On Error Resume Next
        mail.Send( "" )   ' smtp server
        mail.close()
         set mail = nothing
        response.write   date & " 发送成功 "

%>
</ body >
</ html >