Outlook: Create a mail with VBA is broken when GetInspector is called

Here is an improved example without surpressing the error message:

Sub Create_Mail_in_Outlook()

        Dim OutlookApp As Object

        Dim OutlookMail As Object

        Set OutlookApp = CreateObject("Outlook.Application")

        Set OutlookMail = OutlookApp.CreateItem(0)

        ' insert your mail adress

        OutlookMail.To = "..."

        OutlookMail.Subject = "Test"

        Dim myInspector As Object

        Set myInspector = OutlookMail.GetInspector

        Dim OldBody As String

        OldBody = OutlookMail.Body

        OutlookMail.Body = "Mail created in VBA" + OldBody

        OutlookMail.Send

End Sub

When running an error message is shown from OutlookMail.Send

Run-Time Error 5
Invalid Procedure Call or Argument

With Outlook 365 version 2008 (16.0.12127.20638) no error occurred and the mail was sent

Hi Wolfgang,

I'm having the same problem, but in C# the error is "System.ArgumentException: Value does not fall within the expected range."

Hopping that MS fixes this error quick.

Also I found out that if you call myInspector.Close(olSave) then the send does not give the error but only if Outlook is running.

If it is closed AND doing a cold start (meaning it's not showing the outlook icon on the tray with the gear indicating that is begin externally accessed) it gives the following error "System.Runtime.InteropServices.COMException (0x800706BA): The RPC server is unavailable. (Exception from HRESULT: 0x800706BA)"

I have an update from my contacts - it is due to a regression caused by smartlinks code. I don't have an ETA for a fix though.