Script to auto-click "Allow" Outlook promt

[Drivium]

I am trying to automate the sending of an email through VB Script, but am receiving this message:



I can get the script to activate the window via:

Set objShell = WScript.CreateObject("WScript.Shell")

Do Until Success = True
    Success = objShell.AppActivate("Microsoft Office Outlook") 
    Loop

I need a piece of code that will automatically click this "Allow" button. I can't really use sendkeys because this will be running while my PC is locked. My employer has my outlook locked down, so adjusting settings isn't an option. Any help would be great.