EXCEL VBA与OUTLOOK实现批量一对一发邮件
2019-06-08 00:36
3571 查看
EXCEL VBA与OUTLOOK实现批量一对一发邮件
用途:电子邮件群发工资条、系统上线账号分发、按店铺分发报表文件、批量发送面试邀请邮件、批量发送面试者的录取通知书等等
Sub sendemail() On Error Resume Next Dim i, hangshu, buchang, To_Addr$, Cc_Addr$, Bcc_Addr$, SubjectText$, HTMLBodytxt$, AttachedObject1$, AttachedObject2$ Dim objOutlook As Object Dim objMail As MailItem Set objOutlook = CreateObject("Outlook.Application") hangshu = 2 '[A65536].End(xlUp).Row buchang = 1 For i = 2 To hangshu Step buchang '—————————————————————————————————————————————————— '—————————————————————————————————————————————————— '设置收件人地址,多个地址使用","或";"间隔。 To_Addr = "e-mail地址" '设置抄送人地址,多个地址使用","或";"间隔。 Cc_Addr = "e-mail地址" Bcc_Addr = "" '设置邮件主题 SubjectText = "邮件主题" '设置邮件附件 AttachedObject1 = ThisWorkbook.Path & "\" & "附件.txt" AttachedObject2 = ThisWorkbook.Path & "\" & "附件.txt" '—————————————————————————————————————————————————— '—————————————————————————————————————————————————— '设置邮件内容(从通讯录表的“内容”字段中获得) HTMLBodytxt = "邮件内容,支持HTML代码" HTMLBodytxt = HTMLBodytxt + "邮件内容,支持HTML代码" '—————————————————————————————————————————————————— '—————————————————————————————————————————————————— If To_Addr = "" Or SubjectText = "" Or HTMLBodytxt = "" Then MsgBox "请检查第" & hangshu & "行,收件人、邮件主题、邮件内容不能为空,点击确定继续下一行!" Else Set objMail = objOutlook.CreateItem(olMailItem) With objMail .To = To_Addr If Cc_Addr <> "" Then .cc = Cc_Addr End If If Bcc_Addr <> "" Then .BCC = Bcc_Addr End If .Subject = SubjectText If AttachedObject1 <> "" Then .Attachments.Add AttachedObject1 End If If AttachedObject2 <> "" Then .Attachments.Add AttachedObject2 End If .HTMLBody = HTMLBodytxt .display End With Set objMail = Nothing End If Next Set objOutlook = Nothing MsgBox (hangshu - 1) / buchang & "个数据记录发送完成!" End Sub
相关文章推荐
- 用Excel和OutLook实现自动批量发邮件
- 利用Excel VBA实现Outlook邮件发送实现
- 利用outlook结合word与excel实现批量发送邮件
- 利用Excel VBA实现批量数据分组转置
- 借助Excel实现Outlook联系人批量导入 推荐
- Android开发,实现可多选的图片ListView,便于批量操作
- 【hibernate框架】一对一单向主键关联(XML实现)
- 【Android应用开发】-(18)静默方式实现批量安装卸载应用程序
- 纯JS实现的批量图片预览加载功能
- Linux系统中通过kickstart软件实现对虚拟机批量全自动安装
- python实现批量重命名文件
- 对于a标签点击之后可以发邮件和打电话的功能实现
- CityEngine中实现按字段属性值批量导出模型
- springmvc实现批量删除
- 用SqlCommandBuilder 实现批量更新
- zabbix_server的自动发现,实现批量添加主机,并链接到模板
- SMTP协议初探(二)----linux下c编程实现发邮件
- jquery实现批量绑定元素
- 实现从oss(阿里云)服务器批量下载文件