Excel批量发送工资条邮件到对方邮箱, 其实只在一瞬之间

或许在人资或者财务人员正常工作中会遇到要批量发送邮件的工作，例如财务部根据每个人的工资情况发放工资条到个人的邮箱，需要完成大量的重复工作，非常适合批量发送。

因涉及到大量重复的工作，我们就想到如何让这重复性的工作进行自动化，如何利用表格建立数据，利用邮箱自动来发送这些数据，要求发送文件到对方的邮箱。

这个例子你有没有遇到过？每个月工资条如何发放给大家是一个头疼的事情，因为工资涉及到保密问题，用邮件吧，每个人的邮件内容都有些不一样的地方，人一多就特别容易出错；光这个发工资条就够让人忙活好长时间的了

我们今天就来赶紧聊一下大家之前关心的一个问题，如何让Excel通过QQ邮箱自动发送邮件？

如下图所示，是一份名为“数据”的工作表，A列是收件人的邮箱，B列是邮件的标题，C列是邮件的正文，D列用于标注是否成功发送邮件。

PS:或许你就要问了，何为SMTP密码？我们将在下方解释。

点击按钮运行代码即可达到批量发送邮件的目的。

代码如下：

PS:变量strPath指定了邮件添加附件存放的路径和名称，给不同的人发送相同的附件。当然这个也可修改成发送不同的附件。

如果将一封邮件发送多人，不同收件人之间使用半角分号间隔即可，例如：

'[e-mail];[e-mail];[e-mail]'

我们要如何获取邮箱的smtp服务码呢？其实很简单的

打开网页版qq邮箱，依次单击【设置】→【账户】；找到POP3/IMAP/SMTP/Exchange/CardDAV/CalDAV服务，选择开启IMAP/SMTP服务。开启SMTP服务后，会获得相关密码。

例外需要说明的一点是上面的代码稍加修改也可以用于我们常用的163邮箱发送邮件。

我们只需要修改发件人的邮箱地址、名称和对应的smtp服务密码。同时将以下语句：

.Item(strURL & 'smtpserver') = 'smtp.qq.com'

修改为：

.Item(strURL & 'smtpserver') = 'smtp.163.com'