Як надіслати електронний лист із зазначеним жирним / розміром / кольором / підкресленням текстовим форматом у Excel?

Формат основного тексту HTML може збагатити електронну пошту та полегшити її читання. У цій статті йдеться про надсилання електронного листа з текстом електронної пошти у форматі HTML у програмі Excel, додаючи жирний шрифт, підкреслення, а також вказаний формат тексту та кольору.

Надішліть електронний лист із зазначеним жирним / розміром / кольором / підкресленим текстовим форматом із кодом VBA

Надішліть електронний лист із зазначеним жирним / розміром / кольором / підкресленим текстовим форматом із кодом VBA

Будь ласка, застосуйте нижче код VBA, щоб надіслати електронне повідомлення з певним форматом HTML-тексту в Excel.

1 Натисніть кнопку інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте код VBA у вікно коду.

Код VBA: надішліть електронний лист із певним жирним / розміром / кольором / підкресленим текстовим форматом у 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) Replace the .Subject line with your own one.

2) Enter the recipient’s email address into the .To line.

3) In the xOutMsg line:

3.1) <b>…</b> can make your text bold;

3.2) <span style=""color:#80BFFF"">...</span style=""color:#80BFFF""> is the text color

3.3) If you want to restart a new line, please add <br/> before the new line text;

3.4) Underline your text with <u>…</u>;

3.5) And change your text size by <p style='font-family:calibri;font-size:25'>…</p>.

3. Press the F5 key to run the code. Then email with specified HTML format body is opening. Please click the Send button to send it.

---

Easily send email through Outlook based on fields of created mailing list in Excel:

The Send Emails utility of Kutools for Excel helps users sending email through Outlook based on created mailing list in Excel.
Download and try it now! (30-day free trail)

---

Related articles:

• How to automatically send email basd on cell value in Excel?
• How to insert signature into Outlook email when sending by vba in Excel?
• How to send email without Outlook in Excel?
• How to send a specific chart in an email with vba in Excel?
• How to send an email at specific time of a day in Excel?
• How to send email with HTML email body in Excel?

---

The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

• Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
• Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
• Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
• Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• More than 300 powerful features. Supports Office / Excel 2007-2021 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.

Read More... Free Download... Purchase... 

---

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

• Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
• Open and create multiple documents in new tabs of the same window, rather than in new windows.
• Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!

Read More... Free Download... Purchase...