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