2010版EXCEL群发邮件添加多个不同的附件
4页1、.第一步:邮箱设置 配置好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
2、= New Outlook.ApplicationFor rowCount = 2 To endRowNo Set 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 With Set objMail = NothingNextSet objOutlook = NothingMsgBox 邮件已发送, vbInformationEnd Sub第四步:执行宏执行“开发工具宏”,选择“sendmail”,点击“执行”,就会自动发送邮件,并且在发送完成后提示“邮件已发送”。(此处最好选择当前工作簿).
《2010版EXCEL群发邮件添加多个不同的附件》由会员顺腾分享,可在线阅读,更多相关《2010版EXCEL群发邮件添加多个不同的附件》请在金锄头文库上搜索。
CAD技术的历史、现状与未来 (5)
2011浙江湖州中考英语word(解析)
2010版EXCEL群发邮件添加多个不同的附件
《阿长与山海经》知识梳理
伊利蒙牛财务报表对比分析
医院微信公众平台服务
游戏的本质(网易)
工程量现场收方单 (2)
工程部管理制度 (3)
高一地理农业地域类型
档案管理制度 (5)
比例的基本性质练习题 (3)
27、质量信息管理制度
比例的意义和基本性质练习题 (2)
07干部人事档案任前审核登记表
初中英语形容词性物主代词和名词性物主代词练习题
大学生职业生涯规划课后感想
CISG_联合国国际货物销售合同公约(中英文对照)
档案管理制度 (3)
大专生职业生涯规划
2023-03-12 121页
2023-04-20 3页
2023-11-26 3页
2024-01-16 41页
2022-11-04 4页
2022-12-24 6页
2023-11-14 39页
2023-03-22 39页
2023-09-08 21页
2022-08-20 41页