如何在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邮件时插入签名？
• 如何在没有Outlook的情况下在Excel中发送电子邮件？
• 如何在Excel中通过VBA发送包含特定图表的电子邮件？
• 如何在一天中的特定时间通过Excel发送电子邮件？
• 如何在Excel中发送带有HTML邮件正文的电子邮件？