Office 365 GetObject function

Hi, I have some code (in Excel) which automates Outlook by displaying an email populated with text for the user to send.

Initially all users were using Office 2007 and I am using late binding

 Set oOutlook = GetObject(, "Outlook.Application")

which worked fine.

Since then, some users have upgraded to Office 365 and this code no longer works. It seems to be because outlook is now named in the registry as Outlook.Application.16 with .16 added.

I now need the code to work on both versions and have so far I thought of either:

1. a way for GetObject to work with either of these - perhaps a wildcard or something?
2. a way to determine whether Office 365 is installed and use the correct name accordingly.
3. a way to pull the application name from the registry in order to use the correct one with GetObject

Does anyone have any way to overcome this?

Thanks for your reply. The odd thing is that Outlook is open. If I change GetObject(, "Outlook.Application") to GetObject(, "Outlook.Application.16") it works.
However I've since found someone with a similar setup where this problem doesn't occur, i.e. registry shows the .16 name and GetObject(, "Outlook.Application") is successful, so unfortunately it seems like it may be a localised issue.

Hi, Thanks for the replies so far. I still have this issue.

There's a function which I used to check if Outlook is running which currently returns False even when Outlook 365 is running.

Function isOutLookRunning() As Boolean
    Dim olApp As Object
    On Error Resume Next
    Set olApp = GetObject(, "Outlook.Application")
     
    If Not olApp Is Nothing Then
      isOutLookRunning = True
    Else
      isOutLookRunning = False
    End If
End Function

If this returns true, then the main part of the code creates an email for the user to edit.

Sub createMail()
Dim OutApp As Object
Dim OutMail As Object
Dim sSubject As String
Dim sBody As String
Dim Signature

If isOutLookRunning = True Then
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    sSubject = "A subject"
    sBody = "Hi"
    With OutMail
        .display        
        .To = "mainrecipient"
        .CC = "CCrecipients"
        .body = sBody
        .Subject = sSubject
    End With
    Set OutApp = Nothing
    Set OutMail = Nothing
End If
End Sub

Hi All,

I have discovered that the cause was that Outlook needed to be run as Administrator.