In Outlook von der Ansicht Kalender in Posteingang per VBA-Makro wechseln

Hallo zusammen,

ich möchte in meiner Excel-Mappe wenn ich ein Makro starte das Fenster Outlook in den Vordergrund bringen (funkt) und wenn die aktuelle Ansicht "Kalender" ist, diese in Posteingang/Inbox wechselt.
Der Wechsel von der einen in die andere Ansicht schaffe ich nicht

Bis jetzt folgender Code - vielen Dank vorab !!

Sub Schaltfläche_Outlook()
 Dim oApp As Object
 Dim oName As Object
 Dim oFolder As Object
 
On Error Resume Next
 Set oApp = GetObject(, "Outlook.Application")
On Error GoTo 0

If Not oApp Is Nothing Then
 Set oName = oApp.GetNamespace("MAPI")
 Set oFolder = oName.GetDefaultFolder(6) ' 6 = olFolderInbox
     oApp.ActiveWindow.WindowState = olMaximized
     oApp.ActiveWindow.Activate
Else
    If MsgBox("Outlook läuft nicht, möchten sie es starten?", vbYesNo + vbQuestion, "Outlook starten") = vbYes Then Call StartMacro_Inbox
End If

' If Err.Number = 429 Then
'    Err.Clear
'    Set oApp = CreateObject("outlook.application")
' End If

 Set oApp = Nothing
 Set oName = Nothing
 Set oFolder = Nothing
End Sub

Sub StartMacro_Inbox()
 Dim oApp As Object
 Dim oName As Object
 Dim oFolder As Object
 Set oApp = CreateObject("outlook.application")
 Set oName = oApp.GetNamespace("MAPI")
 Set oFolder = oName.GetDefaultFolder(6) ' 6 = olFolderInbox
 oFolder.Display
 oApp.ActiveWindow.WindowState = olMaximized
End Sub 