这篇博客介绍了如何在VBA中利用Windows内置的cdosys.dll组件发送邮件，无需依赖额外的库文件或应用程序。文章提供了一个详细的CDO.Message对象配置和使用示例，包括设置SMTP服务器、端口、超时、认证方式、发件人、收件人、邮件标题和内容等参数，并支持添加附件和指定文字编码。
VBA中发送邮件有很多方法，Jmail或者直接调用outlook，Jmail要求本机安装Jmail.dll库文件，调用outlook又要要求本机安装outlook并且配置好outlook收发邮件。
本文介绍使用Windows自带的cdosys.dll发送邮件。
不做多解释直接上代码了。
' CDO相关参数
Private Const cdoSendUsingMethod = _
"http://schemas.microsoft.com/cdo/configuration/sendusing"
Private Const cdoSMTPServer = _
"http://schemas.microsoft.com/cdo/configuration/smtpserver"
Private Const cdoSMTPServerPort = _
"http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Private Const cdoSMTPConnectionTimeout = _
"http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Private Const cdoSMTPAuthenticate = _
"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Private Const cdoSMTPPassword = _
"http://schemas.microsoft.com/cdo/configuration/sendpassword"
Private Const cdoSMTPUserId = _
"http://schemas.microsoft.com/cdo/configuration/sendusername"
Private Const cdoSMTPUsessl = _
"http://schemas.microsoft.com/cdo/configuration/smtpusessl"
Private Const cdoSendUsingPort = 2
Private Const cdoAnonymous = 0
Private Const cnsUseSSL = True
Private Const cdoLanguageCode = _
"http://schemas.microsoft.com/cdo/configuration/languagecode"
最低0.47元/天 解锁文章
扫一扫
1539
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
