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

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