VBA用CDO批量发送邮件

由于工作需要给单位内每个人发送有关个人信息的邮件，给每个人发送的附件都不一样。没学过VBA，上网搜索有很多相关的教程，使用的是QQ邮箱，事先要开通SMTP服务获取授权密码。希望能给有需要的人一些帮助。

Sub CDOEMAIL()
Application.ScreenUpdating = False
lr = Cells(Rows.Count, 2).End(3).Row '读取数据行数
’ MsgBox (lr) '显示数据行数
Dim cm As Variant
For i = 2 To lr '循环，从第2行开始
Const Email_From = “XXX@qq.com” '用于发送的邮箱号码
Const Password = “XXX” '邮箱密码，必须是开通SMTP服务后获得的授权密码
'Const Email_To = Sheet1.Range(“B” & i)
Set cm = CreateObject(“CDO.Message”)

cm.Subject = Sheet1.Range(“C” & i) '邮件主题，从C2开始
cm.From = Email_From
cm.To = Sheet1.Range(“B” & i) '收件人邮箱，从B2开始
cm.TextBody = Sheet1.Range(“D” & i) '邮件内容,D2
cm.AddAttachment Sheet1.Range(“E” & i) '附件路径，E2
Const schema = “http://schemas.microsoft.com/cdo/configuration/” '微软邮件服务器网址

With cm.Configuration.Fields
.Item(schema & “sendusing”) = 2 '发送端口
.Item(schema & “smtpserver”) = “smtp.qq.com” 'SMTP服务器地址
.Item(schema & “smtpauthenticate”) = 1
.Item(schema & “sendusername”) = Email_From '发送邮箱名称
.Item(schema & “sendpassword”) = Password '发送邮箱密码
.Item(schema & “smtpserverport”) = 465 'SMTP服务器端口
.Item(schema & “smtpusessl”) = True
.Item(schema & “smtpconnectiontimeout”) = 60
.Update
End With
cm.Send
Set cm = Nothing
Next
End Sub

VBA用CDO批量发送邮件相关推荐

cdo收取邮件_【Excel VBA】- 使用CDO批量发送邮件（二）
前一期为大家介绍了如何使用VBA结合Outlook批量发送邮件,需要批量为不同的人发送不同的附件等,可以很方便的批量发送.但缺点是需要事先配置Outlook邮箱.那有没有不需要配置Outlook即可批 ...
让自己开发的VBA应用能够批量发送邮件(可带多个附件）
当我们开发了一个VBA应用,很多时候需要让它能够自动批量发送邮件.这时候,我们就需要使用到CDO了.CDO全称Collaboration Data Objects,即协作数据对象,是Office 软件 ...
Excel 2010 VBA 入门 102 利用VBA批量发送邮件
目录示例代码 CDO组件 CDO. Message. Configuration对象前期绑定与后期绑定 New关键字创建对象添加邮件的附件示例如图所示,该表为某公司员工工资单.现需要将该表 ...
个人永久性免费-Excel催化剂功能第24波-批量发送邮件并指点不同附件不同变量...
批量发送邮件功能,对高级OFFICE用户来说,第1时间会想到使用WORD的邮件合并功能.但对于需要发送附件来说,邮件合并功能就无能为力,同样还有的限制是用户电脑上没有安装OUTLOOK,同样也不能发送 ...
个人永久性免费-Excel催化剂功能第87波-将批量发送邮件做到极致化，需借力Outlook...
在过往的功能中,已经实现过批量发送邮件的功能,但收到的反馈是部分企业邮箱不能用,原因是无解的,因为程序员能找到的公开的类库只能实现一些通用性的场景,太复杂的企业环境可能会失灵. 近期认真来学习Outl ...
Spring多线程批量发送邮件（ThreadPoolTaskExecutor）
1,需求:使用多线程批量发送邮件需要批量发送邮件大概400封左右,但是因为发送邮件受网络限制,所以经常导致等待超时.所以就想到了使用多线程来发邮件,因为是异步的所以返回结果不受发邮件影响. 2,思路 ...
PHP 命令行模式实战之cli+mysql 模拟队列批量发送邮件(在Linux环境下PHP 异步执行脚本发送事件通知消息实际案例)...
源码地址:https://github.com/Tinywan/PHP_Experience 测试环境配置: 环境:Windows 7系统 .PHP7.0.Apache服务器 PHP框架:ThinkP ...
python自动读取excel文件邮箱列表，自动批量发送邮件项目（附使用方法+代码）
python自动发送邮件项目项目简介使用方法项目结构完整项目代码结语项目简介该项目功能是利用python自动读取excel文件中的邮箱列表,并批量发送邮件到目标邮箱,进行客户挖掘的.该项 ...
使用VBA实现xls批量转xlsx（遍历当前文件夹以及子文件夹）
使用VBA实现xls批量转xlsx Published on Aug 9, 2019 in 编程 with 0 comment 我用Office 2019编辑过的一批xls文件,在Office 201 ...
SpringBoot整合SpringEmail 批量发送邮件
SpringBoot整合SpringEmail 批量发送邮件前言:公司目前有个业务就是向订阅了客户发送邮件,所以我把这块的内容记录下来 1.引入依赖 <d ...

VBA用CDO批量发送邮件

VBA用CDO批量发送邮件

VBA用CDO批量发送邮件相关推荐

最新文章

热门文章