Wie sendet man eine E-Mail über Outlook, wenn die Arbeitsmappe in Excel gespeichert wird?
Diese Anleitung zeigt, wie Sie automatisch eine E-Mail über Outlook senden können, sobald eine bestimmte Arbeitsmappe in Excel gespeichert wird. Mit einem einfachen VBA-Code können Sie sicherstellen, dass Updates Ihrer Arbeitsmappe nahtlos geteilt werden.
E-Mail über Outlook senden, wenn die Arbeitsmappe mit VBA-Code gespeichert wird
E-Mail über Outlook senden, wenn die Arbeitsmappe mit VBA-Code gespeichert wird
Um eine E-Mail über Outlook zu senden, wenn die Arbeitsmappe in Excel gespeichert wird, gehen Sie bitte wie folgt vor.
1. Speichern Sie zunächst die Arbeitsmappe als Makro-fähige Excel-Arbeitsmappe. Klicken Sie auf Datei > Speichern unter. Wählen Sie im Dialogfeld „Speichern unter“ einen Ordner aus, um die Arbeitsmappe zu speichern, geben Sie einen Namen im Feld Dateiname ein, wählen Sie Makro-fähige Excel-Arbeitsmappe aus der Dropdown-Liste „Speichern im Format“ aus und klicken Sie dann auf die Schaltfläche Speichern. Siehe Screenshot:
2. Öffnen Sie die soeben gespeicherte makrofähige Excel-Arbeitsmappe, und drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Doppelklicken Sie im Fenster Microsoft Visual Basic for Applications auf ThisWorkbook in der linken Leiste, kopieren Sie den folgenden VBA-Code, und fügen Sie ihn in das Codefenster von ThisWorkbook ein. Siehe Screenshot:
VBA-Code: E-Mail senden, wenn die Arbeitsmappe gespeichert wird
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.CC = ""
.Subject = "The workbook has been saved"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
.Attachments.Add xName
.Display
'.send
End With
Set xMailItem = Nothing
Set xOutApp = Nothing
End SubHinweis: Ersetzen Sie Email Address durch die E-Mail-Adresse des Empfängers in der Zeile .To = "Email Address". Passen Sie die Felder Cc, Betreff und Text im VBA-Code bei Bedarf an.
3. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.
Ab sofort wird jedes Mal, wenn Sie die Arbeitsmappe aktualisieren und speichern, automatisch eine E-Mail mit der aktualisierten Arbeitsmappe als Anhang erstellt. Klicken Sie bitte auf die Schaltfläche Senden, um die E-Mail zu versenden. Siehe Screenshot:
Hinweis: Dieser VBA-Code funktioniert nur, wenn Sie Outlook als Ihr E-Mail-Programm verwenden.
Verwandte Artikel:
- Wie sendet man automatisch eine E-Mail basierend auf einem Zellenwert in Excel?
- Wie sendet man eine E-Mail, wenn eine bestimmte Zelle in Excel geändert wird?
- Wie sendet man eine E-Mail, wenn in Excel ein Button geklickt wird?
- Wie sendet man eine E-Mail, wenn ein Fälligkeitsdatum in Excel erreicht wurde?
- Wie sendet man eine E-Mail-Erinnerung oder Benachrichtigung, wenn eine Arbeitsmappe in Excel aktualisiert wird?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins