Wie sende ich E-Mails mit HTML-E-Mail-Text in Excel?
Wenn Sie eine E-Mail mit Textinhalten im HTML-Format 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
Gehen Sie wie folgt vor, um eine E-Mail mit Textinhalten im HTML-Format in Excel zu senden.
1. Drücken Sie die Taste Andere + F11 gleichzeitig zu öffnen Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Modulfenster.
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
Notizen:
3 Klicken Tools > Bibliographie, Überprüf den Microsoft Outlook-Objektbibliothek Box in der Referenzen - VAProject Dialogfeld, und klicken Sie dann auf OK Taste. Siehe Screenshot:
4. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Beim Auftauchen Kutools for Excel Wählen Sie im Dialogfeld die E-Mail-Adressen der Empfänger aus und klicken Sie auf OK .
Anschließend wird eine E-Mail mit den angegebenen Feldern und dem HTML-Text erstellt. Bitte klicken Sie auf Absenden Taste, um es zu senden.
Senden Sie einfach E-Mails über Outlook basierend auf der 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 (siehe Abbildung unten).
Jetzt herunterladen und ausprobieren! (30 Tage kostenloser Trail)
In Verbindung stehende Artikel:
- Wie sende ich automatisch E-Mails basierend auf dem Zellenwert 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 mit dem angegebenen Fett- / Größen- / Farb- / Unterstreichungs-Textformat in Excel?
- Wie sende ich E-Mails ohne Outlook in Excel?
- Wie sende ich ein bestimmtes Diagramm in einer E-Mail mit vba in Excel?
- Wie sende ich eine E-Mail zu einer bestimmten Tageszeit in Excel?
Beste Office-Produktivitätstools
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
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!