从 Javascript 调用的 VB 脚本 - 无法获取 Outlook 发件人地址

Question

我正在使用 IE 11 从 Intranet 页面调用 VBS 函数（是的，它必须是那个浏览器）。 该函数处理一个 Outlook 邮箱，并且部分工作：我可以运行邮件列表并找到主题和正文，但我需要发件人的电子邮件地址。 当我将类似的代码作为 Outlook 宏运行时，我可以通过各种方式得到它，但它们都不能在 VBS 中工作——当我尝试获取任何感兴趣的东西时，脚本只是挂起（没有错误消息）——查看函数，有各种各样的东西我试过评论。 任何关于我哪里出错的指示都非常感激......

    Function readEmails(mailbox)
    Dim iCt  
        Set objOutlook = CreateObject("Outlook.Application")
        Set NS = objOutlook.GetNamespace("MAPI")
        Set olFolder = NS.Folders(mailbox)
        Set olFolInbox = olFolder.Folders("Inbox")
    
        iCt = 0
        For iCt =1 to olFolInbox.Items.Count 
            set olMessage=olFolInbox.Items(iCt)
                msgbox(ict & "-" & olMessage.Subject )
                msgbox("SenderEmailType=" & olMessage.SenderEmailType)
                msgbox("SenderEmailAddress=" & olMessage.SenderEmailAddress)    'hangs
                'set sn=olMessage.SenderName 'hangs
                set sUser=olMessage.Sender
                'set sn=sUser.Name 'hangs
                'msgbox(sUser) 'hangs
                'set sExUser=sUser.GetExchangeUser ' hangs
            End If
        Next 
        readEmails=sReturn
    End Function

Answer 1

当您从外部宏自动化 Outlook 时，似乎出现了安全问题 - 它可能是安全提示或代码中的异常。它的外观实际上取决于 Outlook 版本（其内部实现）。为避免在处理 OOM 时出现安全问题，您可以使用以下方法：

1. 使用不会在 OOM 中触发安全问题的低级 API。 Outlook 建立在扩展 MAPI 之上，与 OOM 不同，它不会触发安全问题。此外，您还可以考虑使用围绕此低级 API 的任何包装器，例如 Redemption。
2. 使用设计用于在 OOM 中关闭和打开安全检查的第三方组件，请参阅 Outlook Security Manager 了解更多信息。
3. 如果系统上安装了任何最新的防病毒软件，您可以创建一个组策略来阻止显示安全提示，或者只是关闭这些警告（不建议这样做）。

用户会收到安全提示/异常，因为 Outlook 是通过以下方式之一在客户端计算机上配置的：

• 使用默认的 Outlook 安全设置（即未设置组策略）
• 使用组策略定义的安全设置，但未应用编程访问策略
• 使用组策略定义的安全设置，当防病毒软件处于非活动状态或过期时发出警告

在Security Behavior of the Outlook Object Model 文章中了解更多信息。