KutoolsforOffice — Eine Lösung, fünf leistungsstarke Tools.Mehr erreichen mit weniger Aufwand.März-Aktion: 20 % Rabatt

Wie versendet man aus Excel heraus eine E-Mail mit mehreren Anhängen?

AutorSiluvia Änderungsdatum

Dieser Artikel zeigt, wie Sie direkt aus Excel heraus eine E-Mail über Outlook mit mehreren Anhängen versenden.

Senden einer E-Mail mit mehreren Anhängen aus Excel mithilfe von VBA-Code

Senden einer E-Mail mit mehreren Anhängen aus Excel mithilfe von VBA-Code

Führen Sie die folgenden Schritte aus, um eine E-Mail mit mehreren Anhängen direkt aus Excel zu versenden.

1. Fügen Sie eine Befehlsschaltfläche ein, indem Sie auf Entwickler > Einfügen > Befehlsschaltfläche (ActiveX-Steuerelement) klicken. Siehe Screenshot:

Klicken Sie auf die Befehlsschaltfläche im Entwickler-Tab

2. Klicken Sie nach dem Einfügen der Befehlsschaltfläche mit der rechten Maustaste darauf und wählen Sie im Kontextmenü Code anzeigen.

Wählen Sie „Code anzeigen“ aus dem Kontextmenü

3. Klicken Sie im geöffneten Fenster Microsoft Visual Basic für Applikationen auf Extras > Verweise, wie im folgenden Screenshot gezeigt.

Klicken Sie auf Extras > Verweise

4. Suchen Sie im Dialogfeld Verweise – VBAProject die Option Microsoft Outlook-Objektbibliothek, aktivieren Sie diese und klicken Sie anschließend auf die Schaltfläche OK.

Aktivieren Sie die Option „Microsoft Outlook-Objektbibliothek“ im Dialogfeld

5. Ersetzen Sie anschließend den ursprünglichen Code im Codefenster durch den folgenden VBA-Code.

VBA-Code: Senden einer E-Mail mit mehreren Anhängen aus Excel

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: Geben Sie Ihren E-Mail-Empfänger, Betreff und Nachrichtentext an, indem Sie die Variablen in den Zeilen .To = happy.xuebi@163.com, .Subject = „test" und .HTMLBody = „test" im Code ändern.

6. Drücken Sie die Tastenkombination Alt+Q, um das Fenster Microsoft Visual Basic für Applikationen zu schließen.

7. Klicken Sie auf Entwickler > Entwurfsmodus, um den Entwurfsmodus zu deaktivieren. Siehe Screenshot:

Klicken Sie auf den Entwurfsmodus, um diesen zu deaktivieren

8. Klicken Sie auf die Befehlsschaltfläche, um den Code auszuführen. Wählen Sie im erscheinenden Durchsuchen-Fenster die Dateien aus, die Sie der E-Mail beifügen möchten, und klicken Sie anschließend auf die Schaltfläche OK. Siehe Screenshot:

Führen Sie den Code aus, um die Dateien auszuwählen, die Sie an die E-Mail anhängen möchten

9. Es wird nun eine E-Mail mit den angegebenen Feldern und Anhängen erstellt. Klicken Sie auf die Schaltfläche Senden, um sie zu versenden. Siehe Screenshot:

Eine E-Mail wird mit den angegebenen Feldern und aufgelisteten Anhängen erstellt

Hinweis: Der VBA-Code funktioniert nur, wenn Sie Outlook als Ihr E-Mail-Programm verwenden.

Senden Sie ganz einfach E-Mails über Outlook basierend auf der in Excel erstellten E-Mail-Liste.

Mit dem E-Mails senden-Tool von Kutools für Excelkönnen Benutzer ganz einfach E-Mails über Outlook versenden – basierend auf einer in Excel erstellten E-Mail-Liste.
Laden Sie es jetzt herunter und testen Sie es! (30-tägige kostenlose Testversion))

E-Mail mit Anhängen per Kutools senden

Verwandte Artikel:

Beste Office-Produktivitätstools

🤖KUTOOLS AI-Assistent: Revolutionieren Sie Datenanalyse basierend auf:Intelligente Ausführung   |  Code generieren|  benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme erstellen|  Erweiterte Funktionen aufrufen…
Beliebte Funktionen:Suchen, hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten kombinieren oder Zellen ohne Datenverlust   |   Runden ohne Formel...
Erweiterte SVERWEIS:VLookup mit mehreren Kriterien  |  VLookup mit mehreren Werten  |   VLookup über mehrere Arbeitsblätter hinweg   |   Fuzzy Match....
Erweiterte Dropdown-Liste:Schnell eine Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl-Dropdown-Liste....
Spalten-Manager:Eine bestimmte Anzahl von Spalten hinzufügen|Spalten verschieben|Sichtbarkeitsstatus ausgeblendeter Spalten umschalten|Bereiche & Spalten vergleichen...
Hervorgehobene Funktionen:Gitterfokus   |  Entwurf   |Erweiterte Formelleiste   | Arbeitsmappen- & Blatt-Manager   |  Ressourcenbibliothek(AutoText)|  Datumsauswahl   |  Arbeitsblätter konsolidieren  |  Verschlüsseln/Zellen entschlüsseln   | E-Mails per Liste versenden   |  Super Filter   |   Spezialfilter(Zellen mit fettgedruckter Schrift filtern/kursiv/durchgestrichen...) ...
Top-15-Toolsets:12-Text-Tools(Text hinzufügen,Bestimmte Zeichen löschen, ...)|   50+-Diagramm-Typen(Gantt-Diagramm, ...)|   40+ Praktische Formeln(Alter basierend auf dem Geburtstag berechnen, ...)|   19-Einfüge-Tools(QR-Code einfügen,Bild aus Pfad einfügen, ...)|   12-Konvertierungs-Tools(In Wörter umwandeln,Wechselkursumrechnung, ...)|   7-Vereinigen/Aufteilen-Tools(Erweiterte Zeilen zusammenführen,Zellen aufteilen, ...)|... und mehr
Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und 40+ weitere Sprachen!

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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...

Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher

  • Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
  • Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!

Alle Kutools-Add-Ins – ein Installationsprogramm

Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.

ExcelWordOutlookTabsPowerPoint
  • Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
  • Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
  • Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
  • 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
  • Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins