如何用excel vba编写的程序群发邮件，邮件包括多个附件。哪位高手能指教一下

Excel不是编程语言，内嵌的VBA有编程功能，可以扩展Excel的应用。Excel也确实内嵌了邮件收发的功能，但添加的附件一般都是当前工作表或工作簿。

SendMail 方法

使用已安装的邮件系统发送工作簿。

expression.SendMail(Recipients, Subject, ReturnReceipt)

expression 必需。该表达式返回一个 Workbook 对象。

Recipients Variant 类型，必需。以文本形式指定收件人的名称，如果有多个收件人，则使用文本字符串数组。必须至少指定一个收件人，而且所有收件人名单都添加到“收件人”中。

Subject Variant 类型，可选。指定消息的主题。如果省略该参数，则使用文档名称。

ReturnReceipt Variant 类型，可选。如果该值为 True，则要求返回回执；如果该值为 False，则不要求返回回执。默认值为 False。

示例

本示例将当前活动工作簿传送给一个收件人。

ActiveWorkbook.SendMail recipients:="Jean Selva"

1、首先在qq的主页版里面找到邮箱图标，点击进入，这里以QQ邮箱为例。

2、进入了QQ邮箱之后点击左侧的写信选项。

3、然后在主题下面找到添加附件这数选项，点击它，将需要添加的附件添加进去。

4、添加了第一份附件之后，点击继续添加这个选项，在电脑里面将第二份附件添加进去。

5、这样就可以将添加了两份附件，然后点击发送，就可以同时发两个附件了。

如果您需要在邮件中附加文件，请您在写信窗口中点击“附件”按钮，选择好您希望添加的文件后点击“打开”，便可以添加该文件为邮件附件了。需要添加多个文件时，只需重复以上 *** 作即可。 成功添加附件后，会在邮件主题下方显示所有附件的文件名，以及这些文件的大小。如果您需要某个文件，请直接点击该文件后面的“删除”链接。 特别提示：在一封邮件中，您可以添加多个附件，但所有附件容量须小于20M。

---