利用CDO发送邮件

        Dim pstrMsg As CDO.Message
        Dim pstrConf As CDO.Configuration
        Dim pstrFlds As ADODB.Fields
        Const cdoSendUsingPort = 2       
        Set pstrMsg = New CDO.Message
        Set pstrConf = New CDO.Configuration
       
        Set pstrFlds = pstrConf.Fields
        With pstrFlds
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxx.xxx.xxx.xxx"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
            .Update
        End With
       
        With pstrMsg
            Set .Configuration = pstrConf
            .To = pstrToMail
            .CC = pstrCCMail
            .From = "xxx@xxx.com"
            .Subject = bstrSubject
            .HTMLBody = bstrNoteText
            If IsArray(pvarFileName) = True Then
                For pintI = 0 To UBound(pvarFileName)
                    .AddAttachment pvarFileName(pintI)
                Next
            End If
            .Send
        End With
       
        Set pstrMsg = Nothing
        Set pstrConf = Nothing
        Set pstrFlds = Nothing