發送帶附件的HTML格式郵件例程
如何通過 ASP 來發送帶附件、格式為 HTML 的郵件?下面提供了一個例程.
<%@ LANGUAGE=VBScript%> <% Response.Buffer = True Response.Expires = 0
'創建對象實例 Set myMail = Server.CreateObject("CDONTS.NewMail")
'以下是將要發送的內容 HTML = "<html>" HTML = HTML & "<head>" HTML = HTML & "<title>Sending CDONTS Email Using HTML</title>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""FFFFFF"">" HTML = HTML & "<p><font size=7>" HTML = HTML & "This is a test mail in html<br>" HTML = HTML & "Mail content here ...</font></p>" HTML = HTML & "</body>" HTML = HTML & "</html>"
'發件人 myMail.From = "somebody@somewhere.com"
'收件人 myMail.To = "nobody@somewhere.com"
'密件抄送 myMail.Bcc = "nobody@somewhere.com"
'抄送 myMail.Cc = "nobody@somewhere.com"
'郵件的重要性 ' 0 重要性低 ' 1 重要性一般(默認) ' 2 重要性高 myMail.Importance = 2
'郵件主題 myMail.Subject = "Test mail in HTML"
'附件(注意 e:\test.txt 指的是服務器上的位置,如果使用相對路徑,必須用 Server.MapPath 映射為真實路徑) myMail.AttachFile "e:\test.txt"
'NewMail 對象的文字格式 '0 表示該 Body 可包含超文本置標語言 (HTML) '1 表示該 Body 只用于純文本(默認值) myMail.BodyFormat = 0
'NewMail 對象設置編碼 '0 表示將采用 MIME 格式 '1 表示將采用連續的純文本(默認值) myMail.MailFormat = 0
'給郵件對象的文本賦值 myMail.Body = HTML
'將郵件發出 myMail.Send
'銷毀對象實例,釋放內存 Set myMail = Nothing %>
|