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

2年前 (2022) 程序员胖胖胖虎阿

239 0 0

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

' 【Vegas原创】asp/html页面作为邮件正文发送
'发送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 &"发送成功"