如何在 Excel 中發送具有指定粗體/大小/顏色/下劃線文字格式的電子郵件？

HTML 郵件正文格式可以豐富郵件內容並使其易於閱讀。本文討論如何在 Excel 中通過添加粗體、下劃線以及指定大小和顏色的文字格式來發送帶有 HTML 格式的郵件。

使用 VBA 程式碼發送具有指定粗體/大小/顏色/下劃線文字格式的郵件

使用 VBA 程式碼發送具有指定粗體/大小/顏色/下劃線文字格式的郵件

請應用以下 VBA 程式碼以在 Excel 中發送具有特定 HTML 正文格式的郵件。

1. 同時按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，點擊 插入 > 模組。然後將以下 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

注意：

3. 按下 F5 鍵運行程式碼。然後會打開具有指定 HTML 格式正文的郵件。請點擊 發送 按鈕進行發送。

相關文章：

• 如何根據 Excel 中的單元格值自動發送郵件？
• 如何在 Excel 中通過 VBA 發送 Outlook 郵件時插入簽名？
• 如何在 Excel 中不使用 Outlook 發送郵件？
• 如何在 Excel 中通過 VBA 將特定圖表發送到郵件中？
• 如何在 Excel 中於一天中的特定時間發送郵件？
• 如何在 Excel 中發送帶有 HTML 郵件正文的郵件？