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
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 Auswahl 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 Sub
Hinweis: 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 senden Schaltfläche zum Senden der E-Mail. Siehe Screenshot:
Hinweis: Der VBA-Code funktioniert nur, wenn Sie Outlook als E-Mail-Programm verwenden.
