CDO 电子邮件是使用经典 asp 发送电子邮件的最佳方式吗？答案

【问题标题】：Is CDO Email the best way to send email using classic asp?CDO 电子邮件是使用经典 asp 发送电子邮件的最佳方式吗？
【发布时间】：2011-07-12 23:56:50
【问题描述】：

我正在使用 asp 创建一个网页，该网页应该向多个客户发送电子邮件。有人建议我使用 CDO 电子邮件功能。这是经典asp网页的最佳解决方案吗？或者添加asp.net和ajax来处理电子邮件这种事情会更好。

【问题讨论】：

我没有理由标记这个 VB6 或 VB6 迁移。
最好在 ASP.NET 中做任何事情。
我可以在 vb6 中很好地执行 CDO Mail，但它不适用于 asp。
相关问题：send email in classic ASP

标签： email asp-classic cdo.message

【解决方案1】：

CDO 将是显而易见的途径。在某些版本的 .Net Framework 中，ASP.Net 无论如何都会使用 CDO 的包装器。

我不知道 Ajax 在哪里适合这个主题。

粗鲁和粗鲁（最好参考 global.asa 中的库以获取类型信息并避免长字段 ID 字符串和幻数）示例复制/粘贴且未经我验证：

<% 
    sch = "http://schemas.microsoft.com/cdo/configuration/" 

    Set cdoConfig = CreateObject("CDO.Configuration") 

    With cdoConfig.Fields 
        .Item(sch & "sendusing") = 2 ' cdoSendUsingPort 
        .Item(sch & "smtpserver") = "<enter_mail.server_here>" 
        .Update 
    End With 

    Set cdoMessage = CreateObject("CDO.Message") 

    With cdoMessage 
        Set .Configuration = cdoConfig 
        .From = "from@me.com" 
        .To = "to@me.com" 
        .Subject = "Sample CDO Message" 
        .TextBody = "This is a test for CDO.message" 
        .Send 
    End With 

    Set cdoMessage = Nothing 
    Set cdoConfig = Nothing 
%>

【讨论】：

Ajax 我只是用来调用 sendMail.aspx?mailid=1 来自动化电子邮件功能，如果我不能让它在 asp 中工作。否则我会直接在asp中做。你会知道asp中CDO电子邮件功能的服务器对象是什么吗？
Bob，我正在尝试安装 CDO 以与 asp 一起使用，除非我遗漏了什么，否则我看不到此链接有何帮助。谢谢
Marc，您没有为 Windows 2000 安装 CDO。它是从 Win2K 开始的所有 Windows 版本中都存在的系统组件。您询问了“ASP 中的服务器对象”是什么，该链接显示了要使用的 CDO 类/接口。它不是“服务器对象”，而是操作系统库。

【解决方案2】：

您想将 Ajax 添加到 ClassicASP 吗？我会说你是在自找麻烦。如果可能的话，我会鼓励客户转向 .net 技术。从长远来看，他们会感激不尽。

至于 CDO 对象，试试这个链接How do I send e-mail with CDO?

【讨论】：

嗯？我们现在称之为 Ajax 的东西早在 ASP.Net 出现之前就已经出现了。
确实如此。然而，根据我尝试混合 ajax 和经典 asp 的经验，导致了很多持续到午夜的错误修复。只是我个人的看法。
不，我已经让 CDO 在 vb6 中工作，但是当试图让它在 asp 中工作时，我遇到了麻烦。我不知道如何使用 asp 为 cdo 添加引用。我认为它使用 Windows 脚本。谢谢。

【解决方案3】：

它在 ASP Classic 上使用 GoDaddy 主机上的 CDO 以这种方式工作：

<%
Set ObjSendMail = CreateObject("CDO.Message")

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.secureserver.net"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Update


'ObjSendMail.AddAttachment mPath, "Logo.gif"
'ObjSendMail.AddAttachment ArrwPath, "red_arrw.gif"

ObjSendMail.Subject = strSub
ObjSendMail.To = strTo
ObjSendMail.From = strFrom
ObjSendMail.Bcc = strBcc
ObjSendMail.Cc = strCc
ObjSendMail.HTMLBody = strMsg

ObjSendMail.Send
        Set ObjSendMail = Nothing

%>

【讨论】：