E-Mail via VBA aus Excel versenden

Mit Hilfe von VBA lässt sich sehr einfach eine Tabelle einer Arbeitsmappe als E-Mail versenden. Die Besonderheit hier, hat man mehrere Konten im Outlook angelegt kann man mittels dem Parameter .Session.Accounts.Item das Absendekonto auswählen. Voraussetzung ist dafür natürlich das Recht, dass man auch von diesem Konto E-Mails versenden darf.

Option Explicit

Sub EmailUeberKonto()
Dim OlApp As Object
Dim olDummy As String
Dim Empfänger As String
Dim strName As String
Dim rngAnrede As Range
Dim Rückgabedatum As Range


Set OlApp = CreateObject(&quot;Outlook.Application&quot;)

 strName = ActiveSheet.Range(&quot;A3&quot;) ' Liest das Thema aus einer Zelle in der Tabelle aus
 Set rngAndrese = ActiveSheet.Range(&quot;A3&quot;) ' Liest den Namen für die Anrede aus einer Zelle in der Tabelle aus
 Set Rückgabedatum = ActiveSheet.Range(&quot;A4&quot;) ' Liest das Rückgabedatum aus einer Zelle in der Tabelle aus

    Empfänger = InputBox(&quot;Bitte Empfänger-E-Mail-Adresse eingeben.&quot;, &quot;E-Mail-Versand&quot;, &quot;E-Mail-Adresse&quot;)
    
    If Empfänger = &quot;&quot; Then Exit Sub

With OlApp.CreateItem(0)
Rem Name des Sendekontos in Anführungszeichen
            Set .SendUsingAccount = .Session.Accounts.Item(&quot;Anders.Friden@in-flames.band&quot;)
Rem Empfänger
          .To = Empfänger
Rem Optional Kopie an
          .CC = &quot;&quot;
Rem Optional Blindkopie an
          .BCC = &quot;&quot;
          
Rem Email anzeigen zum Einfügen der Signatur
          .GetInspector.Display
          
Rem Dummyzeile für Signatur. Zeile erforderlich
olDummy = .HTMLBody

Rem Betreff
          .Subject = &quot;E-Mail zum Thema &quot; &amp; strName

Rem Textkörper (Body) im HTML-Format. (1 = Nur-Text, 2 = HTML, 3 = Rich-Text)
          .BodyFormat = 2
Rem &quot;&lt;br&gt;&quot; = Zeilenumbruch-Anweisung (nur bei HTML)
          .HTMLBody = &quot;Sehr geehrte(r) Herr/Frau &quot; &amp; rngAnrede &amp; _
          &quot;&lt;br&gt;&lt;br&gt;&quot; &amp; _
          &quot;im Anhang erhalten Sie eine Liste zum Thema &quot; &amp; _
          strName &amp; _
          &quot;.&quot; &amp; .HTMLBody
         
Rem  Mail sofort senden
          .Send
End With

End Sub

Stefan

ist absolut technik-begeistert und großer Fan von Linux und Open Source. Raspberry Pi Bastler der ersten Stunde und nach wie vor begeistert von dem kleinen Stück Hardware, auf dem er tolle Projekte umsetzt. Teilt hier seine Erfahrungen mit Nextcloud, Pi-hole, YubiKey, Synology und openmediavault und anderen spannenden IT-Themen. Nutzt Markdown und LaTeX zum Dokumentieren seiner Projekte und Gitea zum Versionieren. Sitzt vor einem 49“ Monitor, nutzt Windows und MacOS zum Arbeiten, Linux auf seinen Servern und virtuellen Maschinen und hört dabei Spotify und MP3s und Radio-Streams über seinen RadioPi.

Trinkt gerne fairen Kaffee und freut sich deshalb sehr über jede Spende.

• • bc1qfuz93hw2fhdvfuxf6mlxlk8zdadvnktppkzqzj