DataFlex

Async Upload (Append) Email to an IMAP Mailbox

Use the AppendMailAsync method call to append an email to an IMAP mailbox. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoImap
    Variant vEmail
    Handle hoEmail
    Variant vTask
    Handle hoTask
    String sTemp1
    Boolean bTemp1

    Move False To iSuccess

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

    Get Create (RefClass(cComChilkatImap)) To hoImap
    If (Not(IsComObjectCreated(hoImap))) Begin
        Send CreateComObject of hoImap
    End

    // Connect to an IMAP server.
    // Use TLS
    Set ComSsl Of hoImap To True
    Set ComPort Of hoImap To 993
    Get ComConnect Of hoImap "MY-IMAP-DOMAIN" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoImap To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Login
    Get ComLogin Of hoImap "MY-IMAP-LOGIN" "MY-IMAP-PASSWORD" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoImap To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Create a simple email with 2 recipients.
    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End
    Set ComFrom Of hoEmail To "support@chilkatsoft.com"
    Get ComAddTo Of hoEmail "Chilkat Sales" "sales@chilkatsoft.com" To iSuccess
    Get ComAddTo Of hoEmail "Chilkat GMail" "chilkat.support@gmail.com" To iSuccess
    Set ComBody Of hoEmail To "This is a test email."
    Set ComSubject Of hoEmail To "This is a test email."

    // Imagine we've sent this email via SMTP, and now we want to 
    // save the email to our "Sent" mailbox.  On GMail, the mailbox name
    // for sent email is "[Gmail]/Sent Mail".

    // Call the async version of the AppendMail method to return a task object.
    Get pvComObject of hoEmail to vEmail
    Get ComAppendMailAsync Of hoImap "[Gmail]/Sent Mail" vEmail To vTask
    If (IsComObject(vTask)) Begin
        Get Create (RefClass(cComChilkatTask)) To hoTask
        Set pvComObject Of hoTask To vTask
    End
    Get ComLastMethodSuccess Of hoImap To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoImap To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Schedule the task for running on the thread pool.  This changes the task's state
    // from Inert to Live.  The task is now running...
    Get ComRun Of hoTask To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoTask To sTemp1
        Showln sTemp1
        Send Destroy of hoTask
        Procedure_Return
    End

    // -------------------------------------------------------------------------------
    // The following is a general note that applies to all programming languages:
    // -------------------------------------------------------------------------------
    // Your application can keep a reference to the task object and periodically check back later to see if it's finished.
    // If your programming language is one that supports callbacks, then the TaskCompleted callback can
    // be setup to be called when the task completes.  (See the "Async" category on example-code.com for more information.)
    // 
    // NOTE: This is very important:  A TaskCompleted callback runs in the background thread.  
    // (All callbacks from an async task, such as AbortCheck, PercentDone, ProgressInfo, etc. are in the background thread.) 
    // An application that uses TaskCompleted must be very careful.  
    // For example, user interface elements (such as labels, text boxes, etc.) may not be directly
    // accessible from a background thread, and could crash the application if directly accessed.  Also, attempting to debug
    // code running in a background thread from an IDE, especially an older IDE (such as VB6) is likely to crash the IDE.


End_Procedure