如何从 Excel 发送邮件，并在邮件正文中包含超链接？
在众多工作场景中，您可能需要直接从 Excel 发送邮件，并在邮件正文中嵌入可点击的超链接——例如，让收件人一键访问文件、浏览网站或打开其他相关文档。Excel 提供了多种实用方法来实现这一需求，包括 VBA 自动化、内置超链接功能以及公式组合应用。每种方法各具优势，适用于不同场景：无论您倾向于自动化处理、手动定制，还是基于电子表格动态生成链接，都能找到合适的解决方案。本指南将为您详细介绍几种将超链接插入 Excel 邮件正文的方法，并解析其应用价值与注意事项。
使用 VBA 代码将创建超链接插入邮件正文
此方法专为需要通过 Outlook 作为邮件客户端、在邮件正文中直接嵌入超链接的用户而设计。借助 VBA，您可在 Excel 中自动撰写并自定义邮件，灵活嵌入任意超链接或格式化文本。该方法尤其适用于批量发送邮件、自动化工作流，或需将工作表中的模板文本与动态数据一并整合的场景。
1. 打开您的工作簿，然后按 Alt+F11，即可打开 Microsoft Visual Basic for Applications 窗口。
2. 在 Visual Basic 编辑器中，依次点击插入 > 模块，并将以下 VBA 代码粘贴到模块编辑器中。
VBA 代码：将创建超链接插入邮件正文
Sub EmailHyperlink()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
xStrBody = "Hi there:" & "<br>" _
& "Please click " & "<a href="/ & "http://www.extendoffice.com"">Here</a> to open the page" & "<br>" _
& "Thank you."
On Error Resume Next
Set xOtl = CreateObject("Outlook.Application")
Set xOtlMail = xOtl.CreateItem(olMailItem)
With xOtlMail
.To = "Email Address"
.CC = "Email Address "
.BCC = " Email Address "
.Subject = "Subject line"
.HTMLBody = .HTMLBody & xStrBody
.Display
End With
Set xOtl = Nothing
Set xOtlMail = Nothing
End Sub
注意事项：
3. 编辑完代码后，按 F5 运行代码，Outlook 将自动打开一个新建邮件窗口，其中已预填指定字段，且超链接已嵌入邮件正文。请检查邮件内容，然后点击发送即可发送邮件。
提示：如果在 Outlook 中遇到安全提示，请确认您有权通过代码发送邮件，且宏安全设置已允许执行。为获得最佳效果，建议在向大批受众自动发送前，先用样例邮件进行测试。
优势：支持自定义格式的 HTML 邮件，可嵌入超链接并自动发送，适用于重复性或批量邮件任务，显著节省时间。
劣势：需依赖 Outlook 支持，可能需调整宏安全设置，不适用于不熟悉 VBA 的用户。
使用 Excel 的 HYPERLINK 公式生成 mailto 超链接
此方法利用 Excel 的 HYPERLINK 函数在工作表中创建可点击链接。单击这些链接即可启动默认邮件客户端（如 Outlook 或 Mail），自动打开预填充收件人、主题、正文内容甚至附加链接的邮件草稿，为您提供高效的撰写起点——但发送仍需手动操作。
如果您希望向他人提供模板链接，或在无需自动化的情况下简化重复性邮件任务，此方法尤为适用。您还可以结合工作表数据，为不同用户打造动态的电子邮件模板。
1. 选择要插入 mailto 超链接的单元格，例如 B2.
=HYPERLINK("mailto:someone@example.com?subject=Test Subject&body=Please review this link: https://www.example.com","Send Email")2. 输入公式后，按下 Enter 键即可将该单元格转换为可点击链接。单击链接将自动打开默认邮件应用，并根据公式内容填充“收件人”、“主题”和“正文”字段。您还可结合单元格引用，轻松实现动态邮件内容！
- 例如，若要使用 A2 单元格的值作为收件人、B2 单元格的值作为链接：
=HYPERLINK("mailto:"&A2&"?subject=Hello&body=Please visit: "&B2, "Email User")
优势：操作快捷，无需编程，支持动态内容，适用于数据集或一次性批量生成大量链接。
劣势：无法自动发送邮件——用户仍需手动查看并提交每封邮件；邮件正文长度受 mailto 协议限制，过长或含格式的正文可能被截断或显示异常。
借助 KUTOOLS AI 解锁 Excel 的神奇功能
- 智能执行：只需输入简单命令，即可执行单元格操作、分析数据并创建图表。
- 自定义公式：生成量身定制的公式，助您优化工作流程！
- VBA 编码：轻松编写并运行 VBA 代码。
- 公式解析：轻松掌握复杂公式，一目了然！
- 文本翻译：轻松打破电子表格中的语言障碍！
相关文章
根据 Excel 单元格值自动发送邮件
假设您希望在 Excel 中当指定单元格的值满足条件时，通过 Outlook 自动向特定收件人发送邮件。例如，当工作表中 D7 单元格的值大于 200 时，即可自动创建一封邮件。本文将为您介绍一种高效的 VBA 方法，快速实现此需求！
在 Excel 中单击按钮即可发送邮件
假设您需要通过单击 Excel 工作表中的按钮，利用 Outlook 发送邮件，该如何实现？本文将详细介绍一种 VBA 方法，助您轻松达成此目标！
当 Excel 中满足截止日期时发送邮件
假设 C 列中的截止日期距今已满 7 天（当前日期为 2017/9/13），系统将自动向 A 列指定的收件人发送包含 B 列内容的邮件提醒。如何实现？本文介绍的方法可助您轻松搞定！
最佳办公效率工具
| 🤖 | KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行 | 生成代码| 创建自定义公式 | 数据分析及生成图表| 调用 Kutools Functions…… |
| 热门功能：查找、高亮或标记重复项 | 删除空白行 | 合并列或单元格且不丢失数据 | 不使用公式的四舍五入…… | |
| 高级 LOOKUP：多条件 VLookup | 多值 VLookup | 跨多工作表 VLookup | 模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 | 级联下拉列表 | 多选下拉列表…… | |
| 列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列…… | |
| 特色功能：网格聚焦 | 设计视图 |增强编辑栏 | 工作簿和表管理器 | 资源库（自动文本）| 日期提取 | 汇总工作表 | 加密/解密单元格 | 按列表发送邮件 | 超级筛选 | 特殊筛选（筛选粗体单元格/斜体/删除线……） ...... | |
| 精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）| 50+ 图表 类型（甘特图，……）| 40+ 实用公式（基于生日计算年龄，……）| 19 插入工具（插入二维码，从路径插入图片，……）| 12 转换工具（小写金额转大写，汇率转换，……）| 7 合并和拆分工具（高级合并行，分割单元格，……）|……更多 |
使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……
Office Tab 为 Office 带来标签式界面，让您的工作更轻松
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
- 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
- 将您的工作效率提升 50%，每天减少数百次鼠标点击！
所有 Kutools 插件，一个安装程序
Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。
- 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
- 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
- 协同效果更佳— 在多个 Office 应用中实现高效协同
- 30 天全功能试用— 无需注册，无需信用卡
- 超值之选— 比单独购买插件更省钱