Set objnSpace = objOutlook.GetNamespace("Mapi")
KLE
ich nutze die Zeile:
Set objnSpace = objOutlook.GetNamespace("Mapi")
um Outlook-Kontakte einzulesen in folgendem Code:
' Outlook-Kontakte Einlesen
Sub aryOutBereich()
' Outlook-Ordner zuweisen
Set objnSpace = objOutlook.GetNamespace("Mapi")
Set workingFolder = objnSpace.PickFolder ''' Dialog öffnen (Ordner-Auswahl Outlok)
If workingFolder Is Nothing Then Exit Sub
Call OK_einlesen(workingFolder)
End Sub
"Laufzeitfehler 91":
Objektvariable oder With-Blockvariable nicht festgelegt
Schließe ich die Userform und starte Sie erneut - kommt es nicht zur Fehlermeldung.
Wie gessagt - 9 von 10x klappt es ohne Probleme...
Woran kann es also liegen ? Jemand eine Idee ?
Gruß und Danke
Kay
Anzeige