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

最新推荐文章于 2021-05-24 14:57:46 发布

原创

最新推荐文章于 2021-05-24 14:57:46 发布 · 7.9k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#邮件 #ssl #smtp #vb #电子邮件

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

首先，在工程里引用一个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.CdoProtocolsAuthenti