巧用EXCEL群发邮件

《巧用EXCEL群发邮件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、前一段时间由于需要给几百个用户发送初始化用户名和密码的邮件，每人的用户名和密码都不相同，不能通过群发邮件的方式。对于研发人员来说，写一个邮件发送工具并不是很困难，但是也需要一定的时间。下面是我参照网上经验实际试过，效果不错，利用VBA简单编程，excel配合outlook批量发送邮件，比较灵活，大家可以看看。第一步：邮箱设置配置好Microsoftoutlook邮件客户端，确保能正常收发邮件，具体的本文不再详述；第二步：建立Excel文档1、为保证后面的“邮件群发”宏代码正确运行，需要执行“工具→宏→VisualB

2、asic编辑器”，将“工具→引用→MicroseftOutlook*.0ObjectLibrary（其中*为MicroseftOutlook的版本号）选上”。2、建立含不同邮件地址、主题、内容及附件的Excel文档，其中附件用插入超链接的方法完成。第三步：编辑“邮件群发”宏执行“工具→宏→VisualBasic编辑器”，单击“插入→模块”插入一个模块，在“工程”窗口中双击插入的模块，打开它的代码窗口，并在输入以下代码后关闭代码窗口。代码示例Subsendmail()'要能正确发送并需要对Microseft　Outl

3、ook进行有效配置OnErrorResumeNextDimrowCount,endRowNoDimobjOutlookAsNewOutlook.ApplicationDimobjMailAsMailItem'取得当前工作表与Cells(1,1)相连的数据区行数endRowNo=Cells(1,1).CurrentRegion.Rows.Count'创建objOutlook为Outlook应用程序对象SetobjOutlook=NewOutlook.Application'开始循环发送电子邮件，比如从第二行开始，第一

4、行是标题ForrowCount=2ToendRowNo'创建objMail为一个邮件对象SetobjMail=objOutlook.CreateItem(olMailItem)WithobjMail'设置收件人地址（比如从　Excel　表的第一列“E-mail地址”字段中获得）.To=Cells(rowCount,1).Value'"fantasia@sina.com"'设置邮件主题（比如从　Excel　表的第二列“邮件主题”字段中获得）.Subject=Cells(rowCount,2).Value'"邮件主题"

5、'设置邮件内容（比如从　Excel　表的第三列“邮件内容”字段中获得）.Body=Cells(rowCount,5).Value'"邮件内容"'设置附件（比如从　Excel　表的第四列“附件”字段中获得）.Attachments.AddCells(rowCount,4).Value'"c:\users.ctl".SendEndWith'销毁objMail对象SetobjMail=NothingNext'销毁objOutlook对象SetobjOutlook=NothingEndSub注意：Outlook的信任中心

6、设置中编程访问安全设置项要选中“从不向我发出可疑活动警告”，否则每发送一封邮件，OUTLOOK都会提示并要求确认。