Zugriff auf Outlook Adressdaten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Zugriff auf Outlook Adressdaten
von: Steph@n
Geschrieben am: 18.07.2002 - 08:26:35

Hallo Ex(cel)perten,

habe folgende Vision: Ich möchte vom Excel aus auf die Adressdaten im Outlook zugreifen und mir diese auf einem separaten Excel-Sheet als Datensätze erzeugen lassen!

Habe aber leider noch nicht einmal den Hauch einer Idee, wie ich das anstellen soll (auf was für eine Datei muss ich zugreifen u.ä.).

Hat jemand von Euch soetwas schon umgesetzt und könnte mir weiterhelfen?

Vielen Dank

Steph@n

nach oben   nach unten

Re: Zugriff auf Outlook Adressdaten
von: Horst
Geschrieben am: 18.07.2002 - 08:35:31

Hallo Steph
vielleicht hilft Dir das weiter. Der code stammt nicht von mir sondern von der Herber Excel CD.
In diesem Beispiel wird das Outlook Adressbuch in eine User Form Listbox eingetragen.
Gruß Horst


Private Sub UserForm_Initialize()
Dim objOutlook As Outlook.Application
Dim objAddressList As Outlook.AddressList
Dim objAddressEntry As Outlook.AddressEntry
Dim arrAdressen() As String
Dim intCounter As Integer
Set objOutlook = CreateObject("Outlook.Application")
Set objAddressList = objOutlook.Session.AddressLists("Kontakte")
For Each objAddressEntry In objAddressList.AddressEntries
intCounter = intCounter + 1
Application.StatusBar = "Lese Adresse Nr. " & intCounter & " ein..."
ReDim Preserve arrAdressen(1 To 2, intCounter)
arrAdressen(1, intCounter) = objAddressEntry.Name
arrAdressen(2, intCounter) = objAddressEntry.Address
Next objAddressEntry
lstAdressen.Column = arrAdressen
Set objOutlook = Nothing
Application.StatusBar = False
End Sub


nach oben   nach unten

Re: Zugriff auf Outlook Adressdaten
von: Steph@n
Geschrieben am: 18.07.2002 - 08:46:31

Hallo Horst,

vielen Dank für Deine schnelle Hilfe, werd das Coding mal so einbinden und mich damit beschäftigen und testen!

Gruss Stephan


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zugriff auf Outlook Adressdaten"