Wie kann ich mit einem Excel-Makro ein Arbeitsblatt als Mail-Anhang versenden?

Antwort

Um mit einem Excel-Makro (VBA) eine Kopie deines Arbeitsblattes als Anhang einer E-Mail zu versenden, kannst du folgenden Ansatz nutzen. Das Beispiel verwendet Microsoft Outlook als E-Mail-Client und speichert das aktuelle Arbeitsblatt als temporäre Datei (z.B. als .xlsx), die dann als Anhang verschickt wird. **Wichtige Hinweise:** - Outlook muss installiert und eingerichtet sein. - Makros müssen aktiviert sein. - Der Code muss in ein Standardmodul eingefügt werden. **Beispielcode:** ```vba Sub BlattAlsAnhangSenden() Dim ws As Worksheet Dim wbTemp As Workbook Dim strDatei As String Dim olApp As Object Dim olMail As Object ' Arbeitsblatt festlegen (hier das aktive Blatt) Set ws = ActiveSheet ' Temporäre Datei erstellen strDatei = Environ$("temp") & "\" & ws.Name & ".xlsx" ws.Copy Set wbTemp = ActiveWorkbook wbTemp.SaveAs Filename:=strDatei, FileFormat:=xlOpenXMLWorkbook wbTemp.Close SaveChanges:=False ' Outlook-Objekt erstellen Set olApp = CreateObject("Outlook.Application") Set olMail = olApp.CreateItem(0) ' E-Mail erstellen With olMail .To = "empfaenger@example.com" .Subject = "Kopie des Arbeitsblattes: " & ws.Name .Body = "Im Anhang findest du das gewünschte Arbeitsblatt." .Attachments.Add strDatei .Display ' .Send für direktes Senden End With ' Temporäre Datei löschen Kill strDatei ' Objekte freigeben Set olMail = Nothing Set olApp = Nothing End Sub ``` **Anpassungen:** - Passe `.To` an die gewünschte Empfängeradresse an. - Du kannst `.Display` durch `.Send` ersetzen, um die Mail direkt zu versenden. **Weitere Hinweise:** - Für andere E-Mail-Programme (z.B. Thunderbird) ist zusätzlicher Aufwand nötig. - Bei Sicherheitsabfragen in Outlook kann ein Add-In wie [Outlook Redemption](https://www.dimastr.com/redemption/) helfen. **Weitere Infos:** - [Microsoft VBA-Dokumentation](https://learn.microsoft.com/de-de/office/vba/api/overview/excel) - [Outlook VBA Beispiele](https://docs.microsoft.com/de-de/office/vba/api/overview/outlook) Falls du ein anderes E-Mail-Programm nutzt, bitte dieses konkret benennen.

Kategorie: Software Tags: Excel Makro E-Mail
Frage stellen und sofort Antwort erhalten

Verwandte Fragen

Wie kann ich einem Makro in Excel vorgeben, immer am Tabellenende einen Eintrag zu machen?

Um einem Makro in Excel vorzugeben, immer an der untersten Stelle einer Tabelle (also in der ersten freien Zeile unterhalb der vorhandenen Daten) einen Eintrag zu machen, kannst du folgenden VBA-Code... [mehr]

Wie setze ich ein Makro in Excel ein?

Um ein Makro in Excel einzusetzen, gehst du wie folgt vor: 1. **Entwicklertools aktivieren** (falls noch nicht sichtbar): - Klicke auf „Datei“ > „Optionen“. - Wä... [mehr]

Wie kann ich in Excel nur Zellen mit einem Wert zählen?

Um in Excel nur die Zellen zu zählen, die einen Wert enthalten (also nicht leer sind), kannst du die Funktion `ANZAHL2` verwenden. Die Syntax lautet: ``` =ANZAHL2(Bereich) ``` **Beispiel:** W... [mehr]

Wie drucke ich in Excel vier Seiten auf ein Blatt aus?

Um in Excel vier Seiten auf einem Blatt auszudrucken, gehe wie folgt vor: 1. **Datei** > **Drucken** öffnen. 2. Im Druckmenü wähle deinen Drucker aus. 3. Klicke auf **Seite einricht... [mehr]

Welcher Shortcut fügt in Excel am schnellsten einen Seitenumbruch ein?

In Microsoft Excel kannst du mit der Tastenkombination **Strg + Umschalt + Enter** (auf englischen Tastaturen: **Ctrl + Shift + Enter**) keinen Seitenumbruch einfügen – das ist ein häu... [mehr]

Welche Excel-Shortcuts gibt es zum Einfügen einer Zeile und eines Seitenumbruchs?

In Excel gibt es folgende Tastenkombinationen (Shortcuts): **Zeile einfügen:** - **Windows:** 1. Ganze Zeile auswählen (z. B. mit **Shift + Leertaste**) 2. Dann **Strg + Shift + &qu... [mehr]

Wie kann man in XSuite eine E-Mail-Adresse aus der Absendermail in eine Textvorlage programmieren?

Um eine E-Mail-Adresse aus einer Absendermail in einer Textvorlage in XSuite (einer Softwarelösung für Dokumentenmanagement und Workflow-Automatisierung) zu extrahieren und zu verwenden, geh... [mehr]

Kann ich in Excel eine gefilterte Tabelle markieren und in alle sichtbaren Zeilen einen Seitenumbruch einfügen?

In Excel kannst du gefilterte Zeilen markieren und dann bestimmte Aktionen auf diese anwenden. Allerdings gibt es für das Einfügen von Seitenumbrüchen in alle gefilterten Zeilen keine d... [mehr]

Gibt es in Excel eine Funktion für einen bedingten Seitenumbruch?

In Excel gibt es keine direkte Funktion wie „SEITENUMBRUCHWENN“, mit der du automatisch einen Seitenumbruch basierend auf einer Bedingung in einer Zelle einfügen kannst. Seitenumbr&uu... [mehr]

Warum werden beim automatisierten Öffnen einer PowerPoint-Datei mit Excel VBA die Verknüpfungen nicht aktualisiert?

Wenn du per VBA aus Excel heraus eine PowerPoint-Datei automatisiert öffnest, werden die Verknüpfungen (z.B. zu Excel-Tabellen, Diagrammen oder anderen eingebetteten/gelinkten Objekten) stan... [mehr]