VBA信息获取与处理专题五第一节：利用CDO发送简单邮件

《VBA信息获取与处理》教程(版权10178984)是我推出第六套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。这部教程给大家讲解的内容有：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪贴板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的，更具研究的价值。

教程共两册,二十个专题。今日分享内容是：VBA信息获取与处理专题五第一节：利用CDO发送简单邮件

【分享成果，随喜正能量】164 烦恼本无根，不捡自然无。外面没有别人，只有你自己，一切烦恼都源于内耗。与其在内耗中耗费时间，不如用行动来提升自我，成就强大的人生。

专题五 VBA利用CDO发送电子邮件

第一节 利用CDO发送简单邮件

这个专题的第一节是利用CDO发送简单邮件，发送邮件，在职场工作中最普遍的事情了，这节我们将讲解利用CDO.Message发送一个简单的电子邮件。

1 利用CDO发送邮件的思路分析

对于一个简单的邮件而言，我们一般会用到：发件人，收件人，邮件的标题，邮件的内容，利用CDO发送邮件也是如此。我们要设置这些内容及参数。

由于这种方案是利用第三方软件来完成，我们要有第三方的授权，就是在开篇中提到的邮件服务器的设置中授权密码。

如何验证邮件是否发送成功呢？我们可以借助于Err.Number，发送邮件后，如果这个值返回是0，那么我们就可以认为邮件发送成功了，否则没有成功。

2 利用CDO发送邮件的代码实现

我仍是先给出我的代码：

Sub myNZ()

'简单邮件发送

MailFrom = "VBA6337@126.com" '设置发信人的邮箱

MailTo = "NESANG@189.cn" '设置收信人的邮箱

Mailsendpassword = "CUIAYZSDHOYZPH**" '授权码

（待续）

我20多年的VBA实践经验，全部浓缩在下面的各个教程中，教程学习顺序：