2010版EXCEL群发邮件添加多个不同的附件

.第一步：邮箱设置 配置好Microsoft outlook邮件客户端，确保能正常收发邮件，具体的本文不再详述；第二步：建立Excel文档1、为保证后面的“邮件群发”宏代码正确运行，需要执行“开发工具Visual Basic”，将“工具引用Microseft Outlook*.0 Object Library（其中*为Microseft Outlook的版本号）选上”。如下图2、建立含不同邮件地址、主题、内容及附件的Excel文档。例如第三步：编辑宏执行“开发工具Visual Basic”，单击“插入模块”插入一个模块，在“工程”窗口中双击插入的模块，打开它的代码窗口，并在输入以下代码后关闭代码窗口。代码示例Sub sendmail()On Error Resume NextDim rowCount, endRowNoDim objOutlook As New Outlook.ApplicationDim objMail As MailItemDim arr, nendRowNo = Cells(1, 1).CurrentRegion.Rows.CountSet objOutlook = New Outlook.ApplicationFor rowCount = 2 To endRowNo Set objMail = objOutlook.CreateItem(olMailItem) With objMail .To = Cells(rowCount, 2).Value 邮件的地址 .Subject = Cells(rowCount, 3).Value "邮件主题" .Body = Cells(rowCount, 4).Value "邮件内容" arr = Split(Cells(rowCount, 5).Value, "") For n = LBound(arr) To UBound(arr) .Attachments.Add (arr(n) 邮件的附件 Next .Send End With Set objMail = NothingNextSet objOutlook = NothingMsgBox "邮件已发送", vbInformationEnd Sub第四步：执行宏执行“开发工具宏”，选择“sendmail”，点击“执行”，就会自动发送邮件，并且在发送完成后提示“邮件已发送”。(此处最好选择当前工作簿).