日志
CDO
||
发送邮件从Excel使用CDO
罗恩日布鲁因（最后更新日期： 10月31日2007 ）
返回到邮件提示网页
是什么做的CDO
该示例代码是使用CDOSYS （ CDO程式的Windows 2000 ） 。
它不依赖于的MAPI或CDO ，因而是自由对话
和不使用您的电子邮件程序发送电子邮件。
<You可以发送电子邮件没有电子邮件program>
简要地解释一下，此代码为基础的信息和它滴
在拾取目录，和SMTP服务的机器上运行
选择它，并传送到因特网。
为什么要使用CDO代码而不是Outlook的自动化或sendmail在VBA 。
1 ：这个问题不在于哪些邮件程序您正在使用（只需使用SMTP服务器） 。
2 ：不管什么Office版本您使用的是（ 97 ... 2007年）
3 ：您可以发送了一系列/张正文中的邮件（一些电子邮件程序不能做到这一点）
4 ：您可以将您喜欢的任何文件（如Word ， PDF格式， PowerPoint中， txt文件， ... 。 ）
5 ：没有任何安全警告了，真是太好了，如果您要发送大量邮件的一个循环。
阅读！
此代码将不会工作，运98和ME 。
您必须连接到互联网当您运行的例子。
有可能是您获得发送错误当您使用其中一个例子。
AFAIK ：会出现这种情况如果您没有设置一个帐户在Outlook Express或Windows Mail的。
在这种情况下，系统不知道的名字您的SMTP服务器。
如果发生这种情况可以使用评论绿线在每一个例子。
不要忘记填写SMTP服务器名称，在那里每个代码示例
它说： “请填写您的SMTP服务器在这里”
当您还可以获得所需的身份验证错误，您可以添加此三系。
。项目（ “ http://schemas.microsoft.com/cdo/configuration/sendusername ” ） = “用户名”
。项目（ “ http://schemas.microsoft.com/cdo/configuration/sendpassword ” ） = “密码”
不要删除TextBody行的代码中。如果您不能打开附件（错误CDO ）的。
如果你不想有文字的正文中使用此然后。 TextBody = “ ”
不要删除TextBody行的代码中。如果您不能打开附件（错误CDO ）的。
如果你不想有文字的正文中使用此然后。 TextBody = “ ”
注：这始终是可能的，你的防火墙阻止代码（请检查您的防火墙设置）
你可以使用CDO在你的机器？
让我们尝试一个基本例如第一。
下面的代码将派出四个文本行的正文中的邮件的人在这条线
。为了= “ ron@debruin.nl ”
涨跌ron@debruin.nl到您自己的电子邮件地址，然后您测试代码。
如果你读了以上信息，你知道，如果你有一个帐户在Outlook Express或
Windows Mail的你可以运行下面的代码后，改变了电子邮件地址。
但是，如果你没有帐户在Outlook Express或Windows Mail您还需要评论
绿线中的代码。删除每一个'绿线之前，每一个和填写的姓名您的SMTP服务器
它说： “请填写您的SMTP服务器在这里”
1 ）打开一个新工作簿
2 ）备选F11键（打开VBA编辑器）
3 ）插入“ >模块
4 ）粘贴代码在此模块
5 ）进行更改
6 ）备选q要返回到Excel
