VisualBasic使用CDO发送SSL加密邮件【我TM还是太年轻了】

最新推荐文章于 2021-07-30 11:40:22 发布

Fletin

最新推荐文章于 2021-07-30 11:40:22 发布

阅读量7.9k

点赞数

CC 4.0 BY-SA版权

文章标签：邮件 ssl smtp vb 电子邮件

本文链接：https://blog.csdn.net/Fletin/article/details/39644377

本文介绍了作者在使用Visual Basic (VB) 发送SSL加密邮件时遇到的问题及解决过程。作者首先尝试使用System.Net.Mail，但发现其不支持Implicit SSL。转向CDO（协作数据对象）后，作者成功找到并实现了使用CDO发送带有附件的电子邮件，包括设置抄送、密送、附件等高级功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

首先，在工程里引用一个COM：Microsoft CDO for Windows 2000 Library

接着他应该会自动imports俩组件，如果没有的话你自己写：

Imports CDO
Imports ADODB

代码：

    Private Sub SendTestCDOMessage()
        Dim cdoObj As Object
        cdoObj = CreateObject("cdo.Message")


        ' TODO: 使用本地SMTP服务器
        'cdo.Configuration.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1


        ' 设置外部SMTP服务器
        cdoObj.Configuration.Fields.item _
            ("http://schemas.microsoft.com/cdo/configuration/sendusing") _
            = CDO.CdoSendUsing.cdoSendUsingPort


        cdoObj.Configuration.Fields.item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
            = "smtp.163.com"


        cdoObj.Configuration.Fields.item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
            = 465


        cdoObj.Configuration.Fields.item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") _
            = CDO.CdoProtocolsAuthentication.cdoB