跳到主要内容
 

如何应用按钮发送带有当前Word文件的电子邮件? 

作者:晓阳 最后修改时间:2024-08-08

如果您需要通过Outlook从Word文档发送电子邮件,并附加当前的Word文件,则可以创建命令按钮,然后通过单击此按钮发送消息而无需打开Outlook。 本文,我将介绍如何快速,轻松地处理它。

应用按钮发送带有当前Word文件的电子邮件


应用按钮发送带有当前Word文件的电子邮件

请执行以下步骤来解决Word文件中的这项工作:

1。 首先,您应该创建一个命令按钮,请单击 开发商 > 旧版工具 > 命令按钮(ActiveX控件),请参见屏幕截图:

开发人员选项卡,其中控件组已选定、旧版工具已单击且命令按钮已突出显示

2。 选择按钮,然后单击 查看房源 在下面 开发商 标签,在 查看房源 窗格中,将所需的标题文本输入到 标题 字段,请参见屏幕截图:

功能区上的“属性”按钮和弹出的“属性”对话框

3。 然后,关闭 查看房源 窗格,现在,右键单击按钮,然后选择 查看代码,请参见屏幕截图:

上下文菜单上的“查看代码”选项

4。 然后,在显示的 Microsoft Visual Basic应用程序 窗口,将以下代码复制并粘贴到原始脚本之间,请参见屏幕截图:

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 窗口

备注:在上面的代码中,您应该根据需要更改主题,正文或发送的地址。

5。 然后,保存并关闭此代码,单击 设计模式 关闭设计模式。 现在,单击创建的命令按钮时,将创建一封电子邮件,其中包含当前的Word文档,请参见屏幕截图:

创建一封电子邮件,以当前 Word 文档作为附件

6。 最后,您只需要单击 提交 按钮发送此消息。

最佳办公生产力工具

Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点!

🤖 Kutools AI功能: 生成内容 / 重写文本 / 文档问答 / 快速获得答案 / 翻译文件 / 波兰文档(保留格式)...

📘 文档掌握: 分页 / 合并文件 / 以各种格式导出选择(PDF/TXT/DOC/HTML...) / 批量转换为PDF...

内容编辑: 跨多个文件批量查找和替换 / 调整所有图片的大小 / 转置表行和列 / 将表格转换为文字...

🧹 轻松清洁:扫除 多余的空间 / 分节符 / 文本框 / 超链接 / 如需更多移除工具,请访问 删除 团体...

创意插入: 插 千位分隔符 / 复选框 / 单选按钮 / 扫码支付 / 条码 / 多张图片 / 了解更多 插页 团体...

🔍 精准选择:精确定位 特定页面 / / 形状 / 标题段落 / 增强导航功能 更多 选择 功能...

星级增强: 导航到任何位置 / 自动插入重复文本 / 在文档窗口之间切换 / 11 转化 工具...

Word 功能区上的 Kutools 和 Kutools Plus 选项卡
👉 想要尝试这些功能吗?立即下载 Kutools for Word! 🚀
 

最佳办公生产力工具

Kutools for Word - 100 多种 Word 工具