Excel VBA：能够创建和发送 Outlook 电子邮件，但希望自动单击公司安全弹出窗口上的“发送”按钮

Question

I have the following code in an Excel VBA module:

With OutlookMail
    .To = "mickey.mouse@disney.com"
    .CC = ""
    .BCC = ""
    .Subject = "Ride Review"
    .Body = "Please make the Turbo Spinner an express-lane ride."
    .Attachments.Add Path
    .Send
    SendKeys "{Enter}"
end With 'OutlookMail

The code works fine and will send an e-mail as expected. However, when the ".Send" command is executed, my company requires employees to fill out an e-mail security tool and then click an additional "SEND" / "CANCEL" button ("SEND" is highlighted by default). (NOTE: this is NOT a warning pop-up that has hundreds of post about it). The problem becomes when this window pops-up I am unable to navigate away from pop-up (ie it retains focus and gives an audible 'ding' noise and flashes the pop-up when you try to click on another area of the desktop). As such, I am not able to use the SendKeys function in VBA since Excel is no longer the active window and I am unable to continue to step through the code until I click "SEND" / "CANCEL" with my mouse. In fact, the 'SendKeys "{Enter}"' command places a return in the module code after I click "SEND"/"CANCEL" and continue stepping through the code (as expected). I have searched online to no avail for something similar. I am not sure there is a way to do this with Excel VBA given the fact that the code stops running until "SEND"/"CANCEL" is clicked, but perhaps there is a way to force it. Any help would be greatly appreciated!

Answer 1

It seems you are dealing with a modal dialog window. When it is displayed to a user the code stops running and can be resumed only after it is closed. A possible solution is to develop an external utility (application) which can scan Outlook windows periodically and click buttons programmatically. Microsoft Active Accessibility can help you with that. But it is not a trivial task.

The Outlook object model doesn't provide anything for that. You will have to use Windows API to get the job done.