Thema: Daten aus Outlook-Adressbuch in Tabelle einlesen

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

Beiträge aus dem Excel-Forum zu den Themen Extern und Outlook