Outlook Adressbuch öffnen
10.07.2003 15:01:44
Tim
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?