VB-使用CDO连接Exchange Server发邮件

实现CDO控件通过exchange server发送邮件

邮箱环境 企业邮箱 Exchange Server（office 365）

 

1. 首先加载 Microsoft CDO for Windows 2000 library.

 

2. 创建CDO实例

Set cdoObj = CreateObject("cdo.message")
Set iConf = CreateObject("CDO.Configuration")

 

3. 选择使用SMTP

iFields.Item(nameSpace + "sendusing") = 2 ' SMTP

 

4.设置服务器IP地址

本例子使用Exchange Server作为地址

iFields.Item(nameSpace + "smtpserver") = smtpServer

 

5.如果服务器端设置允许不需要认证发送邮件

iFields.Item(nameSpace & "smtpauthenticate") = 0

如果需要认证

iFields.Item(nameSpace & "smtpauthenticate") = 1

并且输入

iFields.Item(nameSpace & "sendusername") = sendUserName
iFields.Item(nameSpace & "sendpassword") = sendPassword

 

本项目用的是域用户，在局域网内测试不需要认证

但如果用邮箱认证也是可以的<