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

《2010版excel群发邮件,添加多个不同的附件》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第一步：邮箱设置配置好Microsoftoutlook邮件客户端，确保能正常收发邮件，具体的本文不再详述；第二步：建立Excel文档1、为保证后面的“邮件群发”宏代码正确运行，需要执行“开发工具→VisualBasic”，将“工具→引用→MicroseftOutlook*.0ObjectLibrary（其中*为MicroseftOutlook的版本号）选上”。如下图2、建立含不同邮件地址、主题、内容及附件的Excel文档。例如第三步：编辑宏执行“开发工具→VisualBasic”，单击“插入→模块”插入一个模块，在“工程”窗口中双击插入的

2、模块，打开它的代码窗口，并在输入以下代码后关闭代码窗口。代码示例Subsendmail()OnErrorResumeNextDimrowCount,endRowNoDimobjOutlookAsNewOutlook.ApplicationDimobjMailAsMailItemDimarr,nendRowNo=Cells(1,1).CurrentRegion.Rows.CountSetobjOutlook=NewOutlook.ApplicationForrowCount=2ToendRowNoSetobjMail=objOutlook.

3、CreateItem(olMailItem)WithobjMail.To=Cells(rowCount,2).Value'邮件的地址.Subject=Cells(rowCount,3).Value'"邮件主题".Body=Cells(rowCount,4).Value'"邮件内容"arr=Split(Cells(rowCount,5).Value,";")Forn=LBound(arr)ToUBound(arr).Attachments.Add(arr(n))'邮件的附件Next.SendEndWithSetobjMail=Nothing

4、NextSetobjOutlook=NothingMsgBox"邮件已发送",vbInformationEndSub第四步：执行宏执行“开发工具→宏”，选择“sendmail”，点击“执行”，就会自动发送邮件，并且在发送完成后提示“邮件已发送”。(此处最好选择当前工作簿)