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 > Referenzen 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 = "happy.xuebi@163.com"
.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 SubHinweis: Bitte geben Sie Ihren E-Mail-Empfänger, Betreff und Text an, indem Sie die Variable in ändern .An = happy.xuebi@163.com, .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 Senden Taste, um es zu senden. Siehe Screenshot:
Hinweis: 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.
Jetzt herunterladen und ausprobieren! (30-Tag kostenlose Loipe)
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?
Die besten Tools für die Office-Produktivität
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
- Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
- Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
- Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
- Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
- Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
- Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
- Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
- Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
- Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
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!
