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

Wie sendet man eine E-Mail mit HTML-formatiertem Textkörper aus Excel heraus?

AutorSiluvia Änderungsdatum

Wenn Sie eine E-Mail mit HTML-formatiertem Textinhalt aus Excel heraus versenden möchten, hilft Ihnen die in diesem Artikel beschriebene Methode weiter.

E-Mail mit HTML-E-Mail-Textkörper mithilfe von VBA-Code versenden

E-Mail mit HTML-E-Mail-Textkörper mithilfe von VBA-Code versenden

So versenden Sie eine E-Mail mit HTML-formatiertem Textinhalt direkt aus Excel heraus.

1. Drücken Sie gleichzeitig Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Einfügen > Modul. Anschließend kopieren Sie den unten stehenden VBA-Code in das Modulfenster.

VBA-Code: E-Mail mit HTML-E-Mail-Textkörper in Excel versenden

Sub SendEmailformattext()
'Update by Extendoffice.com
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
             .Display
                .To = xRgVal
                .Subject = "Test"
                .HTMLBody = "<HTML><BODY><span style=""color:#80BFFF"">Font Color</span style=""color:#80BFFF""> <br>the <b>bold text</b> here.</br> <br><u>New line with underline</u></br><br><p style='font-family:calibri;font-size:25'>Font size</br></p></BODY></HTML>"
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Hinweise:

1) Ersetzen Sie die Zeile .Subjectdurch Ihren eigenen Betreff.
2) In der Zeile .HTMLBody:
2,1)...ist das Textfarbformat;
2,2)…kann Ihren Text fett darstellen;
2,3) Wenn Sie einen Zeilenumbruch beginnen möchten, schließen Sie den Zeilenumbruch-Text bitte mit …ein;
2,4) Unterstreichen Sie Ihren Text mit …;
2,5) Und ändern Sie Ihre Textgröße mit ….

3. Klicken Sie auf Extras > Verweise, aktivieren Sie das Kontrollkästchen Microsoft Outlook-Objektbibliothek im Dialogfeld Verweise – VAProject und klicken Sie anschließend auf die Schaltfläche OK. Siehe Screenshot:

Klicken Sie auf Extras > Verweise und aktivieren Sie das Kontrollkästchen Microsoft Outlook-Objektbibliothek.

4. Drücken Sie die Taste F5, um den Code auszuführen. Wählen Sie im daraufhin erscheinenden Dialogfeld Kutools für Excel die Empfänger-E-Mail-Adresse aus und klicken Sie auf die Schaltfläche OK.

VBA-Code zum Auswählen der E-Mail-Adressen

Anschließend wird eine E-Mail mit den angegebenen Feldern und dem HTML-Textkörper erstellt. Klicken Sie auf die Schaltfläche Senden, um sie zu versenden.

E-Mail mit angegebenen Feldern und HTML-Textkörper wird erstellt

E-Mail ganz einfach über Outlook auf Grundlage der erstellten E-Mail-Liste versenden:

Mit dem E-Mails versenden-Tool von Kutools für Excel können Benutzer ganz einfach E-Mails über Outlook auf Basis einer in Excel erstellten E-Mail-Liste versenden – wie im folgenden Screenshot gezeigt.
Jetzt herunterladen und ausprobieren! (30-tägige kostenlose Testversion)

Mehrere E-Mails über Outlook mithilfe von Kutools versenden

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