Joopi

Normale Version: Outlook-Mail über VBA-Code versenden
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Mit einem VBA-Code ist es möglich eine Mail über Outlook abzusenden. Dabei unterscheidet man den Direktversand oder eben die Anzeige in Outlook, um noch Änderungen vorzunehmen. Im nachfolgenden Code sind alle üblichen Funktionen dargestellt, teils auskommentiert.

Code:
Sub EmailAbsenden_bunker()

Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail

  .To = "deinname@deinedomain.de"
  '.CC = "deinname@deinedomain.de"
  '.BCC = "deinname@deinedomain.de"
  'Versand an mehrere Empfänger
  '.To = "deinname@deinedomain.de; zweiteEmailadresse@domain.de"
 
  .Subject = "Betreff"
 
  .Body = "Ihre Nachricht."
 
  'Versand über Outlookanzeige
  .Display        'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
 
  'Versand direkt aus dem VBA-Code heraus
  .Send        'Sendet die Email automatisch
 
  '.Attachments.Add "C:/Beispiel.xlsx"
  'Versand mehrerer Anhänge in einer Mail
  '.Attachments.Add "C:/Beispiel_1.xlsx"
  '.Attachments.Add "C:/Beispiel_2.xlsx"

End With

End Sub





Im VB-Editor muss die Objektbibliothek Microsoft Outlook 16.0 Object Library gesetzt sein.

Das Beispiel habe ich hier gefunden: 
https://www.makro-excel.de/2017/03/06/pe...versenden/