Question

所以我试图从Excel VBA后端发送自动消息。我在VBA技能方面非常称职，并且过去使用过以下方法取得了巨大的成功。我在新环境中使用此方法时遇到问题，并且我知道它与Exchange服务器的配置有关，问题是管理Exchange服务器的人也不是Exchange专家。

Public Function SendEmail(
    txtTo As String, 
    txtSubject As String, 
    txtBody As String,    
    Optional txtSender As String = vbNullString, 
    Optional txtCC As String = vbNullString, 
    Optional txtBCC As String = vbNullString)

    Dim objMsg As Object, objconfig As Object, objFields As Object

    Set objMsg = CreateObject("CDO.Message")
    Set objconfig = CreateObject("CDO.Configuration")
    Set objFields = objconfig.fields

    'Set the email configuration
    With objFields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTP"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        .Update
    End With

    'Apply the various fields to the email object
    With objMsg
        .Configuration = objconfig
        .From = txtSender
        .Subject = txtSubject
        .To = txtTo
        .Cc = txtCC
        .Bcc = txtBCC
        .TextBody = txtBody         
        .Send
    End With

    SendEmail = IIf(Err.Number = 0, True, False)

    'clean up
    Set objMsg = Nothing
    Set objconfig = Nothing
    Set objFields = Nothing

End Function

我正在尝试发送到需要身份验证的通讯组。我们已经找到了如何删除发送电子邮件的“功能”，但这并不理想。我尝试使用basic / clear trust（1）作为身份验证方法，将我的用户名和密码提供给配置对象中的必填字段，但仍然没有骰子。当我从Outlook发送电子邮件时，我发送到需要身份验证的电子邮件没有问题，但使用CDO Exchange时不允许我进行身份验证。它也永远不会解析发件人地址，不确定这是否相关，但为了完全披露它的存在。我知道Exchange / SMTP服务器配置为允许匿名发送，但这似乎是CDO将使用的唯一选项。

我的智慧结束了。那里的任何交易所大师都可以提供一些建议吗？

谢谢，乍得

Answer 1

好吧，我终于设法解决了自己的问题。如果其他人有类似的问题我以为我会分享。原来这是一个港口问题。

SSL的标准交换端口为25和465（我相信）。

在这种情况下，端口25配置为从我们的防火墙后面匿名发送（主要是通过打印机和传真机）。我尝试使用端口465，但它报告说该端口不存在。

在对Exchange服务器进行了大量挖掘后，我发现使用了一些任意端口号来配置经过身份验证的消息。一旦我在上面的代码中硬编码了正确的端口号，我就没有问题让它工作了。快乐的编码！

Exchange 2010身份验证问题

1 个答案: