29、Excel与Outlook、Access协同操作指南

Excel与Outlook、Access协同操作指南

1. Excel中使用Outlook发送邮件

在Excel中，我们可以借助Outlook来实现邮件的发送，下面将介绍两种常见的邮件发送场景。

1.1 发送单个工作表

我们可以使用 SendMail 结合Microsoft Outlook来发送单个工作表。以下宏会复制活动工作表，并将其作为独立工作簿中的唯一工作表发送：

Sub EmailSingleSheet()
    ActiveSheet.Copy
    On Error Resume Next
    ActiveWorkbook.SendMail "someone@anywhere.com", "Test of single sheet"
    Err.Clear
    ActiveWorkbook.Close False
End Sub

SendMail 通过将工作表放在独立工作簿中并作为附件发送邮件，它不需要指定简单邮件传输协议（SMTP）服务器，而是使用已安装的邮件系统发送邮件。这种方式的优点是绕过了许多与Outlook相关的代码，但也存在一些缺点，如附件文件的能力有限，且没有可用的抄送参数。

需要注意的是，Excel中的工作表不能单独存在，它必须位于父Excel工作簿中。

1.2 向多个收件人发送带附件的邮件

下面我们将编写一个宏，在Microsoft Outlook中创建一封邮件，将活动Excel工作簿作为附件添加