每月的工资表如何分配给每个人，是一个很头疼的问题，因为工资涉及保密。使用电子邮件。每个人的邮件内容都有些不同，人多的时候特别容易出错。光是这张工资条，就足以让人忙上好一阵子；那么如何快速分发给大家呢？下面是excel批量发送邮件和工资条的方法。让我们来看看！
方法/步骤
按照下图组织工资计划表。
1.可以自行添加或删除列数。
2.如果无法发送邮件，请在排序数据列的标题中添加大写字母“X”。
3.工作表名称用作电子邮件主题。请在发送前修改工作表名称。
启用开发工具选项卡，插入命令控件，并修改控件名称和显示名称。
进入VBA编程界面；将以下代码复制到编辑窗口。
Sub自动发送邮件_Click()
要正确发送，需要有效配置Microseft Outlook。
出错时继续下一步
Dim rowCount，endRowNo，endColumnNo，sFile$，sFile1$，A，B
Dim objOutlook作为对象
Dim对象邮件作为邮件项
获取当前工作表数据区的行数和列数。
endRowNo=ActiveSheet。UsedRange.Rows.Count
endColumnNo=ActiveSheet。使用范围.列数.计数
获取要作为消息主题发送的当前工作表的名称。
sFile1=ActiveSheet。名字
将objOutlook创建为Outlook应用程序对象
set objOutlook=CreateObject(' Outlook。应用程序’)
开始循环发送电子邮件。
对于rowCount=2到endRowNo
将objMail创建为邮件对象。
Set objMail=objOutlook。CreateItem(olMailItem)
用objMail
设置收件人地址和数据源所在的列数。To=单元格(rowCount，5)
设置抄送地址(从地址簿表格中的“电子邮件地址”字段获得)。CC=单元格(行数，0)
设置电子邮件主题、工作表名称值。Subject=sFile1
设置消息内容(从地址簿表格的“内容”字段获得)
对齐单元格文本显示在左侧、中间和右侧。默认为居中、宽度-宽度-高度-高度边框单元格线条粗细。bordercolor返回或设置对象的边框颜色。
ColSpan是一种编程语言，其属性可以设置或返回单元格跨越的列数。
SFile='你好！
以下是您的“sFile1”，请检查！'
sFile=sFile ' '
SFile=sFile '工资单
'
B=1
对于A=1到endColumnNo
在数据头中添加“X”后，该字段将不被发送。
如果应用。worksheet function . CountIf(Cells(1，A)，' *X*')=0然后
如果B=1，那么
sFile=sFile ' '单元格(1，A)。文本“”单元格(rowCount，A)。文本“”
B=0
其他
sFile=sFile ' '单元格(1，A)。文本“”单元格(rowCount，A)。'文本'
'
B=1
如果…就会结束
如果…就会结束
然后。HTMLBody=sFile
设置附件(从地址簿表格的“附件”字段获得)
. Attachments.Add单元格(rowCount，24)。价值
自动发送邮件。发送
以…结尾
销毁对象邮件对象
Set objMail=Nothing
然后
销毁objOutlook对象
设置objOutlook=Nothing
发送所有邮件时提示。
MSOX ROWCOUNT-已成功发送2名员工的工资单！
末端接头
你完了。测试图如下。
提示：没有为自定义类型定义异常处理方法。
解决方案：单击工具-报价-检查。
提示：单击“发送OUTLOOK安全提示”。
解决方案：点击文件-选项-信任中心-信任中心设置-编程访问-并选中永远不要警告我你可以移动。
提示：当编程访问不能被检查和变灰。
解决方案：控制面板-用户帐户-单击用户帐户-更改用户帐户控制设置-调整为从不通知，重新启动计算机，然后再次调整OUTLOOK设置。
需要注意的事项
提示：可以先断网，点开然后去邮箱里的发件箱看看效果如何。如果不行，可以删除，重新开始。
excel就是这样批量发送邮件和工资条的。操作起来也不是很难。做不到的朋友可以参考这篇文章。希望能帮到你！
