VBcoders Guest



Don't have an account yet? Register
 


Forgot Password?



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

by kAOs (9 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 31st January 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)

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




    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

Download this snippet    Add to My Saved Code

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

No comments have been posted about if it's email u want this is what u r looking 4...CDO 2000 LIB...send mail using CDO SMTP allowing . Why not be the first to post a comment about if it's email u want this is what u r looking 4...CDO 2000 LIB...send mail using CDO SMTP allowing .

Post your comment

Subject:
Message:
0/1000 characters