Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Daten aus Outlook-Adressbuch in Tabelle einlesen

Gruppe

Outlook

Problem

In die Spalten A:C sollen Daten aus dem Outlook-Adressbuch eingefügt werden. Das Outlook-Adressbuch wird aufgerufen und die in das Listenfeld "Mail-Empfänger" verschobenen Adressen werden ausgelesen.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub cmd_ShowAdrBook_Click()
   Dim objSession As MAPI.Session
   Dim objRecipients As MAPI.Recipients
   Dim objRecipient As MAPI.Recipient
   Dim iRow As Integer
   Set objSession = CreateObject("MAPI.Session")
   objSession.Logon
   Set objRecipients = objSession.AddressBook( _
      Recipients:=objRecipients, _
      Title:="Wählen Sie den oder die Empfänger")
   iRow = 1
   If Not objRecipients Is Nothing Then
      For Each objRecipient In objRecipients
         iRow = iRow + 1
         Cells(iRow, 1).Value = objRecipient.Name
         Cells(iRow, 2).Value = objRecipient.Address
         Cells(iRow, 3).Value = objRecipient.Type
      Next objRecipient
   End If
   ActiveWorkbook.Save
   objSession.Logoff
End Sub