如何用EXCEL批量发送邮件批量发送工资条 原创

点开要发送的工资

启用开发工具

单击“插入”

单击“命令控件”

单击“右键”，单击“属性”

双击图中区域进入VBA编程界面

“输入”PrivateSubCommandButton1_Click()
'要能正确发送并需要对MicroseftOutlook进行有效配置
OnErrorResumeNext
DimrowCount,endRowNo,endColumnNo,sFile$,sFile1$,A&,B&
DimobjOutlookAsObject
DimobjMailAsMailItem
'取得当前工作表数据区行数列数
endRowNo=ActiveSheet.UsedRange.Rows.Count
endColumnNo=ActiveSheet.UsedRange.Columns.Count

'取得当前工作表的名称，用来作为邮件主题进行发送
sFile1=ActiveSheet.Name
'创建objOutlook为Outlook应用程序对象
SetobjOutlook=CreateObject("Outlook.Application")

'开始循环发送电子邮件
ForrowCount=2ToendRowNo
'创建objMail为一个邮件对象
SetobjMail=objOutlook.CreateItem(olMailItem)

WithobjMail

'设置收件人地址，数据源所在列数
.To=Cells(rowCount,5)

'设置抄送人地址（从通讯录表的'E-mail地址'字段中获得）
'.CC=Cells(rowCount,0)
'设置邮件主题,取值工作表名，
.Subject=sFile1
'设置邮件内容(从通讯录表的“内容”字段中获得)
'align单元格文本显示方式left(向左)、center(居中)、right(向右)，默认值是center,width-宽height-高border单元格线粗细,bordercolor返回或设置对象的边框颜色
'colSpan是一种编程语言，其属性可设置或返回表元横跨的列数


sFile="<tr>您好！
以下是您"+sFile1+"，请查收！</tr>"
sFile=sFile+"<tablealign='left'width='500'height='25'border=1bordercolor='#000000'><tbody>"
sFile=sFile+"<tr><tdcolspan='4'align='center'>工资表</td></tr>"
B=1
ForA=1ToendColumnNo
'数据表头中添加“X”后将不发送此字段
IfApplication.WorksheetFunction.CountIf(Cells(1,A),"*X*")=0Then
IfB=1Then
sFile=sFile+"<tr><tdwidth='20%'height='25'>"+Cells(1,A).Text+"</td><tdwidth='30%'height='25'>"+Cells(rowCount,A).Text+"</td>"
B=0

Else
sFile=sFile+"<tdwidth='20%'height='25'>"+Cells(1,A).Text+"</td><tdwidth='30%'height='25'>"+Cells(rowCount,A).Text+"</td></tr>"
B=1
EndIf
EndIf
Next

.HTMLBody=sFile


'设置附件(从通讯录表的“附件”字段中获得)
.Attachments.AddCells(rowCount,24).Value
'自动发送邮件
.Send
EndWith

'销毁objMail对象
SetobjMail=Nothing
Next
'销毁objOutlook对象
SetobjOutlook=Nothing
'所有电子邮件发送完成时提示
MsgBoxrowCount-2&"个员工的工资单发送成功！"

EndSub