操作步骤如下： 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 开始循环发送电子邮件 ForrowCount2ToendRowN 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 N X（endRowNo1）封邮件都发完了哦 MsgBoxX EndSub 大功告成，测试一下，太棒了，所有邮件一次性搞定，均带有附件。 案例模板下载地址：http：url。cn5aSb9Dp 聂春霞： 就职于腾讯公司MIG运营商业务部，兼职腾讯学院Excel课程讲师，著有图书《Excel高手捷径：一招鲜吃遍天》和《Excel职场手册：260招菜鸟变达人》。 易学宝微视频教程，1290个Office技巧精粹，每个技巧都与实际工作密切相关。轻松学习技巧，练就职场达人，淘宝搜索关键字：ExcelHome易学宝
大学毕业生如何查询毕业后的档案流动信息？如何报考大学英语四级考试？如何教孩子下象棋2019年英国卡迪夫大学世界排名【QS最新世界排名第145名怎么找人教版教材的电子书面向未来，学生需要什么样的核心素养如何确定起跑线网络课程如何加速辽宁大学怎么样4岁宝宝学什么WPS如何在论文设置参考文献格式怎么利用PPT制作海报？