Excel Makro Email Mit Anhang Erstellen

Es gibt Situationen, wo Du gerne Daten oder Tabellen direkt aus Excel per E-mail versenden möchtest. Du kannst natürlich hergehen und die Exceldatei speichern. Dann ins Outlook Programm gehen, die Due east-Postal service erstellen und dann die Exceldatei als Anhang anhängen. Wenn Du diesen Vorgang aber mehrfach machen musst, kann das ganze ziemlich lästig werden. Deshalb gibt es die Möglichkeit eine vordefinierte Mail in Excel zu erstellen und diese dann über das Standardkonto in Outlook zu versenden. Der Vorteil dieser Methode ist, das Outlook nicht einmal gestartet sein muss.

Aufbau und Programmierung

In den nächsten Schritten zeige ich, wie eine East-Post per Knopfdruck aus einem Excel-Tabellenblatt heraus versendet wird. Dazu öffnest Du Dein Excel mit einer neuen leeren Arbeitsmappe. Als nächstes musst Du einen Formular Push button erstellen. Dieses kannst Du über das Symbol Einfügen im Reiter Entwicklertools. Über den folgenden Dialog wird ein Makro der erstellen Schaltfläche zugewiesen oder neu erstellt :

Bitte erstelle das Makro über den Button Neuund Du gelangst direkt in den Visual Bones Editor. In dem neuen Fenster siehst Du jetzt eine leere Funktion mit dem Makronamen aus dem obenstehenden Bild. Vervollständige nun Deine Funktion, mit den folgenden Zeilen :

          On Mistake GoTo ErrHandler          ' SET Outlook Awarding OBJECT.     Dim objOutlook Every bit Object     Prepare objOutlook = CreateObject("Outlook.Application")          ' CREATE Email OBJECT.     Dim objEmail As Object     Gear up objEmail = objOutlook.CreateItem(olMailItem)      With objEmail         .to = "empfaenger@domain.tld"         .Field of study = "Das ist eine Testnachricht von einem Excel Makro"         .Body = "Hallo Welt !!" '        .Display '        .Attachments.Add ("D:\Bild.png")         .Send     Cease With          ' CLEAR.     Gear up objEmail = Nothing:    Set objOutlook = Nil      ErrHandler:

Wenn Du nun alles richtig gemacht hast, sollte Deine Funktion nun wie folgt aussehen :

Sub Schaltfläche1_Klicken()     On Error GoTo ErrHandler          ' Gear up Outlook APPLICATION OBJECT.     Dim objOutlook As Object     Set objOutlook = CreateObject("Outlook.Application")          ' CREATE Email OBJECT.     Dim objEmail Every bit Object     Fix objEmail = objOutlook.CreateItem(olMailItem)      With objEmail         .to = "empfaenger@domain.tld"         .Subject area = "Das ist eine Testnachricht von einem Excel Makro."         .Body = "Hallo Welt !!" '        .Display '        .Attachments.Add ("D:\Bild.png")         .Transport     Stop With          ' Clear.     Gear up objEmail = Nothing:    Set objOutlook = Nothing      ErrHandler:  Stop Sub

Um die erstellte Email anzuzeigen und nicht zu versenden, muss die Zeile .Display auskommentiert und die Zeile .Send kommentiert werden. Denn der Befehl .Display zeigt Dir die East-Mail service in einem Outlook Fenster an, so dass Du nochmal kontrollieren kannst, bevor Du die Electronic mail versenden möchtest. Über dice Zeile .Zipper kannst Du Anhänge an dice E-Mail hängen. Das können Bilder oder auch andere Dokumente sein. Dazu musst Du nur den entsprechenden Pfad zu dem Dokument angeben. Mit der Zeile .Ship weißt an, dass die E-Mail sofort und direkt über Outlook versendet.

Egal, wie die E-Mails versendet werden, ob automatisch oder manuell nach der Erstellung, alle E-Mails werden in dem Gesendet-Ordner abgelegt auch bei geschlossenem Outlook.

Source: https://www.vba-hexerei.de/2017/09/15/eine-e-mail-versenden-von-excel-mit-outlook/

Posted by: nolangoormes.blogspot.com