Ich finde einfach keine Lösung für mein vermeindlich kleines Problem:
Ich möchte einfach nur meinen Outlook-Kalender öffnen.
Nur gucken und nix reinschreiben.
Danke für eure Hilfe!
Gruß
Werner
Private Sub btnOutlookKalender_Click()
On Error GoTo Fehler
Dim objOutlook As Object
Dim objNameSpace As Object
Dim myFolder As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set myFolder = objNameSpace.GetDefaultFolder(9)
myFolder.Display
'clean up
Set objOutlook = Nothing
Set objNameSpace = Nothing
Set myFolder = Nothing
'Fehlerbehandlung#############################
Exit Sub
Fehler:
'Fehlerbehandlung
End Sub
Matze