hat jemand einen VBA Code parat um eine Excel Tabelle mit Outlook zu senden?
Die E-Mail Adresse und Betreff sollte auch im Code hinterlegt werden.
Vielen Dank.
Grüße
Amintire
Sub Excel_Workbook_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "irgendwer@provider"
.Subject = "Testmeldung von Excel2000 " & Date & Time
.attachments.Add AWS
.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'Mail.Send
End With
'Outlook schliessen
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Um ein einzelnes Excel-Blatt per Mail zu versenden, kannst du VBA (Visual Basic for Applications) nutzen. Hier ist eine kurze Schritt-für-Schritt-Anleitung:
Öffne Excel und drücke ALT + F11
, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
Einfügen
> Modul
.Kopiere den folgenden Code in das Modul:
Sub Excel_Workbook_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "deineemail@provider.com" ' E-Mail-Adresse hier eingeben
.Subject = "Testmeldung von Excel " & Date & Time
.Attachments.Add AWS
.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
.Display ' Zeigt die E-Mail an
' .Send ' Uncomment this line to send the email directly
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Passe die E-Mail-Adresse und den Betreff an.
Führe das Makro aus, um das Excel-Blatt zu versenden.
Fehler '424: Objekt erforderlich':
.Send
ohne das Wort Mail
verwendest. Ändere die Zeile zu .Send
.E-Mail wird nicht gesendet:
.Display
in .Send
änderst, um die E-Mail direkt zu senden.Outlook schließt sich nach dem Senden:
OutApp.Quit
, damit Outlook geöffnet bleibt.Wenn du kein VBA verwenden möchtest, kannst du auch Folgendes tun:
Excel nur ein Blatt versenden:
Screenshot des Blattes:
Einzelnes Tabellenblatt per Mail versenden: Angenommen, du hast eine Tabelle mit Verkaufszahlen. Du kannst das Tabellenblatt "Verkäufe" kopieren und es in eine neue Excel-Datei einfügen. Dann kannst du diese Datei per E-Mail versenden.
Excel Einzelnes Tabellenblatt versenden: Verwende den oben genannten VBA-Code und passe ihn an, um nur das aktive Blatt zu senden, anstatt die gesamte Arbeitsmappe.
Makros automatisieren: Du kannst deine VBA-Makros so anpassen, dass sie automatisch ausgeführt werden, z.B. beim Öffnen der Datei.
E-Mail mit CC/BCC:
Füge zusätzliche Empfänger hinzu, indem du .CC
oder .BCC
zur E-Mail hinzufügst:
.CC = "ccemail@provider.com"
.BCC = "bccemail@provider.com"
Export als PDF: Wenn du nur das Tabellenblatt als PDF versenden möchtest, kannst du das Dokument zuerst als PDF speichern und dann als Anhang an die E-Mail hinzufügen.
1. Wie sende ich nur ein bestimmtes Blatt in Excel?
Du kannst das gewünschte Blatt in ein neues Dokument kopieren und dann mit dem oben beschriebenen VBA-Code versenden.
2. Funktioniert das auch auf einem Mac?
Ja, du kannst VBA verwenden, um ein Excel-Tabellenblatt per Mail zu versenden. Achte jedoch darauf, dass die Makros in deiner Mac-Version aktiviert sind.
3. Welche Excel-Version wird benötigt?
Der VBA-Code funktioniert in den meisten modernen Excel-Versionen, einschließlich Excel 2013, 2016, 2019 und Microsoft 365.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen