巧用EXCEL群发邮件.docxVIP

由于购物中心每个月都要给所有的顾客Email发送积分通知，每一位租户的称呼不同、积分金额也各不相同，且需要相互保密，因此不能使用Outlook自带的简单的群发邮件，下面介绍两种通过word、excel群发邮件的小技巧，能够实现给Email群发，且邮件的内容根据发送对象的不同而不同，希望能够给大家带来帮助。 前提条件：已经安装Office 2003或更高的版本，且配置好Microsoft outlook邮件客户端，确保能正常收发邮件。注意：Outlook的信任中心设置中编程访问安全设置项要选中“从不向我发出可疑活动警告”，否则每发送一封邮件，OUTLOOK都会提示并要求确认。 方法一：通过Word实现： 首先建立一个Excel表格，作为数据文件，如下： email 主题 称呼 金额 12@13934.com L410崔费通知 张先生 620元。 wang@ L411崔费通知 李先生 68万元。 lao@787.com L412崔费通知 王先生 300万。 然后将本表格保存，为方便后续使用，这里将本表格另存为 数据.xls。 新建一个word文档，选择：邮件→开始邮件合并→电子邮件（E） 然后将文件模板粘贴进来，如图： 模板设计好以后，点击选择收件人→使用现有列表→选中刚才保存的文件 数据.xls，此时就已经将所有数据与word中的模板连接起来了，下面将光标移动到“您好”前面，点击 插入合并域→称呼，在“消费”右边用同样的方法插入金额。最后点 完成合并→发送电子邮件→选取email作为收件人，并填写主题，点击确定，下一步就是打开Outlook，看着一封封email自己发出去啦！  下面是利用VBA简单编程，用excel配合outlook批量发送邮件，比较灵活，这种方法比上一种方法的优势在于每一封Email的标题也可以不同，希望能够满足更多同事的办公需要。 方法二，利用Excel群发邮件 第一步：建立Excel文档1、为保证后面的“邮件群发”宏代码正确运行，需要执行“工具→宏→Visual Basic编辑器”，将“工具→引用→Microseft Outlook*.0 Object Library（其中*为Microseft Outlook的版本号）选上”。 2、建立含不同邮件地址、标题及内容的Excel文档。 Email 标题 内容 ***@**.com 请张先生查收你的积分 张先生您好：………… ***@**.com 请李小姐查收你的积分 李小姐您好：………… 3、小技巧：在Excel中可以利用Alt+Enter进行换行。 第二步：编辑“邮件群发”宏 执行“工具→宏→Visual Basic编辑器”，单击“插入→模块”插入一个模块，在“工程”窗口中双击插入的模块，打开它的代码窗口，并在输入以下代码后关闭代码窗口。 代码示例 Sub sendmail() 要能正确发送并需要对Microseft　Outlook进行有效配置 On Error Resume Next Dim rowCount,endRowNo Dim objOutlook As New Outlook.Application Dim 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 创建objMail为一个邮件对象 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, 3).Value 邮件内容 .Send End With