巧用EXCEL群发邮件

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

2、Outlook*。Object Library (其中 *为 Microseft Outlook 的版本号)选上 ”。2、建立含不同邮件地址、主题、内容及附件的 Excel文档，其中附件用插入超链 接的方法完成。第三步：编辑“邮件群发”宏执行“工具宏Visual Basics辑器”，单击“插入模块”插入一个模块，在 “工程”窗口中双击插入的模块， 打开它的代码窗口， 并在输入以下代码后关闭 代码窗口。代码示例Sub sendmail()' 要能正确发送并需要对 Microseft Outlook 进行有效配置On Error Resume NextDim rowCount, endRo

3、wNoDim objOutlook As New Outlook.ApplicationDim objMail As MailItem' 取得当前工作表与 Cells(1,1) 相连的数据区行数 endRowNo = Cells(1, 1).CurrentRegion.Rows.Count' 创建 objOutlook 为 Outlook 应用程序对象Set objOutlook = New Outlook.Application' 开始循环发送电子邮件，比如从第二行开始，第一行是标题For rowCount = 2 To endRowNo' 创建 objMai

4、l 为一个邮件对象Set objMail = objOutlook.CreateItem(olMailItem)With objMail设置收件人地址(比如从Excel表的第一列“E -mail地址”字段中获得).To = Cells(rowCount, 1).Value '"fantasia"' 设置邮件主题(比如从 Excel 表的第二列“邮件主题”字段中获得).Subject = Cells(rowCount, 2).Value '"邮件主题 "设置邮件内容(比如从 Excel 表的第三列“邮件内容”字段中获得).Body = Cells(rowCount, 5).Value '"邮件内容 "' 设置附件(比如从 Excel 表的第四列“附件”字段中获得).Attachments.Add Cells(rowCount, 4).Value '"c:users.ctl".SendEnd With' 销毁 objMail 对象Set objMail = NothingNext' 销毁 objOutlook 对象Set objOutlook = NothingEnd Sub