批量发送带不同附件的邮件试试这个方法吧

　　操作步骤如下：
　　step1：先准备好附件、邮件正文内容、合作商的邮件收件人和抄送人、附件所在的文件路径。
　　比如，邮件正文内容：
　　图1
　　合作商收件人和抄送人以及需要发送的附件所在的文件路径：
　　图2
　　这里建议邮箱先设置为自己的邮箱测试，千万别写合作商的邮箱。
　　Step2：点击开发工具表单控件，插入表单控件，修改控件名称为你自己想设置的名称。
　　图3
　　Step3：点击开发工具查看代码，点击视图工程资源管理器，找到模块1，双击输入以下代码：
　　图4
　　SubMygirl（）
　　要能正确发送并需要对MicroseftOutlook进行有效配置
　　OnErrorResumeNext
　　DimrowCount，endRowNo
　　要正常运行下面这句，要将工具引用中的MicroseftOutlook。0ObjectLibrary（其中为你MicroseftOutlook的版本号）选上
　　DimobjOutlookAsNewOutlook。Application
　　DimobjMailAsMailItem
　　取得当前工作表与Cells（1，1）相连的数据区行数
　　endRowNoCells（1，1）。CurrentRegion。Rows。Count
　　创建objOutlook为Outlook应用程序对象
　　SetobjOutlookNewOutlook。Application
　　开始循环发送电子邮件
　　ForrowCount2ToendRowNo
　　AApplication。WorksheetFunction。Clean（Worksheets（发送清单）。Cells（rowCount，3））
　　创建objMail为一个邮件对象
　　SetobjMailobjOutlook。CreateItem（olMailItem）
　　WithobjMail
　　设置收件人地址
　　。ToCells（rowCount，1）
　　设置抄送收件人地址
　　。CCCells（rowCount，2）
　　设置邮件主题
　　。SubjectWorksheets（正文）。Cells（1，2）
　　设置邮件内容
　　。BodyWorksheets（正文）。Cells（2，2）
　　设置附件
　　。Attachments。AddA
　　自动发送邮件
　　。Send
　　EndWith
　　销毁objMail对象
　　SetobjMailNothing
　　Next
　　X（endRowNo1）封邮件都发完了哦
　　MsgBoxX
　　EndSub
　　大功告成，测试一下，太棒了，所有邮件一次性搞定，均带有附件。
　　案例模板下载地址：http：url。cn5aSb9Dp
　　聂春霞：
　　就职于腾讯公司MIG运营商业务部，兼职腾讯学院Excel课程讲师，著有图书《Excel高手捷径：一招鲜吃遍天》和《Excel职场手册：260招菜鸟变达人》。
　　易学宝微视频教程，1290个Office技巧精粹，每个技巧都与实际工作密切相关。轻松学习技巧，练就职场达人，淘宝搜索关键字：ExcelHome易学宝