(PureBasic) IMAP Copy Email from Selected Folder to Another Folder

Copies an email from the selected mailbox (folder) to another mailbox (folder).

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkImap.pb"
IncludeFile "CkMessageSet.pb"

Procedure ChilkatExample()

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

    ; This example copies an email from one mailbox to another.
    imap.i = CkImap::ckCreate()
    If imap.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Turn on session logging for debugging.
    CkImap::setCkKeepSessionLog(imap, 1)

    ; Connect using TLS.
    CkImap::setCkSsl(imap, 1)
    CkImap::setCkPort(imap, 993)
    success.i = CkImap::ckConnect(imap,"imap.example.com")
    If success <> 1
        Debug CkImap::ckLastErrorText(imap)
        CkImap::ckDispose(imap)
        ProcedureReturn
    EndIf

    ; Authenticate
    success = CkImap::ckLogin(imap,"email_account_login","email_account_password")
    If success <> 1
        Debug CkImap::ckLastErrorText(imap)
        CkImap::ckDispose(imap)
        ProcedureReturn
    EndIf

    ; Select an IMAP mailbox
    success = CkImap::ckSelectMailbox(imap,"Inbox")
    If success <> 1
        Debug CkImap::ckLastErrorText(imap)
        CkImap::ckDispose(imap)
        ProcedureReturn
    EndIf

    ; Search for messages having "Test email" in the subject.
    fetchUids.i = 1
    messageSet.i = CkImap::ckSearch(imap,"SUBJECT " + Chr(34) + "Test email" + Chr(34),fetchUids)
    If CkImap::ckLastMethodSuccess(imap) <> 1
        Debug CkImap::ckLastErrorText(imap)
        CkImap::ckDispose(imap)
        ProcedureReturn
    EndIf

    ; Assuming we have 1 or more messages in the set, copy the 1st one to the folder "Inbox.testFolder"
    If CkMessageSet::ckCount(messageSet) > 0
        success = CkImap::ckCopy(imap,CkMessageSet::ckGetId(messageSet,0),CkMessageSet::ckHasUids(messageSet),"Inbox/testFolder")
        If success <> 1
            Debug CkImap::ckLastErrorText(imap)
        EndIf

    EndIf

    CkMessageSet::ckDispose(messageSet)

    Debug CkImap::ckSessionLog(imap)

    Debug "OK"

    ; Sample sessiong log:

    ; ----INFO----
    ; Connecting to IMAP server at outlook.office365.com:993
    ; ----IMAP RESPONSE----
    ; * OK The Microsoft Exchange IMAP4 service is ready. [QgBMADAAUABSADAAMQAwADIAQwBBADAAMAA3ADAALgBwAHIAbwBkAC4AZQB4AGMAaABhAG4AZwBlAGwAYQBiAHMALgBjAG8AbQA=]
    ; ----IMAP REQUEST----
    ; aaab LOGIN "chilkat@live.com"
    ; ----IMAP RESPONSE----
    ; aaab OK LOGIN completed.
    ; ----IMAP REQUEST----
    ; aaac SELECT "Inbox"
    ; ----IMAP RESPONSE----
    ; * 28 EXISTS
    ; * 0 RECENT
    ; * FLAGS (\Seen \Answered \Flagged \Deleted \Draft $MDNSent)
    ; * OK [PERMANENTFLAGS (\Seen \Answered \Flagged \Deleted \Draft $MDNSent)] Permanent flags
    ; * OK [UNSEEN 23] Is the first unseen message
    ; * OK [UIDVALIDITY 14] UIDVALIDITY value
    ; * OK [UIDNEXT 6416] The next unique identifier value
    ; aaac OK [READ-WRITE] SELECT completed.
    ; ----IMAP REQUEST----
    ; aaad UID SEARCH SUBJECT "Test email"
    ; ----IMAP RESPONSE----
    ; * SEARCH 6414
    ; aaad OK SEARCH completed.
    ; ----IMAP REQUEST----
    ; aaae UID COPY 6414 "Inbox/testFolder"
    ; ----IMAP RESPONSE----
    ; aaae OK [COPYUID 180 6414 1] COPY completed.
    ; 
    ; OK


    CkImap::ckDispose(imap)


    ProcedureReturn
EndProcedure