用户单击DENY时崩溃

Question

我在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，则会崩溃。

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

1. 不会崩溃并优雅地退出。
2. 取消Outlook警告并创建消息（首选）。

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

Answer 1

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

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