如何通过按钮发送附带当前 Word 文件的邮件？
如果您希望在 Word 文档中通过 Outlook 发送邮件，并自动附加当前 Word 文件，可以插入一个命令按钮，实现一键发送，无需手动打开 Outlook。本文将为您详细介绍快速高效的设置方法。
应用按钮一键发送邮件并附加当前 Word 文件
请按照以下步骤在您的 Word 文档中完成操作：
- 首先，插入一个命令按钮。依次点击“开发工具” > “旧版工具” > “命令按钮（ActiveX 控件）”。
注意：如果在功能区中未看到“开发工具”选项卡，请访问：如何在 Word 功能区中显示“开发工具”选项卡。
- 选中该按钮后，在“开发工具”选项卡下点击“属性”。在属性窗口的“标题（Caption）”字段中输入您希望显示在按钮上的文本。
- 关闭属性窗口后，右键点击按钮，选择“查看代码”。
- 在“Microsoft Visual Basic for Applications”窗口中，将以下代码粘贴到已有的子程序标签之间：
Dim xOutlookObj As Object Dim xEmail As Object Dim xDoc As Document Application.ScreenUpdating = False Set xOutlookObj = CreateObject("Outlook.Application") Set xEmail = xOutlookObj.CreateItem(olMailItem) Set xDoc = ActiveDocument xDoc.Save With xEmail .Subject = "Fax-data" .Body = "This is a test email." .To = "yy@addin99.com" .Importance = olImportanceNormal .Attachments.Add xDoc.FullName .Display End With Set xDoc = Nothing Set xEmail = Nothing Set xOutlookObj = Nothing Application.ScreenUpdating = True
注意：您可根据实际邮件信息，在代码中灵活修改主题、正文内容及收件人邮箱地址。
- 保存并关闭 VBA 编辑器。点击“开发工具”选项卡下的“设计模式”按钮，将其关闭。此时，单击命令按钮，Outlook 将自动新建一封邮件，并附加当前的 Word 文档。
- 最后，在 Outlook 中点击“发送”按钮，即可发送邮件。
最佳办公效率工具
Kutools for Word——集成超过 100 项卓越功能，全面提升您的 Word 体验！
🤖KUTOOLS AI 功能：AI 助手/实时助手/超级润色（保留格式）/超级翻译（保留格式）/AI 遮挡/AI 校正……
📘 文档精通：分割页面/文档合并/批量选择导出为多种格式（PDF/TXT/DOC/HTML……）/批量转换为 PDF……
✏ 内容编辑：批量查找与替换跨多个文件/统一调整所有图片大小/调整翻转表格行列/表格转文本……
🧹 轻松清理：一键清除多余空格/分节符/文本框/超链接/ 想要更多清理工具，请前往移除分组……
➕ 创意插入：插入千位分隔符/复选框/选项按钮/二维码/条形码/多图插入/ 更多插入选项请查看插入分组……
🔍 精准选择：快速定位特定页面/表格/形状/标题段落/ 利用更多选择功能提升导航效率……
⭐ 明星增强功能：跳转到任意位置/自动插入重复文本/在多个文档 Windows 间切换/11 转换工具……
🌍 支持 40+ 种语言：无论您身处何地，Kutools 均支持英语、西班牙语、德语、法语、中文等 40 多种语言！
Office Tab- 为 Office 带来标签式界面，让您的工作更轻松高效
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中，轻松启用标签式编辑与阅读功能。
- 在同一窗口中打开和创建多个文档标签，而非在新窗口中分别打开。
- 让您的工作效率提升 50%，每天为您减少数百次鼠标点击！
✨ Kutools for Office —— 一次安装，畅享五大强力工具！
包含 Office Tab Pro·Kutools for Excel·Kutools for Outlook·Kutools for Word·Kutools for PowerPoint
📦 一套打包 5 个工具 | 🔗 与 Microsoft Office 无缝集成 | ⚡ 保存时间，立即提升效率