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

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