如何在 Excel 中发送包含指定粗体、字号、颜色或下划线格式的电子邮件？

在许多专业场景中，仅从 Excel 发送纯文本电子邮件往往难以有效突出重点内容或提升可读性。例如，您可能希望强调关键信息、添加醒目标题，或通过不同颜色帮助收件人清晰梳理内容结构。借助丰富的 HTML 格式（如粗体、下划线、自定义字体大小和彩色文本），您可直接从 Excel 创建视觉美观、易于阅读的邮件正文。本文将为您介绍一种实用方法，助您轻松从 Excel 发送包含自定义 HTML 格式（包括粗体、下划线、字号和颜色）的电子邮件。

使用 VBA 代码发送带有指定粗体/字号/颜色/下划线文本格式的电子邮件

使用 VBA 代码发送带有指定粗体/字号/颜色/下划线文本格式的电子邮件

要直接从 Excel 发送格式精美的电子邮件，您可以使用 VBA 宏，并通过 HTML 标签定义邮件正文。这种方法让您全面掌控邮件在收件人端的呈现效果，轻松实现粗体、下划线、彩色文字及字号调整等丰富格式。

当出现以下情况时，使用 VBA 从 Excel 自定义并发送电子邮件尤为有用：

• 您希望基于数据生成并发送包含特定高亮内容的报告、分析或提醒。
• 在自动发送的电子邮件中，您需要保持专业且统一的品牌形象。
• 多个元素（如标题、页眉或说明）应突出显示，以提升清晰度。

然而，使用 VBA 发送电子邮件需要您具备 VBA 编辑器和 Outlook 集成的基础知识，并拥有通过编程方式发送邮件所需的 Outlook 权限。

以下是设置并使用 VBA 代码完成此任务的详细步骤：

1. 同时按下 Alt+F11 键，即可打开 Microsoft Visual Basic for Applications（VBA）编辑器窗口，在其中添加自定义代码，轻松实现 Excel 操作自动化。

2. 在 VBA 编辑器窗口中，点击顶部菜单栏中的插入> 模块，即可创建一个新的空白代码模块。将下方提供的 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. 完成必要修改后，在 VBA 编辑器中按 F5 键执行代码，Outlook 将立即打开一封指定格式的新建邮件。请检查邮件内容，然后点击发送按钮，即可发送您的自定义邮件。

注意事项与额外提示：请确保 Outlook 已开启并设为默认邮件客户端，否则宏可能无法创建或发送邮件。如遇程序化发送相关的安全提示，请相应调整 Outlook 设置或咨询 IT 管理员。务必核实收件人邮箱地址的准确性，避免误发。建议先向自己发送测试邮件，确认 HTML 格式在不同设备和邮件客户端中均能正常显示。

该 VBA 方法在 HTML 样式方面提供了最大的灵活性，但需本地安装 Outlook，并可能需要调整 Outlook 的宏安全设置。若您尚未安装 Outlook，或更倾向于采用直观、点击式的操作流程，不妨考虑其他解决方案或插件。

替代方案：使用 Kutools for Excel 的“发送电子邮件”工具

如果您经常需要从 Excel 发送格式化邮件，又不想编写或运行 VBA 代码，Kutools for Excel 提供了一项实用功能：发送电子邮件工具。借助该插件，您可基于 Excel 工作表中的数据轻松发送个性化 HTML 格式邮件（支持粗体、下划线、彩色文本及指定字号），无需处理复杂代码，也无需担心 Outlook 安全提示。

如果在运行 VBA 解决方案时遇到错误提示（例如“对象变量或 With 块未设置”），请确保已正确安装并配置 Outlook，宏设置允许执行 VBA 代码，且所有必需的引用均已启用。您可能还需更新邮箱地址，并调整 HTML 标签以确保与收件人邮件客户端兼容（部分旧版客户端可能不支持所有高级样式）。对于批量发送或高频率发送需求，请务必先使用小样本进行测试，避免触发垃圾邮件过滤器。

相关文章：

• 如何在 Excel 中根据单元格的值自动发送电子邮件？
• 如何在 Excel 中通过 VBA 发送 Outlook 邮件时自动插入签名？
• 如何在 Excel 中不借助 Outlook 发送电子邮件？
• 如何通过 VBA 在 Excel 中将特定图表以电子邮件形式发送？
• 如何在 Excel 中设置于一天中的特定时间自动发送电子邮件？
• 如何在 Excel 中发送带有 HTML 邮件正文的电子邮件？

最佳办公效率工具

🤖	KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
	热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
	高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
	高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
	列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
	特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
	精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多

在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Kutools for Excel 更多详情……免费下载……

---

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

• 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
• 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
• 将您的工作效率提升 50%，每天减少数百次鼠标点击！

Office Tab 更多详情……免费下载……

---

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

• 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
• 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
• 协同效果更佳— 在多个 Office 应用中实现高效协同
• 30 天全功能试用— 无需注册，无需信用卡
• 超值之选— 比单独购买插件更省钱

Kutools for Office 更多详情……免费下载……