用户单击 DENY 时崩溃答案

【问题标题】：Crash when user clicks DENY用户单击 DENY 时崩溃
【发布时间】：2014-03-28 03:35:35
【问题描述】：

我在 HTA 应用程序中运行这个 VBScript：

Sub CustomMailMessage()
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    objMail.Recipients.Add("myemail@domain.com") ' crashing here if deny
    objMail.Subject = UCase("Phone Correction")
    objMail.HTMLBody = GenerateEmailBody
    objMail.Body = "My New Number Is: "
    objMail.Display
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.SendKeys "^+{END}", True
    WshShell.SendKeys "{END}", True
    Set OutApp = Nothing
End Sub

出现一个弹出窗口，要求用户单击ALLOW 或DENY。

如果点击ALLOW，我的脚本就可以工作。如果点击DENY，则会崩溃。

有没有办法执行以下操作之一：

不会崩溃并正常退出。
抑制 Outlook 警告并创建邮件（首选）。

所有邮件客户端都是在 Windows XP 或 Windows 7 上运行的 Outlook 2010。

【问题讨论】：

使用 CDO 代替 Outlook。
我们需要在他们的已发送文件夹中记录邮件是从他们的帐户发送的。

标签： vba vbscript outlook outlook-2010 hta

【解决方案1】：

您需要安装最新版本的杀毒软件（如果您可以控制客户端环境）或绕过 Outlook 对象模型（例如使用Redemption）。

请参阅http://www.outlookcode.com/article.aspx?id=52 了解您的选择。

【讨论】：

已经在使用赛门铁克（企业版）。无法更改设置，因为它是从服务器管理的。是否需要在将使用 HTA 应用程序的每个客户端上安装 Redemption？
是的，需要在执行代码的机器上安装Redemption。