Note: The other languages of the website are Google-translated. Back to English

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 Sub

Hinweis: 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:


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.
kte tab 201905

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!
officetab unten
Kommentare (14)
Bewertet 5 aus 5 · 1 Bewertungen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich kann mit den obigen Schritten "Schnell E-Mails mit mehreren Anhängen in Excel mit Kutools für Excel senden", möchte aber noch einen Schritt weiter gehen und jede E-Mail personalisieren, indem ich ihre Namen einfüge (aus einer Spalte in der Excel-Tabelle). in den Text der E-Mail. Während ich mich im Text der E-Mail befinde, versuche ich, das Feld auszuwählen und auf „Platzhalter einfügen“ zu klicken, aber nichts passiert. Irgendeine Idee warum oder wie ich das beheben kann? Danke!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Was ist, wenn sich die oben genannten Dateien in Unterordnern befinden? Wie suche ich nach einer Datei in Ordnern und Unterordnern?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Was ist, wenn mehrere unterschiedliche Benutzer und unterschiedliche Anhänge mit unterschiedlichen Betreffzeilen gesendet werden sollen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Der obige Code funktioniert perfekt, danke !! aber meine automatische E-Mail-Signatur scheint mit diesem Code zu verschwinden. eine Ahnung warum?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Team ... ich kann den Anhang in der E-Mail nicht sehen. Wenn ich also Ihrem Schritt folge ... können Sie mir bitte helfen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hervorragend...... Funktioniert perfekt.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe es genossen, diese Lösung zum Hinzufügen mehrerer Anhänge zu einer E-Mail aus Excel VBA heraus durchzuarbeiten. Danke. Ich weiß, dass viele von uns davon profitieren und dann einen Aspekt wünschen, der genau auf das zugeschnitten ist, was wir zu tun versuchen. Ich bin nicht anders, aber für Schritt 8. Können wir den Pfad festlegen, dass die Entdecken Fenster öffnet sich mit? Ich kann zu einem anderen Ordner an einem anderen Ort wechseln, aber wenn ich den Pfad festlegen könnte, wäre das eine Zeitersparnis.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Me gustaría saber como quedaría la macro si quisiera enviar en un mismo correo a varias personas o más y con varios ficheros o más.
Vielen Dank.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ist het ook mogelijk om een ​​filter te zetten op de selectie van de bijlagen, zodat er alleen pdf-bestanden aan de mail kunnen worden toegevoegd?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Alex de Graaf,
Der Code ruft direkt das Dateiauswahlfenster von Microsoft auf. Dies erleichtert VBA-Benutzern die Auswahl benötigter Dateien.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Kristall,

Ja ich verstehe das. Ich möchte jedoch, dass die Benutzer nur PDF-Dateien auswählen können.
Ist das möglich?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Alex de Graaf,
Der folgende VBA-Code listet nur die PDF-Dateien im Fenster „Durchsuchen“ auf. Bitte versuchen Sie es.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220714
    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)
    xFileDlg.Filters.Add "PDF", "*.pdf", 1
xFileDlg.FilterIndex = 1
    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 Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Kristall,
Ja, das verstehe ich. Ist es jedoch möglich, Benutzer darauf zu beschränken, nur PDF-Dateien auszuwählen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
أريد إرسال بريد إلكتروني مع البريد أو hotmail مع CDO ولكن كل ما لدي فقط مع مرفق واحد ولكن أريد أن أرسل مع العديد من المرفقات يرجى إرسال لي عن طريق بريدي الإلكتروني الرمز أو ملف Excel naims62@hotmail.com
Bewertet 5 aus 5
Es sind noch keine Kommentare vorhanden

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL