【问题标题】: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

%>

【讨论】:

    猜你喜欢
    • 2012-12-17
    • 1970-01-01
    • 2013-10-03
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 2012-05-19
    • 1970-01-01
    • 1970-01-01
    相关资源
    最近更新 更多