Wie sende ich eine E-Mail über Outlook, wenn die Arbeitsmappe in Excel gespeichert ist?
In diesem Artikel wird das Senden einer E-Mail über Outlook behandelt, wenn eine bestimmte Arbeitsmappe in Excel gespeichert wird. Bitte machen Sie, wie das Tutorial zeigt.
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
Gehen Sie wie folgt vor, um eine E-Mail über Outlook zu senden, wenn die Arbeitsmappe in Excel gespeichert ist.
1. Bitte speichern Sie die Arbeitsmappe zunächst als Excel Macro-Enabled Workbook. Klicken Reichen Sie das > Speichern unter. In dem Speichern unter Wählen Sie im Dialogfeld einen Ordner zum Speichern der Arbeitsmappe aus, benennen Sie ihn im Feld Dateiname und wählen Sie Excel Makroaktivierte Arbeitsmappe von dem Speichern als Typ Dropdown-Liste, und klicken Sie dann auf Speichern Taste. Siehe Screenshot:
2. Öffnen Sie die Excel Macro-Enabled Workbook, die Sie gerade gespeichert haben, und drücken Sie die Taste Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Fenster, bitte doppelklicken DiesesWorkbook Kopieren Sie dann in der linken Leiste den folgenden VBA-Code und fügen Sie ihn in die ein DiesesWorkbook Codefenster. Siehe Screenshot:
VBA-Code: Senden Sie eine E-Mail, 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: Bitte ersetzen Sie die E-Mail Adresse mit der E-Mail-Adresse des Empfängers in der Zeile .To = "E-Mail-Adresse" und Ändern Sie die Felder Cc, Subject und body im VBA-Code nach Bedarf.
3. Drücken Sie die Taste Andere + Q Tasten gleichzeitig zum Schließen der Microsoft Visual Basic für Applikationen Fenster.
Wenn Sie die Arbeitsmappe von nun an aktualisieren und speichern, wird automatisch eine E-Mail mit angehängter aktualisierter Arbeitsmappe erstellt. Bitte klicken Sie auf Absenden Schaltfläche zum Senden der E-Mail. Siehe Screenshot:
Hinweis: Der VBA-Code funktioniert nur, wenn Sie Outlook als E-Mail-Programm verwenden.
In Verbindung stehende Artikel:
- Wie sende ich automatisch E-Mails basierend auf dem Zellenwert in Excel?
- Wie sende ich eine E-Mail, wenn eine bestimmte Zelle in Excel geändert wird?
- Wie sende ich eine E-Mail, wenn in Excel auf die Schaltfläche geklickt wird?
- Wie sende ich eine E-Mail, wenn das Fälligkeitsdatum in Excel erreicht wurde?
- Wie sende ich eine E-Mail-Erinnerung oder Benachrichtigung, wenn die Arbeitsmappe in Excel aktualisiert wird?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools for Excelund erleben Sie Effizienz wie nie zuvor. Kutools for Excel Bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt eine Tab-Oberfläche in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
