实现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
本项目用的是域用户,在局域网内测试不需要认证
但如果用邮箱认证也是可以的<