Hoppa till huvudinnehåll

Hur skickar jag e-post med angivet fetstil / storlek / färg / understruket textformat i Excel?

HTML-kroppsformat kan berika e-postmeddelandet och göra det enkelt att läsa. Den här artikeln talar om att skicka ett e-postmeddelande med HTML-format e-post i Excel genom att lägga till fet, understruken samt specificerad storlek och färgtextformat.

Skicka e-post med angivet fetstil / storlek / färg / understruket textformat med VBA-kod


Skicka e-post med angivet fetstil / storlek / färg / understruket textformat med VBA-kod

Använd nedanstående VBA-kod för att skicka ett e-postmeddelande med specifikt HTML-format i Excel.

1. tryck på andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera sedan VBA-koden nedan till kodfönstret.

VBA-kod: Skicka e-post med specifikt fetstil / storlek / färg / understruket textformat i 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

Anmärkningar:

1) Byt ut .Ämne linje med din egen.
2) Ange mottagarens e-postadress i . Till linje.
3) I xOutMsg linje:
3.1) ... kan göra din text fet;
3.2) ... är textfärgen
3.3) Om du vill starta om en ny rad, lägg till före den nya radtexten;
3.4) Understryk din text med ...;
3.5) Och ändra din textstorlek med ....

3. tryck på F5 nyckel för att köra koden. Då öppnas ett e-postmeddelande med angivet HTML-format. Vänligen klicka på Skicka för att skicka den.


Skicka enkelt e-post via Outlook baserat på fält i den skapade e-postlistan i Excel:

Smakämnen Skicka e-mail nytta av Kutools för Excel hjälper användare att skicka e-post via Outlook baserat på skapad e-postlista i Excel.
Ladda ner och prova nu! (30 dagars gratis spår)


Relaterade artiklar:

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
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