Direkt zum Inhalt

Wie sende ich eine E-Mail mit dem angegebenen Fett- / Größen- / Farb- / Unterstreichungs-Textformat in Excel?

Das HTML-Body-Format kann die E-Mail bereichern und das Lesen erleichtern. In diesem Artikel wird über das Senden einer E-Mail mit einem E-Mail-Text im HTML-Format in Excel gesprochen, indem Fettdruck, Unterstreichung sowie die angegebene Größe und das angegebene Farbtextformat hinzugefügt werden.

Senden Sie eine E-Mail mit dem angegebenen Fett- / Größen- / Farb- / Unterstreichungs-Textformat mit VBA-Code


Senden Sie eine E-Mail mit dem angegebenen Fett- / Größen- / Farb- / Unterstreichungs-Textformat mit VBA-Code

Bitte wenden Sie den folgenden VBA-Code an, um eine E-Mail mit einem bestimmten HTML-Textformat in Excel zu senden.

1. Drücken Sie die Taste Andere + F11 Tasten gleichzeitig zum Öffnen der 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 Code-Fenster.

VBA-Code: Senden Sie eine E-Mail mit einem bestimmten Format für Fettdruck, Größe, Farbe und Unterstreichung in Excel

Sub SharePerformance1()
'Update by ExtendOffice 2018/3//5
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xOutMsg As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xOutMsg = "<b>This text is bold</b><br/><span style=""color:#80BFFF"">Font Color</span style=""color:#80BFFF""><br />" & _
               "<u>New line with underline</u><br /><p style='font-family:calibri;font-size:25'>Font size</p>"
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "Html format email"
        .HTMLBody = xOutMsg
        .Display
    End With
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

Notizen:

1) Ersetzen Sie die .Betreff Linie mit Ihrem eigenen.
2) Geben Sie die E-Mail-Adresse des Empfängers ein . Um Linie.
3) In der xOutMsg Zeile:
3.1) kann Ihren Text fett machen;
3.2) ... ist die Textfarbe
3.3) Wenn Sie eine neue Zeile neu starten möchten, fügen Sie bitte hinzu vor dem neuen Zeilentext;
3.4) Unterstreichen Sie Ihren Text mit;
3.5) Und ändern Sie Ihre Textgröße um.

3. Drücken Sie die Taste F5 Taste zum Ausführen des Codes. Dann wird eine E-Mail mit dem Text im angegebenen HTML-Format geöffnet. Bitte klicken Sie auf Absenden Taste, um es zu senden.


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 Tage kostenloser Trail)


In Verbindung stehende Artikel:

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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 ...

Beschreibung


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!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
đây là cài đặt cố định cho kiểu chữ rồi, còn mình là biến động cơ Dim Noidungmail As String
....Noidungmail = Sheets("Email_List").Cells(RowNum, 5).Value
...HTMLBody =  Noidungmail & .HTMLBody
mình muốn định dạng cho noidungmail có font chữ, màu sắc, size chữ thì viết lệnh kiểu gì ạ
This comment was minimized by the moderator on the site
It's really helpful code
I need to change text format from right to left In the xOutMsg line
help please .
This comment was minimized by the moderator on the site
It's really helpful code
I need to change text format from right to left In the xOutMsg line help please ..
This comment was minimized by the moderator on the site
What is the syntax for converting the text to a hyperlink in the message body?
This comment was minimized by the moderator on the site
Thank you very much!
Work fine in MS Office Pro 2019
This comment was minimized by the moderator on the site
Hey, just wanted to let you know that it doesn't work in Excel 2016.
This comment was minimized by the moderator on the site
works for me in 2016?
This comment was minimized by the moderator on the site
No, it does not work for you in 2016 and further versions. <b></b> does nothing.
This comment was minimized by the moderator on the site
Ensure you have given .HTMLBody instead of .body
This comment was minimized by the moderator on the site
It's really helpful code I need to change <span style="letter-spacing: 0.2px; color: inherit; font-family: inherit; font-style: inherit; font-variant-ligatures: inherit; font-variant-caps: inherit; font-weight: inherit;">In the xOutMsg line </span>
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations