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

批量发送带不同附件的邮件，试试这个⽅法吧今天给⼤家分享如何批量点对点发送带有附件的邮件。操作步骤如下：step1:先准备好附件、邮件正⽂内容、合作商的邮件收件⼈和抄送⼈、附件所在的⽂件路径。⽐如，邮件

批量发送带不同附件的邮件，试试这个⽅法吧 今天给⼤家分享如何批量点对点发送带有附件的邮件。 操作步骤如下： step1:先准备好附件、邮件正⽂内容、合作商的邮件收件⼈和抄送⼈、附件所在的⽂件路径。 ⽐如，邮件正⽂内容： 图1 合作商收件⼈和抄送⼈以及需要发送的附件所在的⽂件路径： 图2 这⾥建议邮箱先设置为⾃⼰的邮箱测试，千万别写合作商的邮箱。 Step2:点击开发⼯具→表单控件，插⼊表单控件，修改控件名称为你⾃⼰想设置的名称。 图3 Step3:点击开发⼯具→查看代码，点击视图→⼯程资源管理器，找到模块1，双击输⼊以下代码： 图4 Sub Mygirl() '要能正确发送并需要对MicroseftOutlook进⾏有效配置 On Error Resume Next Dim rowCount, endRowNo '要正常运⾏下⾯这句,要将⼯具/引⽤中的Microseft Outlook *.0 Object Library(其中*为你Microseft Outlook的版本号)选上 Dim objOutlook As New Outlook.Application Dim objMail As MailItem '取得当前⼯作表与Cells(1,1)相连的数据区⾏数 endRowNo =Cells(1,1).CurrentRegion.Rows.Count '创建objOutlook为Outlook应⽤程序对象 Set objOutlook =New Outlook.Application '开始循环发送电⼦邮件