Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe e-mail verzenden met het opgegeven vet / grootte / kleur / onderstreepte tekstformaat in Excel?

HTML-body-indeling kan de e-mail verrijken en gemakkelijk leesbaar maken. In dit artikel wordt gesproken over het verzenden van een e-mail met de e-mailtekst in HTML-indeling in Excel door vetgedrukte, onderstreepte en gespecificeerde grootte en kleurentekstindeling toe te voegen.

Stuur een e-mail met het opgegeven vetgedrukte / grootte / kleur / onderstreepte tekstformaat met VBA-code


Stuur een e-mail met het opgegeven vetgedrukte / grootte / kleur / onderstreepte tekstformaat met VBA-code

Pas onderstaande VBA-code toe om een ​​e-mail met een specifiek HTML-lichaamsformaat in Excel te verzenden.

1. druk de anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het codevenster.

VBA-code: stuur e-mail met specifieke vetgedrukte / grootte / kleur / onderstreepte tekstindeling 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

Notes:

1) Vervang de .Onderwerp lijn met uw eigen.
2) Voer het e-mailadres van de ontvanger in het . Te lijn.
3) In de xOutMsg lijn:
3.1) ... kan uw tekst vetgedrukt maken;
3.2) ... is de tekstkleur
3.3) Als u een nieuwe regel opnieuw wilt starten, voegt u voor de nieuwe regeltekst;
3.4) Onderstreep je tekst met ...;
3.5) En verander je tekstgrootte met ....

3. druk de F5 sleutel om de code uit te voeren. Vervolgens wordt een e-mail met het opgegeven HTML-formaat geopend. Klik op het Verstuur knop om het te verzenden.


Verzend eenvoudig e-mail via Outlook op basis van velden van gemaakte mailinglijst in Excel:

Het Stuur emails nut van Kutools for Excel helpt gebruikers bij het verzenden van e-mail via Outlook op basis van de gemaakte mailinglijst in Excel.
Download en probeer het nu! (30 dagen gratis parcours)


Gerelateerde artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    binbon2z · 2 months ago
    đâ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ì ạ
  • To post as a guest, your comment is unpublished.
    samer · 4 months ago
    It's really helpful code
    I need to change text format from right to left In the xOutMsg line
    help please .
  • To post as a guest, your comment is unpublished.
    sam · 4 months ago
    It's really helpful code
    I need to change text format from right to left In the xOutMsg line 
    help please .. 
  • To post as a guest, your comment is unpublished.
    Andy · 2 years ago
    What is the syntax for converting the text to a hyperlink in the message body?
  • To post as a guest, your comment is unpublished.
    Chris · 2 years ago
    Thank you very much!
    Work fine in MS Office Pro 2019
  • To post as a guest, your comment is unpublished.
    Misha R. · 2 years ago
    Hey, just wanted to let you know that it doesn't work in Excel 2016.
    • To post as a guest, your comment is unpublished.
      Guest · 2 years ago
      works for me in 2016?
      • To post as a guest, your comment is unpublished.
        Ernestas · 1 years ago
        No, it does not work for you in 2016 and further versions. <b></b> does nothing.

        • To post as a guest, your comment is unpublished.
          Kingsley · 1 years ago
          Ensure you have given .HTMLBody instead of .body
          • To post as a guest, your comment is unpublished.
            sam · 4 months ago
            It's really helpful code 
            I need to change In the xOutMsg line