在日常工作中，我们经常需要发送邮件，但是，如果我们需要把某个Excel发送邮件给某人，需要进行输入收件人邮件地址，添加附件等操作。如果收件人很多，还是挺麻烦的。今天我们来学习如何使用VBA将Excel文件作为附件自动发送邮件。本文需要安装有OUTLOOK，如果没有，可以找找OFFICE 2021专业版进行安装。其实对于工作簿作为附件发送，我们只需要一句代码就行了。如以下代码，可将代码所在工作簿发送给jaresfzz@163.com,1120788721@qq.com等两个邮箱。
![]()
Sub test2()ThisWorkbook.SendMail Array("jaresfzz@163.com", "1120788721@qq.com"), "这是一封自动发送的邮件"End Sub
这里使用Workbook的SendMail方法，直接将工作簿进行附件发送。第二参数可以指定邮件的主题，如果没有指定主题，将会以工作簿名字作为主题。![]()
如果我们需要将他们发给更多的收件人，这时候我们就可以考虑使用Excel进行管理啦，将所有的收件人都写入工作表中，然后使用代码自动添加收件人。
![]()
我们可将收件人都装入数组，然后一次性发送，这样就可以实现收件人的管理。下面我们来看看代码：![]()
Sub test3() Dim arr arr = Application.Transpose(Range("A1").CurrentRegion.Value) ThisWorkbook.SendMail arr, "这是一封自动发送的邮件"End Sub
![]()
好了，本期教程就到这里啦，走过路过的点个关注分享一下吧，谢谢啦
如果您需要联系作者或者进行Excel定制，可点击以下链接联系作者
需要Excel定制吗？来看看吧
