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

第一步：邮箱设置配置好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 ToendRowNoSet 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 WithSet objMail = NothingNextSet objOutlook = NothingMsgBox 邮件已发送, vbInformationEnd Sub第四步：执行宏执行“开发工具→宏”，选择“sendmail”，点击“执行”，就会自动发送邮件，并且在发送完成后提示“邮件已发送”。(此处最好选择当前工作簿)仁和乡响水小学“深化平安校园”护校行动6月工作小结6月份，在全校师生中广泛开展了安全宣传教育活动，并取得了良好的效果，现将“安全生产月”活动总结如下：1、切实加强了对活动的领导。学校把开展“安全教育月”活动作为确保学校和师生安全的重要措施，成立了安全教育活动领导小组，切实加强领导，精心组织，狠抓落实，确保了各项活动的顺利开展。2、落实了安全生产月活动实施方案。我校紧紧围绕安全生产月“强化安全意识、促进校园安全 师生平安。”这一活动主题，结合自己的实际制定了具体的活动方案，切实把安全生产月活动抓出成效。3、广泛开展了安全教育与宣传活动。在安全月活动期间，利用橱窗、板报、壁报开辟安全宣传教育栏，着力营造浓厚的校园安全教育氛围，开展了宣传巡讲活动以及“安全伴我在校园，我把安全带回家”征文活动，提高学生安全防范意识和能力。同时,充分利用国旗下讲话、班会课等着力宣传安全知识及学校开展活动情况。4、开展了突发公共事件应急预案演练。认真总结前期开展的“防火防震安全疏散演练”活动中好的经验与做法，将师生应急逃生及避难等应急预案演练常态化，切实提高广大师生安全防范意识和自护自救能力。5、鼓励教师积极参加“安全在我心中”书画比赛。6、进一步健全和落实了各项安全制度。我校的“安全教育月”活动与日常学生管理紧密结合，层层落实责任制和责任追究制。完善了各种安全制度和各类应急处置预案，切实加强了防火、防溺水、防毒、防电、防盗等安全知识教育。7、深入进行了校内外设施的安全排查工作。认真排查学校安全隐患，落实整改措施，开展学校各类安全事故隐患排查治理。安全教育月活动期间，学校组织人员对全校的校舍、体育设施、消防设施和周边环境等不安全因素全面细致地进行了一次清理检查，不漏一房一舍，排除一切不安全隐患，并责任到人，对存在的问题立即采取措施进行维修和改造，确保了师生的生命安全。8、切实加强了学生防溺水安全工作。针对夏季炎热且雨季来临，儿童缺乏防范意识，私自下水或在水边玩耍，溺水事故多发的现状，学校通过多种形式，在学生中深入开展防溺水安全知识教育，如召开家长会、发放《致学生家长的一封公开信》、班会教育、黑板报等多种方式，对学生进行防溺水安全教育