教你使用ASPEMAIL
作者： 來源： 發(fā)布時間：2011-6-13 11:27:16 點擊：
這篇文章跟大家主要介紹到的是關于如何使用ASPEMAIL，希望對大家有所幫助。
使用ASPEMAIL之前您必須先在您的ASP腳本中創(chuàng)建一個對象，例如：
<%
Set Mail = Server.CreateObject("Persits.MailSender")
%>
在發(fā)送郵件之前，您首先需要確定一個SMTP服務器的地址以及相應的端口號（可以使用默認值）如：
Mail.Host = "smtp.mycompany.com"
Mail.Port = 25 ' 該項可選.端口25是默認值
下一步需要指定郵件發(fā)送者的郵件地址，如：
Mail.From = "sales@mycompany.com"
Mail.FromName = "銷售部" ' 該項可選
然后指定郵件的接收者或者是CC接收者BCC接收者以及郵件的回復地址等，可以分別使用AddAddress、 AddCC、 AddBcc 以及 AddReplyTo 方法。這些方法接收兩個變量，郵件地址和可選的姓名。
注意：在使用這些方法的時候，不要使用=符號，直接將變量用空格與方法隔開即可，如：
Mail.AddAddress "jsmith@company1.com", "張輝"
Mail.AddCC "bjohnson@company2.com" ' 名字是可選的
使用Subject 和 Body 屬性分別來指定郵件的標題和郵件的內(nèi)容。BODY可以使用文本方式或者HTML方式，如果要使用HTML方式則必須將IsHTML 屬性設置為True。請看以下例子：
純文本方式
Mail.Subject = "關于報價"
Mail.Body = "尊敬的張經(jīng)理:" & chr(13) & chr(10) & "感謝您的來信，以下是您需要的報價"
或者HTML方式
Mail.Subject = "關于報價"
Mail.Body = "<HTML><BODY BGCOLOR=#0000FF>尊敬的張經(jīng)理:....</BODY></HTML>"
Mail.IsHTML = True
如果是需要發(fā)送文件作為郵件的附件，則需要用AddAttachment方法。它支持使用完全的物理路徑的方式，如：
Mail.AddAttachment "c:\dir\receipt.doc"
同時需要注意的是該方法也不需要用“=”來做連接。
現(xiàn)在可以將郵件內(nèi)容發(fā)送出去了，發(fā)送郵件使用Send方法，如果要忽略可能發(fā)生的錯誤，可以使用On Error Resume Next語句來跳過，并且顯示出錯誤的信息，如：
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "發(fā)現(xiàn)一個錯誤，錯誤信息描述為: " & Err.Description
End If
值得注意的是，目前很多SMTP服務器需要驗證郵件發(fā)送者是否是合法的服務器用戶，即平時我們所說的“密碼驗證功能”，這時候就需要特別指定郵件發(fā)送者的用戶名和密碼，方法如下：
mail.username = "用戶名"
mail.password = "密碼"
在使用的時候?qū)⑸厦鎯删湓捈尤隡AIL.SEND語句前面，并用您接收郵件的用戶名和密碼來替換上面的“用戶名”和“密碼”這樣即可通過帶有密碼驗證的SMTP服務器來發(fā)送您的郵件了；以下是一段實際運行中的例子，您可以參考使用：
'發(fā)送郵件
strHost = "SMTP.SINA.COM.CN" `指定SMTP服務器
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "TEST@BESTDNS.NET"
Mail.FromName = "海威公司"
Mail.AddAddress MAILADDRESS@CEDB.COM ‘ 郵件地址
Mail.AddCC "service@cedb.com"
' message subject
Mail.Subject = "用戶郵件通知" ‘郵件的標題
mail.username = "USERNAME"‘服務器上有效的用戶名
mail.password = "PASSWORD"‘服務器上有效的密碼
Mail.Charset = "gb2312"‘郵件的內(nèi)碼，使用這個選項可以避免中文亂碼
Mail.IsHTML = True‘指定郵件的格式為HTML方式
Mail.Body = "<HTML><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'></head><BODY><br> 尊敬的客戶您好！<br><br>感謝您對海威的支持！ <br><br>=====================================================<br>北京海威計算機技術公司--為您提供完善的internet服務<br>http://www.Cedb.com http://www.Bestdns.net<br>電 話：68421606 68469317/18 傳真：68421359<br>地址：北京中關村南大街甲33號科貿(mào)中心407 郵編：100081<br>====================================================="
Mail.Send
<%
Set Mail = Server.CreateObject("Persits.MailSender")
%>
在發(fā)送郵件之前，您首先需要確定一個SMTP服務器的地址以及相應的端口號（可以使用默認值）如：
Mail.Host = "smtp.mycompany.com"
Mail.Port = 25 ' 該項可選.端口25是默認值
下一步需要指定郵件發(fā)送者的郵件地址，如：
Mail.From = "sales@mycompany.com"
Mail.FromName = "銷售部" ' 該項可選
然后指定郵件的接收者或者是CC接收者BCC接收者以及郵件的回復地址等，可以分別使用AddAddress、 AddCC、 AddBcc 以及 AddReplyTo 方法。這些方法接收兩個變量，郵件地址和可選的姓名。
注意：在使用這些方法的時候，不要使用=符號，直接將變量用空格與方法隔開即可，如：
Mail.AddAddress "jsmith@company1.com", "張輝"
Mail.AddCC "bjohnson@company2.com" ' 名字是可選的
使用Subject 和 Body 屬性分別來指定郵件的標題和郵件的內(nèi)容。BODY可以使用文本方式或者HTML方式，如果要使用HTML方式則必須將IsHTML 屬性設置為True。請看以下例子：
純文本方式
Mail.Subject = "關于報價"
Mail.Body = "尊敬的張經(jīng)理:" & chr(13) & chr(10) & "感謝您的來信，以下是您需要的報價"
或者HTML方式
Mail.Subject = "關于報價"
Mail.Body = "<HTML><BODY BGCOLOR=#0000FF>尊敬的張經(jīng)理:....</BODY></HTML>"
Mail.IsHTML = True
如果是需要發(fā)送文件作為郵件的附件，則需要用AddAttachment方法。它支持使用完全的物理路徑的方式，如：
Mail.AddAttachment "c:\dir\receipt.doc"
同時需要注意的是該方法也不需要用“=”來做連接。
現(xiàn)在可以將郵件內(nèi)容發(fā)送出去了，發(fā)送郵件使用Send方法，如果要忽略可能發(fā)生的錯誤，可以使用On Error Resume Next語句來跳過，并且顯示出錯誤的信息，如：
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "發(fā)現(xiàn)一個錯誤，錯誤信息描述為: " & Err.Description
End If
值得注意的是，目前很多SMTP服務器需要驗證郵件發(fā)送者是否是合法的服務器用戶，即平時我們所說的“密碼驗證功能”，這時候就需要特別指定郵件發(fā)送者的用戶名和密碼，方法如下：
mail.username = "用戶名"
mail.password = "密碼"
在使用的時候?qū)⑸厦鎯删湓捈尤隡AIL.SEND語句前面，并用您接收郵件的用戶名和密碼來替換上面的“用戶名”和“密碼”這樣即可通過帶有密碼驗證的SMTP服務器來發(fā)送您的郵件了；以下是一段實際運行中的例子，您可以參考使用：
'發(fā)送郵件
strHost = "SMTP.SINA.COM.CN" `指定SMTP服務器
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "TEST@BESTDNS.NET"
Mail.FromName = "海威公司"
Mail.AddAddress MAILADDRESS@CEDB.COM ‘ 郵件地址
Mail.AddCC "service@cedb.com"
' message subject
Mail.Subject = "用戶郵件通知" ‘郵件的標題
mail.username = "USERNAME"‘服務器上有效的用戶名
mail.password = "PASSWORD"‘服務器上有效的密碼
Mail.Charset = "gb2312"‘郵件的內(nèi)碼，使用這個選項可以避免中文亂碼
Mail.IsHTML = True‘指定郵件的格式為HTML方式
Mail.Body = "<HTML><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'></head><BODY><br> 尊敬的客戶您好！<br><br>感謝您對海威的支持！ <br><br>=====================================================<br>北京海威計算機技術公司--為您提供完善的internet服務<br>http://www.Cedb.com http://www.Bestdns.net<br>電 話：68421606 68469317/18 傳真：68421359<br>地址：北京中關村南大街甲33號科貿(mào)中心407 郵編：100081<br>====================================================="
Mail.Send
[收藏此文章]
- 1. 教你使用ASPEMAIL
