• Home
 · 
• Windows System Services
 · 
• if it's email u want this is what u r looking 4...CDO 2000 LIB...send mail using CDO SMTP allowing

if it's email u want this is what u r looking 4...CDO 2000 LIB...send mail using CDO SMTP allowing

if it's email u want this is what u r looking 4...CDO 2000 LIB...send mail using CDO SMTP allowing [from], [to], [subject],

API Declarations


'Reference CDO for Windows 2000 lib



Rate if it's email u want this is what u r looking 4...CDO 2000 LIB...send mail using CDO SMTP allowing

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    Dim cdo2configuration As New CDO.Configuration
    Dim cdo2fields As ADODB.Fields
    Dim cdo2message As New CDO.Message


    Set cdo2fields = cdo2configuration.Fields

    With cdo2fields
        .Item(cdoSMTPServer) = "mail.server.com.au"
        .Item(cdoSendUsingMethod) = cdoSendUsingPort
        .Update
    End With

    Set cdo2message.Configuration = cdo2configuration

    cdo2message.From = "[email protected]"
    cdo2message.To = "[email protected]"
    cdo2message.Subject = "Subject"
    cdo2message.AddAttachment "C:\file.att"

    cdo2message.Send

end function