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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen