2010版WORD群发邮件,添加附件.docxVIP

创建类似下面的excel表格，并且保存 创建word 邮件—》选择联系人—》使用现有的列表 选择第一步中创建的额excel 编写邮件内容 注意：上面的Title、Name这类的，只需要写入excel中的第一行的名称就可以，不能用“插入合并项” 点击“开发工具”选项卡，如下图 如果没有该选项卡，按照下面的步骤来做 文件—》选项—》自定义功能区，选中“开发工具”，确定，然后就有了“开发工具”选项卡 点击“Visual Basic” 4.1在弹出的窗口中选择“工具”—》“引用” 选择Microsoft Outlook 14.0 Object Library、Microsoft Excel 14.0 Object Library，确定 4.2在弹出的窗口中选择“插入”—》“模版”，输入以下代码,关闭Visual Basic窗口 Sub sendmail() Dim xlApp As New Excel.Application Dim oOutlookApp As Outlook.Application Dim docSource As Document Dim colCount As Long, rowCount As Long Dim lRecordCount As Long, endColNo As Long Dim bStarted A