EXCEL通过宏批量发送邮件并带有附件
工具/原料
EXCEL
Outlook
方法/步骤
1、启用excel宏
2、打开开发工具
3、插入按钮
4、打开VBA1:按住Alt键加F11键或2:在开发工具中点击“VisualBasic”
5、输入VBA代码:PrivateSub按钮1_Click()'挢旗扦渌;对按钮进行编程复制下面的代码'要能正输奘兔炫确发送并需要对Microseft Outlook进行有效配置OnErrorResumeNextDimrowCount,endRowNoDimobjOutlookAsNewOutlook.ApplicationDimobjMailAsMailItemDimSignatureAsString'取得当前工作表与Cells(1,1)相连的数据区行数endRowNo=Application.WorksheetFunction.CountIfs(Range("A:A"),"<>")'创建objOutlook为Outlook应用程序对象SetobjOutlook=NewOutlook.Application'开始循环发送电子邮件,比如从第二行开始,第一行是标题ForrowCount=2ToendRowNoSetobjMail=objOutlook.CreateItem(olMailItem)'创建objMail为一个邮件对象Body="<H3><B>你好:</B></H3>"&_"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX<br>"&_"<br><br><B></B>"&_GetSignature()WithobjMail.To=Cells(rowCount,1).Value'设置收件人地址(从Excel表的第一列"邮件地址"字段中获得).CC=Cells(rowCount,2).Value'设置抄送人地址(从Excel表的第二列"邮件地址"字段中获得).Subject=Cells(rowCount,3).Value&Year(Now)&"年"&Month(Now)&"月"'设置邮件主题(从Excel表的第三列"邮件主题"字段中获得)并记录年月.HTMLBody=Body'.HTMLBody=Cells(rowCount,4).Value'设置邮件内容(从Excel表的第四列"邮件内容"字段中获得).Attachments.AddCells(rowCount,5).Value'设置附件(从Excel表的第五列"附件"字段中获得).SendEndWithSetobjMail=Nothing'销毁objMail对象NextMsgBox("邮件全部发送完成!")SetobjOutlook=Nothing'销毁objOutlook对象EndSub'提取邮件签名子函数PublicFunctionGetSignature()DimfsoAsObjectSetfso=CreateObject("Scripting.FileSystemObject")SigPath="C:\Users\xxxxx\AppData\Roaming\Microsoft\Signatures\IT.htm"Setf_SignatureObj=fso.OpenTextFile(SigPath,1,False,0)GetSignature=f_SignatureObj.ReadAllf_SignatureObj.CloseSetfso=NothingEndFunction
6、设置excel第一列是收件人邮嘞窜虹律箱:可以用分号,添加多个联系人第二列是抄送者邮箱:第三列是邮件主题第四列是邮件内容第五列是附件链接,请插入相应文件的链接
7、输入好后,点击按钮,批量发送邮件