In diesem Artikel erstellen wir ein Makro, um ein Blatt als Anhang in einer E-Mail zu senden.
Vor dem Ausführen des Makros müssen wir eine E-Mail-ID und einen Betreff der E-Mail angeben.
In diesem Beispiel möchten wir „DataSheet“ als Anhang in der E-Mail versenden.
Logikerklärung
Wir haben das Makro „MailSheet“ erstellt, das die E-Mail-ID und den Betreff der E-Mail aus Textfeldern übernimmt. Es erstellt eine neue Kopie von „DataSheet“, speichert es und sendet es als Anhang.
Codeerklärung
Sheets("Datenblatt").Copy
Der obige Code wird verwendet, um eine Kopie von „DataSheet“ in einer neuen Arbeitsmappe zu erstellen.
ActiveWorkbook.SaveAs "Teil von " & ThisWorkbook.Name _
& " " & StrDate & ".xls"
Der obige Code wird verwendet, um die neue Arbeitsmappe zu speichern.
ActiveWorkbook.SendMail EmailID, MailSubject
Der obige Code wird verwendet, um die aktive Arbeitsmappe als Anhang an die angegebene E-Mail-ID mit dem angegebenen Betreff zu senden.
ActiveWorkbook.Close False
Der obige Code wird verwendet, um die aktive Arbeitsmappe zu schließen, ohne sie zu speichern.
Bitte folgen Sie unten für den Code
Sub MailSheet() 'Variablen deklarieren Dim StrDate, EmailID, MailSubject As String 'Wert für E-Mail-ID und Betreff aus Textfeldern abrufen EmailID = Sheet1.TextBox1.Value MailSubject = Sheet1.TextBox2.Value 'Kopieren von "DataSheet" in neue Arbeitsmappe Sheets(" DataSheet). SaveAs "Teil von " & ThisWorkbook.Name _ & " " & StrDate & ".xls" 'E-Mail senden ActiveWorkbook.SendMail EmailID, MailSubject 'Aktive Arbeitsmappe schließen ActiveWorkbook.Close False End Sub
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site