写在前面：What is the exchange ratebetween the US Dollar and the Eurotoday?
或许在人资或者财务人员正常工作中会遇到要批量发送邮件的工作，例如财务部根据每个人的工资情况发放工资条到个人的邮箱，需要完成大量的重复工作，非常适合批量发送。
因涉及到大量重复的工作，我们就想到如何让这重复性的工作进行自动化，如何利用表格建立数据，利用邮箱自动来发送这些数据，要求发送文件到对方的邮箱。
这个例子你有没有遇到过？每个月工资条如何发放给大家是一个头疼的事情，因为工资涉及到保密问题，用邮件吧，每个人的邮件内容都有些不一样的地方，人一多就特别容易出错；光这个发工资条就够让人忙活好长时间的了
我们今天就来赶紧聊一下大家之前关心的一个问题，如何让Excel通过QQ邮箱自动发送邮件？
如下图所示，是一份名为数据的工作表，A列是收件人的邮箱，B列是邮件的标题，C列是邮件的正文，D列用于标注是否成功发送邮件。
PS:或许你就要问了，何为SMTP密码？我们将在下方解释。
点击按钮运行代码即可达到批量发送邮件的目的。
代码如下：
PS:变量strPath指定了邮件添加附件存放的路径和名称，给不同的人发送相同的附件。当然这个也可修改成发送不同的附件。
如果将一封邮件发送多人，不同收件人之间使用半角分号间隔即可，例如：
"1@qq.com;5@qq.com;6@qq.com"
我们要如何获取邮箱的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"
以上就是今天要和大家分享的技巧，希望对大家有所帮助，欢迎大家帮忙转发，谢谢！
祝各位一天好心情！
Excel中每一个方法都有特定的用途，不是他们没有用处，只是你不了解或者暂时用不着，建议你收藏起来，万一哪天用着呢？
