如何使用ASPEMAIL
日期：2012-04-19 浏览次数：20958 次
使用ASPEMAIL之前您必须先在您的ASP脚本中创建一个对象，例如：
<%
Set Mail = Server.CreateObject("Persits.MailSender")
%>
在发送邮件之前，您首先需要确定一个SMTP服务器的地址以及相应的端口号（可以使用默认值）如：
Mail.Host = "smtp.mycompany.com"
Mail.Port = 25 ' 该项可选.端口25是默认值
下一步需要指定邮件发送者的邮件地址，如：
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 属性分别来指定邮件的标题和邮件的内容。BODY可以使用文本方式或者HTML方式，如果要使用HTML方式则必须将IsHTML 属性设置为True。请看以下例子：
纯文本方式
Mail.Subject = "关于报价"
Mail.Body = "尊敬的张经理:" & chr(13) & chr(10) & "感谢您的来信，以下是您需要的报价"
或者HTML方式
Mail.Subject = "关于报价"
Mail.Body = "<HTML><BODY BGCOLOR=#0000FF>尊敬的张经理:....</BODY></HTML>"
Mail.IsHTML = True
如果是需要发送文件作为邮件的附件，则需要用AddAttachment方法。它支持使用完全的物理路径的方式，如：
Mail.AddAttachment "c:\dir\receipt.doc"
同时需要注意的是该方法也不需要用“=”来做连接。
现在可以将邮件内容发送出去了，发送邮件使用Send方法，如果要忽略可能发生的错误，可以使用On Error Resume Next语句来跳过，并且显示出错误的信息，如：
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "发现一个错误，错误信息描述为: " & Err.Description
End If
值得注意的是，目前很多SMTP服务器需要验证邮件发送者是否是合法的服务器用户，即平时我们所说的“密码验证功能”，这时候就需要特别指定邮件发送者的用户名和密码，方法如下：
mail.username = "用户名"
mail.password = "密码"
在使用的时候将上面两句话加入MAIL.SEND语句前面，并用您接收邮件的用户名和密码来替换上面的“用户名”和“密码”这样即可通过带有密码验证的SMTP服务器来发送您的邮件了；以下是一段实际运行中的例子，您可以参考使用：
'发送邮件
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"‘邮件的内码，使用这个选项可以避免中文乱码
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号科贸中心407 邮编：100081<br>====================================================="
Mail.Send
<%
Set Mail = Server.CreateObject("Persits.MailSender")
%>
在发送邮件之前，您首先需要确定一个SMTP服务器的地址以及相应的端口号（可以使用默认值）如：
Mail.Host = "smtp.mycompany.com"
Mail.Port = 25 ' 该项可选.端口25是默认值
下一步需要指定邮件发送者的邮件地址，如：
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 属性分别来指定邮件的标题和邮件的内容。BODY可以使用文本方式或者HTML方式，如果要使用HTML方式则必须将IsHTML 属性设置为True。请看以下例子：
纯文本方式
Mail.Subject = "关于报价"
Mail.Body = "尊敬的张经理:" & chr(13) & chr(10) & "感谢您的来信，以下是您需要的报价"
或者HTML方式
Mail.Subject = "关于报价"
Mail.Body = "<HTML><BODY BGCOLOR=#0000FF>尊敬的张经理:....</BODY></HTML>"
Mail.IsHTML = True
如果是需要发送文件作为邮件的附件，则需要用AddAttachment方法。它支持使用完全的物理路径的方式，如：
Mail.AddAttachment "c:\dir\receipt.doc"
同时需要注意的是该方法也不需要用“=”来做连接。
现在可以将邮件内容发送出去了，发送邮件使用Send方法，如果要忽略可能发生的错误，可以使用On Error Resume Next语句来跳过，并且显示出错误的信息，如：
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "发现一个错误，错误信息描述为: " & Err.Description
End If
值得注意的是，目前很多SMTP服务器需要验证邮件发送者是否是合法的服务器用户，即平时我们所说的“密码验证功能”，这时候就需要特别指定邮件发送者的用户名和密码，方法如下：
mail.username = "用户名"
mail.password = "密码"
在使用的时候将上面两句话加入MAIL.SEND语句前面，并用您接收邮件的用户名和密码来替换上面的“用户名”和“密码”这样即可通过带有密码验证的SMTP服务器来发送您的邮件了；以下是一段实际运行中的例子，您可以参考使用：
'发送邮件
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"‘邮件的内码，使用这个选项可以避免中文乱码
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号科贸中心407 邮编：100081<br>====================================================="
Mail.Send
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
