如何用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