VBA: Åbne Outlook hvis den ikke er åben

Sub ErOutLookÅben()
    On Error GoTo OutlookIsNotRunning
    AppActivate ("Outlook")
    Exit Sub
   
OutlookIsNotRunning:
    Call Open_OutLook
End Sub
Sub Open_OutLook()
    Dim oOutlook As Object
    Dim oNameSpace As Object
    Dim oInbox As Object
   
    Set oOutlook = CreateObject("Outlook.Application")
    Set oNameSpace = oOutlook.GetNamespace("MAPI")
    Set oInbox = oNameSpace.Folders(1)
    oInbox.Display
End Sub

Ja. den forste del detecterer fint om outlook er åben eller ej.

Den næste del åbner Outlook, men den åbner ikke som normalt med inboxen eller "Outlook today" åben.
Min version hedder outlook 2010 (en del af office 2010-pakken)

Hvis du erstatter

Set oInbox = oNameSpace.Folders(1)

med

Set oInbox = oNameSpace.GetDefaultFolder(olFolderInbox)

Supertekst - Jeg er glad for at du forsøger at hjælpe...
Den reagerer på linien med beskeden:
"Invalid procedure call og argument"

kan det være GetDefaultFolder() den reagerer på...

Det må det jo være, da denne linje sidst er rettet.

Virker godt nok hos mig - men jeres mail-struktur er nok anderledes.

Har ikke andre bud.

Supertekst: Jeg har ikke fået nogle bedre bud, så jeg vælger at acceptere din løsning, selvom outlook ikke åbner i default-folder.

Smid lige et svar, så jeg kan tildele lidt points...
og tak for hjælpen...

Ok & selv tak..