如何应用按钮发送带有当前Word文件的电子邮件?
如果您需要通过Outlook从Word文档发送电子邮件,并附加当前的Word文件,则可以创建命令按钮,然后通过单击此按钮发送消息而无需打开Outlook。 本文,我将介绍如何快速,轻松地处理它。
应用按钮发送带有当前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
备注:在上面的代码中,您应该根据需要更改主题,正文或发送的地址。
5。 然后,保存并关闭此代码,单击 设计模式 关闭设计模式。 现在,单击创建的命令按钮时,将创建一封电子邮件,其中包含当前的Word文档,请参见屏幕截图:
6。 最后,您只需要单击 提交 按钮发送此消息。
最佳办公生产力工具
Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点!
🤖 Kutools AI功能: 生成内容 / 重写文本 / 文档问答 / 快速获得答案 / 翻译文件 / 波兰文档(保留格式)...
📘 文档掌握: 分页 / 合并文件 / 以各种格式导出选择(PDF/TXT/DOC/HTML...) / 批量转换为PDF...
✏ 内容编辑: 跨多个文件批量查找和替换 / 调整所有图片的大小 / 转置表行和列 / 将表格转换为文字...
🧹 轻松清洁:扫除 多余的空间 / 分节符 / 文本框 / 超链接 / 如需更多移除工具,请访问 删除 团体...
➕ 创意插入: 插 千位分隔符 / 复选框 / 单选按钮 / 扫码支付 / 条码 / 多张图片 / 了解更多 插页 团体...
🔍 精准选择:精确定位 特定页面 / 表 / 形状 / 标题段落 / 增强导航功能 更多 选择 功能...
⭐ 星级增强: 导航到任何位置 / 自动插入重复文本 / 在文档窗口之间切换 / 11 转化 工具...