群发分别对象正文、抬头、附件的邮件秘笈

1、群发分别对象正文、抬头、附件的邮件秘笈杨 舒【准备工作】1. 准备邮箱：Outlook 关联发送邮件所用邮箱。2. 准备文件：一般准备三类文件：邮件正文、邮件附件、邮件与附件信息表。2.1 邮件正文：编写发送邮件的正文，存入Word文档。2.2 邮件附件：整理各附件至文件夹。提示：如果超过2个附件，为使发送出的邮件一目了然，命名格式最好是“附件X+附件名称”。附件1 中国科学院人事局关于AB类岗位招聘信息准备的通知附件2 A、B类推荐岗位-北京基因组研究所附件2 A、B类推荐岗位-成都山地灾害与环境研究所附件2 A、B类推荐岗位-城市环境研究所提示：附件1由于内容相同，因此只有一个；附件2每个

2、发送对象不同，因此分别列好。2.3 邮件与附件信息表：新建excel表，整理邮箱、附件路径等邮件信息。必须编辑的内容列为（1）邮件中需要变化的内容（如邮件抬头“北京基因组研究所”等）、（2）邮件发送对象的邮箱、（3）附件文件路径（必须有文件的类型尾缀，如：D:AB类推荐岗位附件 AB类推荐岗位汇总20151009附件1 中国科学院人事局关于AB类岗位招聘信息准备的通知.docx）。【邮件发送】1. 编辑“邮件目录”新建word文档。做一行表格，列数参照“邮件与附件信息表”的列数，或直接做成“附件数+1（邮箱）”列，打开“开始邮件合并”-目录。打开“选择收件人”-“使用现有列表”。弹出选择对话框

3、后选择【准备工作】的“邮件与附件信息表”。弹出该表的sheet列表，选择保存邮件地址、附件等信息的sheet。光标放入word的表格中，打开“插入合并域”，插入“邮件与附件信息表”中的邮箱、附件等内容。首列尽量插入邮箱列表，可见“负责人邮箱”。光标移至下一个，插入 “附件1”。可见“附件1”依此类推。插完信息后，点击“预览结果”，被选位置内容变为“邮件与附件信息表”中的相应内容。通过左右键查看可以不同的发送对象所对应的信息。可以通过最右键查看数目。点击“完成并合并”-“编辑单个文档”。弹出对话框，选择“全部”。弹出全部邮箱与附件对应信息集合。另存命名为“邮件目录”。可关闭文档。2. 合并邮件打

4、开“邮件正文”文档。打开“邮件”-“开始邮件合并”-“信函”。打开“选择收件人”-“使用现有列表”弹出选择对话框后选择【准备工作】的“邮件与附件信息表”。弹出该表的sheet列表，选择保存邮件地址、附件等信息的sheet。选中邮件正文中需要随邮件发送对象而改变的内容，如正文抬头等。打开“插入合并域”，选择需要变更的内容所对应的列名，如邮件抬头所对应的“单位名称”。 插入后，该位置将被“单位名称”替换。点击“预览结果”，被选位置内容变为“邮件与附件信息表”中的相应内容。点击向左右翻，可查看不同邮件正文的更改内容。点击最后，可查看数目。点击“完成并合并”-“编辑单个文档”弹出对话框，选择“全部”。

5、弹出全部邮件正文文本集合。另存，命名为“邮件正文（合并）”，不关闭文档。3. 发送邮件在“邮件正文（合并）”未关闭的文档界面上，点击“ALT+F11”，弹出VBA编写界面。打开“工具”-“引用”。选择Microsoft Outlook 14.0。 打开“插入”-“模块”。模块内拷入VBA代码：Sub emailmergewithattachments()Dim Source As Document, Maillist As Document, TempDoc As DocumentDim Datarange As RangeDim i As Long, j As LongDim bStarte

6、d As BooleanDim oOutlookApp As Outlook.ApplicationDim oItem As Outlook.MailItemDim mysubject As String, message As String, title As StringSet Source = ActiveDocument' Check if Outlook is running. If it is not, start OutlookOn Error Resume NextSet oOutlookApp = GetObject(, "Outlook.Applicati

7、on")If Err <> 0 Then Set oOutlookApp = CreateObject("Outlook.Application") bStarted = TrueEnd If' Open the catalog mailmerge documentWith Dialogs(wdDialogFileOpen) .ShowEnd WithSet Maillist = ActiveDocument' Show an input box asking the user for the subject to be inserte

8、d into the email messagesmessage = "Enter the subject to be used for each email message." ' Set prompt.title = " Email Subject Input" ' Set title.' Display message, titlemysubject = InputBox(message, title)' Iterate through the Sections of the Source document and

9、the rows of the catalog mailmerge document,' extracting the information to be included in each email.For j = 1 To Source.Sections.Count - 1 Set oItem = oOutlookApp.CreateItem(olMailItem) With oItem .Subject = mysubject .Body = Source.Sections(j).Range.Text Set Datarange = Maillist.Tables(1).Cell

10、(j, 1).Range Datarange.End = Datarange.End - 1 .To = Datarange For i = 2 To Maillist.Tables(1).Columns.Count Set Datarange = Maillist.Tables(1).Cell(j, i).Range Datarange.End = Datarange.End - 1 .Attachments.Add Trim(Datarange.Text), olByValue, 1 Next i .Send End With Set oItem = NothingNext jMaillist.Close wdDoNotSaveChanges' Close Outlook if it was started by this macro.If bStarted Then oOutlookApp.QuitEnd IfMsgBox Source.Sectio