Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1512to1516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Outlook E-Mailadressenvervollständigung

Outlook E-Mailadressenvervollständigung
03.09.2016 22:02:30
Benny
Hallo,
ich schreibe per VBA eine E-Mail aus Excel über Outlook.
Nun möchte ich die Autovervollständigung für die eingegebenen E-mailadressen aktivieren. Das geht von Hand zum Beispiel mit der tastenkombination Strg+K.
Gibt es einen VBA-Befehl mit dem ich das automatisiert übernehmen kann oder kann ich die Tastenkombination per VBA an Outlook senden?
Vielen Dank für eure Hilfe.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Outlook E-Mailadressenvervollständigung
03.09.2016 22:06:23
Benny
Zur Ergänzung ein Teil meines Codes
Dim objOutlook As Object
Dim objMail As MailItem
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
Debug.Print vbTab & "## Öffne E-Mail!"
With objMail
.To = empfänger '"Mustermann@MusterProviter.de" 'An-Empfänger
.CC = empfängerCC 'Cc-Empfänger
.BCC = empfängerBCC 'BCc-Empfänger
.subject = betreff 'Betreff
.Body = nachricht 'Nachricht
If anhang1 "" Then
.Attachments.Add anhang1 'Anlage1
End If
Debug.Print anhang1
If anhang2 "" Then
.Attachments.Add anhang2 'Anlage2
End If
If anhang3 "" Then
.Attachments.Add anhang3 'Anlage3
End If
If anhang4 "" Then
.Attachments.Add anhang4 'Anlage4
End If
If anhang5 "" Then
.Attachments.Add anhang5 'Anlage5
End If
If anhang6 "" Then
.Attachments.Add anhang6 'Anlage6
End If
.Display 'Mail anzeigen
.OriginatorDeliveryReportRequested = False
Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige