Outlook Adress Buch
04.11.2008 11:56:00
Bernd
bin im Forum auf folgenden Code gestossen, der bei mir leider nicht funktioniert. Ich möchte aus Excel das Outlook Adress Buch aufrufen, um eine Person auswählen zu können, von der die Emailadresse dann in eine Zelle geschrieben werden soll.
(Outlook Objekt Bibliothek habe ich eingebunden)
Weiss jemand einen Rat?
Besten Dank im Voraus
Bernd
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