(Visual FoxPro) IMAP Copy Email from Selected Folder to Another Folder

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

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

LOCAL loImap
LOCAL lnSuccess
LOCAL lnFetchUids
LOCAL loMessageSet

* 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.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Imap')
loImap = CreateObject('Chilkat.Imap')

* Turn on session logging for debugging.
loImap.KeepSessionLog = 1

* Connect using TLS.
loImap.Ssl = 1
loImap.Port = 993
lnSuccess = loImap.Connect("imap.example.com")
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* Authenticate
lnSuccess = loImap.Login("email_account_login","email_account_password")
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* Select an IMAP mailbox
lnSuccess = loImap.SelectMailbox("Inbox")
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* Search for messages having "Test email" in the subject.
lnFetchUids = 1
loMessageSet = loImap.Search('SUBJECT "Test email"',lnFetchUids)
IF (loImap.LastMethodSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* Assuming we have 1 or more messages in the set, copy the 1st one to the folder "Inbox.testFolder"
IF (loMessageSet.Count > 0) THEN
    lnSuccess = loImap.Copy(loMessageSet.GetId(0),loMessageSet.HasUids,"Inbox/testFolder")
    IF (lnSuccess <> 1) THEN
        ? loImap.LastErrorText
    ENDIF

ENDIF

RELEASE loMessageSet

? loImap.SessionLog

? "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

RELEASE loImap