Wie sendet man beim Speichern einer Arbeitsmappe in Excel automatisch eine E-Mail über Outlook?
Diese Anleitung zeigt Ihnen, wie Sie automatisch eine E-Mail über Outlook versenden, sobald eine bestimmte Excel-Arbeitsmappe gespeichert wird. Mit einem einfachen VBA-Code stellen Sie sicher, dass Aktualisierungen Ihrer Arbeitsmappe nahtlos geteilt werden.
Senden Sie eine E-Mail über Outlook, wenn die Arbeitsmappe mit VBA-Code gespeichert wird
Senden Sie eine E-Mail über Outlook, wenn die Arbeitsmappe mit VBA-Code gespeichert wird
Um beim Speichern der Arbeitsmappe in Excel automatisch eine E-Mail über Outlook zu versenden, gehen Sie bitte wie folgt vor.
1. Speichern Sie zunächst die Arbeitsmappe als makrofähige Excel-Arbeitsmappe. Klicken Sie auf Datei > Speichern unter. Wählen Sie im Dialogfeld Speichern unter einen Ordner zum Speichern der Arbeitsmappe aus, geben Sie einen Namen in das Feld „Dateiname“ ein, wählen Sie Excel-Arbeitsmappe mit Makros aus der Dropdown-Liste Speichern im Format aus und klicken Sie anschließend 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 in der linken Leiste auf DieseArbeitsmappe und fügen Sie anschließend den unten stehenden VBA-Code in das Codefenster von DieseArbeitsmappe ein. Siehe Screenshot:
VBA-Code: E-Mail beim Speichern der Arbeitsmappe versenden
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 E-Mail-Adresse durch die E-Mail-Adresse des Empfängers in der Zeile .To = „E-Mail-Adresse". Passen Sie bei Bedarf die Felder Cc, Betreff und Textkörper im VBA-Code 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 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 kann man automatisch eine E-Mail basierend auf einem Zellenwert in Excel versenden?
- Wie sendet man eine E-Mail, sobald sich eine bestimmte Zelle in Excel ändert?
- Wie sendet man eine E-Mail, sobald eine Schaltfläche in Excel angeklickt wird?
- Wie sendet man eine E-Mail, sobald das Fälligkeitsdatum in Excel erreicht ist?
- Wie sendet man eine E-Mail-Erinnerung oder -Benachrichtigung, sobald die Arbeitsmappe in Excel aktualisiert wurde?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins