Crash when user clicks DENY

Question

I am running this VBScript inside an HTA application:

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

A popup appears asking the user to click ALLOW or DENY.

If ALLOW is clicked, my script works. If DENY is clicked, it crashes.

Is there a way to do one of the following:

Not crash and exit gracefully.
Suppress the Outlook warning and create the message (preferred).

All the Mail clients are Outlook 2010 running on Windows XP or Windows 7.

Use [CDO](http://stackoverflow.com/a/17425519/1630171) instead of Outlook. — Ansgar Wiechers, Feb 25 '14 at 20:16
We need to have a record that the mail was sent from their account in their sent folder. — software is fun, Feb 26 '14 at 13:20

Dmitry Streblechenko · Answer 1 · 2022-04-03T00:32:36.260

1

You need to either install an up-to-date version of antivirus software (if you can control the client environment) or bypass the Outlook Object Model (e.g. using Redemption - I am its author).

See http://www.outlookcode.com/article.aspx?id=52 for your options.

edited Apr 03 '22 at 00:32

answered Feb 25 '14 at 18:18

Dmitry Streblechenko

62,942
4
53
78

Already using Symantec (Corporate Edition). Can't change settings since it's managed from the server. Does Redemption need to be installed on every client that will use the HTA application? – software is fun Feb 25 '14 at 19:37
Yes, Redemption needs to be installed on the machine where the code is executed. – Dmitry Streblechenko Feb 25 '14 at 19:41

Crash when user clicks DENY

1 Answers1