Hallo, Ich möchte innerhalb einer Prozedur in einer Exceltabelle das Outlook Adressbuch öffnen. Ein gewählter Eintrag soll der Prozedur hinterer als Variable zur Verfügung stehen.
Ich setze hier mal den bisherigen Code ein, nur die Variable adressat möchte ich jetzt noch aus dem Adressbuch füllen können...

Dim adressat As String
Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
adressat = [HIER DER AUFRAUF AN DAS ADRESSBUCH]
If adressat = "" Then Exit Sub
myItem.To = adressat
myItem.Subject = "Kontoauszugsanforderung"
myItem.Body = "Blabla Damenundherren lala" & vbNewLine & vbNewLine & "Anbei Kontosoundso testtest ich mache jetzt feierabend." & vbNewLine & vbNewLine
Set myAttachments = myItem.Attachments
myAttachments.Add ThisDocument.FullName
myItem.Send
MsgBox "Der Bericht wurde erfolgreich an " & adressat & " verschickt. "
Set ol = Nothing

Kann man das so realisieren?