[VBA] Outlook-Mail über VBA-Code versenden

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