(DataFlex) GMail SMTP port 587 with "less secure" Password Authentication

Send email using GMail's SMTP server on port 587 (SSL via STARTTLS).

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoMailman
    Boolean iSuccess
    Variant vEmail
    Handle hoEmail
    String sTemp1

    // This example assumes the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    Get Create (RefClass(cComChilkatMailMan)) To hoMailman
    If (Not(IsComObjectCreated(hoMailman))) Begin
        Send CreateComObject of hoMailman
    End

    // Use the GMail SMTP server
    // This example assumes your GMail account allows for "less secure apps" to use 
    // SMTP username/password authentication.
    // For OAuth2 authentication, see GMail SMTP with OAuth2 Authentication
    Set ComSmtpHost Of hoMailman To "smtp.gmail.com"
    Set ComSmtpPort Of hoMailman To 587
    Set ComStartTLS Of hoMailman To True

    // Set the SMTP login/password.
    Set ComSmtpUsername Of hoMailman To "chilkat.support"
    Set ComSmtpPassword Of hoMailman To "myPassword"

    // Create a new email object
    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End

    Set ComSubject Of hoEmail To "This is a test"
    Set ComBody Of hoEmail To "This is a test"
    Set ComFrom Of hoEmail To "Chilkat Support <chilkat.support@gmail.com>"
    Get ComAddTo Of hoEmail "Chilkat" "support@chilkatsoft.com" To iSuccess

    Get pvComObject of hoEmail to vEmail
    Get ComSendEmail Of hoMailman vEmail To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Email sent."


End_Procedure