ASP调用CDO发送邮件的类，纪念逝去的ASP时代

最近给一个小项目作咨询，也就是帮一个朋友解决他提出来的问题，针对问题给出解决方案和Demo代码。第一次接触ASP到现在差不多有6年多的时间了，最初的时候一直用ASP作网站还有一些小的系统。现在逐步转向JAVA和C#等语言，编程也主要是面对对象了，但是ASP作为脚本语言小巧玲珑，能快速解决一些小问题还是很方便的。下面是昨天写的一个用ASP调用CDO组件发送Email的小例子：

 

下面是类文件，只实现了CDO发送邮件，JMail和ASPMail还没有写。

 

Email.asp

Class Mail Private m_mailComponent ' Mail component Private m_mailFrom ' The Mail is from which Mail Address Private m_mailFromName ' The Name who send email Private m_mailServer ' The SMTP server Private m_mailUser ' The SMTP server username Private m_mailPassword ' The SMTP user's password Private m_mailTo ' Mail to address Private m_mailParameter ' The mail's Parameter, it is a dictionary Object. Private m_mailTemplate ' The mails Template Private m_mailSubject ' The mail's subject Private m_mailContent ' The mail's content Private m_objXML Public Property Get MailComponent() MailComponent = m_mailComponent End Property Public Property Let MailComponent(v) m_mailComponent = v End Property Public Property Get MailFrom() MailFrom = m_mailFrom End Property Public Property Let MailFrom(v) m_mailFrom = v End Property Public Property Get MailFromName() MailFromName = m_mailFromName End Property Public Property Let MailFromName(v) m_mailFromName = v End Property Public Property Get MailServer() MailServer = m_mailServer End Property Public Property Let MailServer(v) m_mailServer = v End Property Public Property Get MailUser() MailUser = m_mailUser End Property Public Property Let MailUser(v) m_mailUser = v End Property Public Property Get MailPassword() MailPassword = m_mailPassword End Property Public Property Let MailPassword(v) m_mailPassword = v End Property Public Property Get MailTo() MailTo = m_mailTo End Property Public Property Let MailTo(v) m_mailTo = v End Property Public Property Get MailParameter() Set MailParameter = m_mailParameter End Property Public Property Let MailParameter(v) Set m_mailParameter = v End Property Public Property Get MailTemplate() MailTemplate = m_mailTemplate End Property Public Property Let MailTemplate(v) m_mailTemplate = v End Property Public Property Get MailSubject() if Not IsEmpty(m_mailTemplate) Then m_mailSubject = ObjXML.SelectSingleNode("Email/Templates/Template[@name='" & m_mailTemplate & "']/Subject").Text m_mailSubject = ReplaceContent(m_mailSubject) End If MailSubject = m_mailSubject End Property Public Property Let MailSubject(v) m_mailSubject = v End Property Public Property Get MailContent() if Not IsEmpty(m_mailTemplate) Then m_mailContent = ObjXML.SelectSingleNode("Email/Templates/Template[@name='" & m_mailTemplate & "']/Content").Text m_mailContent = ReplaceContent(m_mailContent) End If MailContent = m_mailContent End Property Public Property Let MailContent(v) m_mailContent = v End Property Public Property Get ObjXML() If IsEmpty(m_objXML) Then Dim strXMLFile strXMLFile = Server.MapPath("Email.config") Set m_objXML = Server.CreateObject("Microsoft.XMLDOM") m_objXML.Async = False m_objXML.load(strXMLFile) End If Set ObjXML = m_objXML End Property Public Property Let ObjXML(v) m_objXML = v End Property Private Sub Class_Initialize m_mailComponent = ObjXML.SelectSingleNode("Email/Config/MailComponent").Text m_mailFrom = ObjXML.SelectSingleNode("Email/Config/MailFrom").Text m_mailFromName = ObjXML.SelectSingleNode("Email/Config/MailFromName").Text m_mailServer = ObjXML.SelectSingleNode("Email/Config/MailServer").Text m_mailUser = ObjXML.SelectSingleNode("Email/Config/MailUser").Text m_mailPassword = ObjXML.SelectSingleNode("Email/Config/MailPassword").Text End Sub Public Sub AddParameter(ByVal parameterName, ByVal parameterValue) If IsEmpty(m_mailParameter) Then Set m_mailParameter = Server.CreateObject("Scripting.Dictionary") End If If Not m_mailParameter.Exists(parameterName) Then m_mailParameter.Add parameterName, parameterValue End If End Sub Public Sub Send() If m_mailComponent = "JMail" Then 'TODO ElseIf m_mailComponent = "ASPMail" Then 'TODO ElseIf m_mailComponent = "CDO" Then Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields With Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = m_mailServer .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = m_mailUser .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = m_mailPassword .Update End With Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .To = m_mailTo .From = m_mailFromName & "<" & m_mailFrom & ">" .Subject = MailSubject .HTMLBody = MailContent .Send End With End If End Sub Private Function ParameterReplace(ByVal content, ByVal patrn, ByVal replStr) Dim regEx Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True regEx.Global = True ParameterReplace = regEx.Replace(content, replStr) End Function Private Function ReplaceContent(ByVal content) If Not IsEmpty(m_mailParameter) Then For Each key In m_mailParameter.Keys Dim tempName tempName = "{" & key & "}" Dim tempValue tempValue = m_mailParameter.Item(key) content = ParameterReplace(content,tempName,tempValue) Next End If ReplaceContent = content End Function Public Sub ToString() Response.Write("MailComponent : " & m_mailComponent & "<br/>") Response.Write("MailServer : " & m_mailServer & "<br/>") Response.Write("MailUser : " & m_mailUser & "<br/>") Response.Write("MailPassword : " & m_mailPassword & "<br/>") End Sub End Class

 

下面是配置文件

Email.config

<?xml version="1.0" encoding="utf-8"?> <Email> <Config> <MailComponent>CDO</MailComponent> <MailFrom>XXX@163.com</MailFrom> <MailFromName>You Name</MailFromName> <MailServer>smtp.163.com</MailServer> <MailUser>XXXX</MailUser> <MailPassword>XXXX</MailPassword> </Config> <Templates> <Template name="PaySucess"> <Subject><!--[CDATA[Hello {UserName} , Order Id : {OrderId}]]></Subject> <Content><![CDATA[ Hello <Font Color="Red">{UserName}</Font> <br/> Order Id : <Font Color="Green">{OrderId}</Font> ]]--></Content> </Template> </Templates> </Email>

 

调用例子

Sub SendPaySucessMail() set MyMail = new Mail MyMail.MailTemplate = "PaySucess" MyMail.MailTo = "dm_mb@163.com" MyMail.AddParameter "UserName", "Huang" MyMail.AddParameter "OrderId", "123" MyMail.Send() End Sub