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 Sub

Hinweis: 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?