I have been using this code for some while.
One of the users has had his PC replaced.
His new PC triggers the following error in Excel:
Run-time error '2157054156 (800702e-4'):
The requested operation requires elevation.
When I click the debug button the following code is highlighted
Set OutApp = CreateObject("Outlook.Application")