06.10.2016, 00:15
Wie kann ich in Excel VBA die Outlook-Kategorien auflisten lassen bzw. auswählen?
Set objNameSpace = Outlook.GetNamespace("MAPI").PickFolder
If objNameSpace.DefaultItemType <> olContactItem Then
MsgBox "Abbruch: Ausgewählter Ordner ist kein Kontakt", vbCritical
Exit Sub
End If
If objNameSpace.Categories.Count > 0 Then
Hier kommt ein Laufzeitfehler 438 !!
Set objNameSpace = Outlook.GetNamespace("MAPI").PickFolder
If objNameSpace.DefaultItemType <> olContactItem Then
MsgBox "Abbruch: Ausgewählter Ordner ist kein Kontakt", vbCritical
Exit Sub
End If
If objNameSpace.Categories.Count > 0 Then
Hier kommt ein Laufzeitfehler 438 !!