Wie sendet man eine E-Mail mit HTML-E-Mail-Text in Excel?
Wenn Sie eine E-Mail mit HTML-formatiertem Inhalt in Excel senden möchten, kann Ihnen eine Methode in diesem Artikel helfen.
E-Mail mit HTML-E-Mail-Text mit VBA-Code senden
E-Mail mit HTML-E-Mail-Text mit VBA-Code senden
Bitte folgen Sie den nachstehenden Schritten, um eine E-Mail mit HTML-formatiertem Inhalt in Excel zu senden.
1. Drücken Sie gleichzeitig Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie im Microsoft Visual Basic for Applications-Fenster auf Einfügen > Modul. Kopieren Sie dann den folgenden VBA-Code in das Modul-Fenster.
VBA-Code: E-Mail mit HTML-E-Mail-Text in Excel senden
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:
3. Klicken Sie auf Extras > Verweise, aktivieren Sie das Kontrollkästchen Microsoft Outlook Object Library im Dialogfeld Verweise – VAProject, und klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:
4. Drücken Sie die F5-Taste, um den Code auszuführen. Wählen Sie im erscheinenden Kutools für Excel-Dialogfeld die E-Mail-Adressen der Empfänger aus und klicken Sie dann auf die Schaltfläche OK.
Dann wird eine E-Mail mit den angegebenen Feldern und dem HTML-Text erstellt. Klicken Sie bitte auf die Schaltfläche Senden, um sie zu versenden.
E-Mails einfach über Outlook basierend auf einer erstellten Mailingliste senden:
Das E-Mails senden Tool von Kutools for Excel hilft Benutzern, E-Mails über Outlook basierend auf einer in Excel erstellten Mailingliste zu versenden, wie im folgenden Screenshot gezeigt.
Jetzt herunterladen und ausprobieren! (30-tägige kostenlose Testversion)
Verwandte Artikel:
- Wie sendet man automatisch eine E-Mail basierend auf einem Zellenwert in Excel?
- Wie fügt man beim Senden per VBA in Excel eine Signatur in eine Outlook-E-Mail ein?
- Wie sendet man eine E-Mail mit einem bestimmten Fett/Schriftgröße/Farbe/Unterstrichen-Textformat in Excel?
- Wie sendet man eine E-Mail ohne Outlook in Excel?
- Wie sendet man ein bestimmtes Diagramm per E-Mail mit VBA in Excel?
- Wie sendet man eine E-Mail zu einer bestimmten Tageszeit in Excel?
Beste Büroproduktivitätswerkzeuge
Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
- Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!