Excel中进行批量自动发送邮件的操作技巧.docx

Excel中进行批量自动发送邮件的操作技巧准备待发送的数据:a.)打开Excel,新建Book1.xlsxb.)填入下面的内容,第一列:接收人,第二列:邮件标题,第三列:正文,第四列:附件路径注意:附件路径中可以有中文,但是不能有空格这里你可以写更多内容,每一行作为一封邮件发出。注意:邮件正文是黑白文本内容,不支持加粗、字体颜色等。(如果你需要支持彩色的邮件,后面将会给出解决办法)编写宏发送邮件a.)Alt+F11打开宏编辑器,菜单中选:插入->模块b.)将下面的代码粘贴到模块代码编辑器中:PublicDeclareFunctionSetTimerLib"user32"_(ByValhwndAsLong,ByValnIDEventAsLong,ByValuElapseAsLong,ByVallpTimerfuncAsLong)AsLongPublicDeclareFunctionKillTimerLib"user32"_(ByValhwndAsLong,ByValnIDEventAsLong)AsLongPrivateDeclareSubSleepLib"kernel32"(ByValdwMillisecondsAsLong)FunctionWinProcA(ByValhwndAsLong,ByValuMsgAsLong,ByValidEventAsLong,ByValSysTimeAsLong)AsLongKillTimer0,idEventDoEventsSleep100'使用Alt+S发送邮件,这是本文的关键之处,免安全提示自动发送邮件全靠它了Application.SendKeys"%s"EndFunction发送单个邮件的子程序SubSendMail(ByValto_whoAsString,ByValsubjectAsString,ByValbodyAsString,ByValattachementAsString)DimobjOLAsObjectDimitmNewMailAsObject'引用MicrosoftOutlook对象SetobjOL=CreateObject("Outlook.Application")SetitmNewMail=objOL.CreateItem(olMailItem)WithitmNewMail.subject=subject'主旨.body=body'正文本文.To=to_who'收件者.Attachments.Addattachement'附件,如果你不需要发送附件,可以把这一句删掉即可,Excel中的第四列留空,不能删哦.Display'启动Outlook发送窗口SetTimer0,0,0,AddressOfWinProcAEndWithSetobjOL=NothingSetitmNewMail=NothingEndSub批量发送邮件SubBatchSendMail()DimrowCount,endRowNoendRowNo=Cells(1,1).CurrentRegion.Rows.Count'逐行发送邮件ForrowCount=1ToendRowNoSendMailCells(rowCount,1),Cells(rowCount,2),Cells(rowCount,3),Cells(rowCount,4)NextEndSub3.最终代码编辑器中的效果如下图:为了正确执行代码,你还需要在菜单中选择:工具->引用中的MicroseftOutlookX.0ObjectLibrary勾选上(X.0是版本号,不同机器可能不一样http://jgkc.taobao.com，有具体教程)c.)粘贴好代码、勾选上上面的东东后可以发送邮件了,点击上图A红圈所示的绿色三角按钮,会弹出下图所示的对话框,点运行,就开始批量发送邮件了。d.)如果你想确认你的邮件是否都发出去了,可以去Outlook的“已发送邮件”文件夹中查看,是否有你希望发出的邮件。下一页查看>>>Excel表格中的内容邮件发送方法做法教程:上一页12下一页