Adressbuch auslesen
17.05.2004 11:12:19
Frederik
Ich möchte folgenden Code verwenden, um ein Outlook - Adressbuch auszulesen:
Function Outlookdaten_einlesen()
Dim S, Zähler
Dim Outl As Outlook.Application
Dim NamensListe As Outlook.AddressList
Dim Eintrag As Outlook.AddressEntry
Dim ComboEintrag As Integer
Set Outl = CreateObject("Outlook.Application")
Set NamensListe = Outl.Session.AddressLists("Globales Adressbuch")
Bei der letzten Zeile tritt die Fehlermeldung auf "Objekt konnte nicht geladen werden...". Unter Office 2002 hatte dies einwandfrei funktioniert, unter 2003 aber nicht mehr!!
Wer kann mir helfen?
Gruß
Frederik
Anzeige