Wie sende ich E-Mails mit mehreren Anhängen in Excel?
In diesem Artikel wird über das Senden einer E-Mail über Outlook mit mehreren in Excel angehängten Anhängen gesprochen.
Senden Sie E-Mails mit mehreren Anhängen in Excel mit VBA-Code
Senden Sie E-Mails mit mehreren Anhängen in Excel mit VBA-Code
Gehen Sie wie folgt vor, um eine E-Mail mit mehreren in Excel angehängten Anhängen zu senden.
1. Bitte fügen Sie eine Befehlsschaltfläche ein, indem Sie auf klicken Entwickler:in / Unternehmen > Insert > Befehlsschaltfläche (ActiveX Control). Siehe Screenshot:
2. Klicken Sie nach dem Einfügen der Befehlsschaltfläche mit der rechten Maustaste darauf und wählen Sie Code anzeigen in dem Kontextmenü.
3. In der Öffnung Microsoft Visual Basic für Applikationen Fenster, bitte klicken Tools > Bibliographie wie unten Screenshot gezeigt.
4. In dem Referenzen - VBAProject Dialogfeld finden und überprüfen Sie die Microsoft Outlook-Objektbibliothek Option, und klicken Sie dann auf OK .
5. Ersetzen Sie dann den Originalcode im Codefenster durch den folgenden VBA-Code.
VBA-Code: E-Mail mit mehreren Anhängen in Excel senden
Private Sub CommandButton1_Click()
Dim xStrFile As String
Dim xFilePath As String
Dim xFileDlg As FileDialog
Dim xFileDlgItem As Variant
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xMailOut = xOutApp.CreateItem(olMailItem)
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
If xFileDlg.Show = -1 Then
With xMailOut
.BodyFormat = olFormatRichText
.To = ""
.Subject = "test"
.HTMLBody = "test"
For Each xFileDlgItem In xFileDlg.SelectedItems
.Attachments.Add xFileDlgItem
Next xFileDlgItem
.Display
End With
End If
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub
Note: Bitte geben Sie Ihren E-Mail-Empfänger, Betreff und Text an, indem Sie die Variable in ändern .An = , .Subject = "test" und .HTMLBody = "test" Zeilen im Code.
6. Drücken Sie die Taste Andere + Q Tasten zusammen, um die zu verlassen Microsoft Visual Basic für Applikationen Fenster.
7 Klicken Entwickler:in / Unternehmen > Entwurfsmodus um den Entwurfsmodus auszuschalten. Siehe Screenshot:
8. Klicken Sie auf die Befehlsschaltfläche, um den Code auszuführen. Beim Auftauchen Entdecken Wählen Sie im Fenster die Dateien aus, die Sie in die E-Mail einfügen möchten, und klicken Sie dann auf OK Taste. Siehe Screenshot:
9. Anschließend wird eine E-Mail mit den angegebenen Feldern und Anhängen erstellt. Bitte klicken Sie auf Absenden Taste, um es zu senden. Siehe Screenshot:
Note: Der VBA-Code funktioniert nur, wenn Sie Outlook als E-Mail-Programm verwenden.
Senden Sie E-Mails einfach über Outlook basierend auf den Feldern der in Excel erstellten Mailingliste:
Das E-Mails senden Nutzen von Kutools for Excel Hilft Benutzern beim Senden von E-Mails über Outlook basierend auf der in Excel erstellten Mailingliste.
Laden Sie es jetzt herunter und probieren Sie es aus! (30 Tage kostenloser Trail)
In Verbindung stehende Artikel:
- Wie sende ich E-Mails an E-Mail-Adressen, die in Excel-Zellen angegeben sind?
- Wie sende ich eine E-Mail mit dem Kopieren und Einfügen eines bestimmten Bereichs in den E-Mail-Text in Excel?
- Wie füge ich beim Senden per VBA in Excel eine Signatur in eine Outlook-E-Mail ein?
- Wie sende ich eine E-Mail, wenn das Fälligkeitsdatum in Excel erreicht wurde?
- Wie sende ich automatisch E-Mails basierend auf dem Zellenwert in Excel?
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten 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!