通过电子邮件发送书籍或工作表

如果您经常需要通过电子邮件发送某些书籍或表格，那么您应该注意到这个过程不能快速调用。 如果你“经典”地做，那么你需要：

  • 打开电子邮件程序（例如 Outlook）
  • 创建新消息
  • 输入地址、主题和文本
  • 将文件附加到消息中（不要忘记！）
  • 点击按钮 提交

事实上，可以通过多种不同的方式直接从 Excel 轻松发送邮件。 去…

方法一：嵌入式发送

如果您仍然拥有良好的旧 Excel 2003，那么一切都很简单。 打开所需的书/表并从菜单中选择 文件 - 发送 - 消息 （文件 — 发送至 — 邮件收件人）. 将打开一个窗口，您可以在其中选择两个发送选项之一：

在第一种情况下，当前书籍将作为附件添加到消息中，在第二种情况下，当前工作表的内容将作为文本表（没有公式）直接进入消息文本。

此外，菜单 文件 - 提交 （文件 - 发送至） 还有一些更具异国情调的运输选择：

 

  • 留言（供审核） （邮件收件人进行审核） – 发送整个工作簿，同时为它打开更改跟踪，即开始明确固定 – 谁、何时以及在哪些单元格中进行了哪些更改。 然后您可以显示在菜单中所做的更改 服务 - 修复 - 突出显示修复 （工具 - 跟踪更改 - 突出显示更改） 或在选项卡上 审查 - 更正 （Reveiw - 跟踪更改） 它看起来像这样：

    彩色框架标记对文档所做的更改（每个用户都有不同的颜色）。 当您将鼠标悬停时，会弹出一个类似注释的窗口，其中详细说明了此单元格中更改的人员、内容和时间。 审阅文件非常方便，例如当您编辑下属的报告或老板编辑您的报告时。

  • 沿途 （路由收件人） – 将附加您的书的消息将通过一系列收件人，每个收件人都会自动将其转发得更远，就像指挥棒一样。 如果需要，您可以将消息设置为在链的末端返回给您。 您可以启用更改跟踪以查看线程中每个人所做的编辑。

在新的 Excel 2007/2010 中，情况略有不同。 在这些版本中，要通过邮件发送图书，您需要选择按钮 办公 （办公按钮） 或标签 文件 （文件） 和团队 提交 （发送）. 接下来，为用户提供一组发送选项：

请注意，在新版本中，发送插入信函正文的单独工作簿工作表的功能已消失 - 就像在 Excel 2003 及更高版本中一样。 剩下的唯一选择是发送整个文件。 但是有一个有用的机会发送众所周知的 PDF 格式和不太知名的 XPS（类似于 PDF，但不需要 Acrobat Reader 来阅读 - 它直接在 Internet Explorer 中打开）。 发送书评的命令可以通过快速访问面板上的附加按钮拉出 文件 - 选项 - 快速访问工具栏 - 所有命令 - 送审 （文件 - 选项 - 快速访问工具栏 - 所有命令 - 发送以供审阅）.

方法 2. 简单的宏发送

发送宏要容易得多。 通过菜单打开 Visual Basic 编辑器 服务 – 宏 – Visual Basic 编辑器 （工具——宏——Visual Basic 编辑器）, 将新模块插入菜单 插入 - 模块 并在那里复制这两个宏的文本：

Sub SendWorkbook() ActiveWorkbook.SendMail Recipients:="[email protected]", Subject:="Лови файлик" End Sub Sub SendSheet() ThisWorkbook.Sheets("Лист1").Copy With ActiveWorkbook .SendMail Recipients:="[email protected]", Subject:="Catch the file" .Close SaveChanges:=False End With End Sub

之后，复制的宏可以在菜单中运行 服务 - 宏 - 宏 （工具——宏——宏）. 发送工作簿 将整个当前书籍发送到指定地址，并且 发送表 — Sheet1 作为附件。

运行宏时，Excel 将联系 Outlook，这将导致屏幕上出现以下安全消息：

等到按钮 解决 变为活动状态并单击它以确认您的提交。 之后，自动生成的消息将被放置在文件夹中 即将离任 并将在您第一次启动 Outlook 时发送给收件人，或者，如果您运行它，则立即发送给收件人。

方法3.通用宏

如果您想发送的不是当前书籍，而是任何其他文件？ 并且消息的文本也很适合设置！ 以前的宏在这里没有帮助，因为它们受到 Excel 本身功能的限制，但您可以创建一个宏来管理 Excel 中的 Outlook——创建并填写一个新的消息窗口并发送它。 宏如下所示：

Sub SendMail() Dim OutApp As Object Dim OutMail As Object Dim cell As Range Application.ScreenUpdating = False Set OutApp = CreateObject("Outlook.Application") '在隐藏模式下启动 Outlook OutApp.Session.Logon On Error GoTo cleanup '如果没有开始 - 退出 Set OutMail = OutApp.CreateItem(0) '创建一条新消息 On Error Resume Next '用 OutMail .To = Range("A1").Value .Subject = Range("A2") 填写消息字段。 Value .Body = Range("A3").Value .Attachments.Add Range("A4").Value 'Send 可以替换为 Display 以在发送前查看消息 .Send End With On Error GoTo 0 Set OutMail = Nothing cleanup : 设置 OutApp = Nothing Application.ScreenUpdating = True End Sub

邮件的地址、主题、文本和附件的路径必须在当前工作表的单元格 A1:A4 中。

  • 使用 PLEX 插件从 Excel 进行群组邮件
  • Dennis Wallentin 通过 Lotus Notes 从 Excel 发送邮件的宏
  • 什么是宏，在 Visual Basic 中插入宏代码的位置
  • 使用 HYPERLINK 功能创建电子邮件

 

发表评论