(Visual FoxPro) Move Selected Emails to another Mailbox Folder

Downloads emails one by one in a selected mailbox, decides which emails are to be moved, and then moves the set of messages to another mailbox folder.

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

LOCAL loImap
LOCAL lnSuccess
LOCAL lnNumEmails
LOCAL loMset
LOCAL i
LOCAL loEmail
LOCAL lcDestFolder

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Imap')
loImap = CreateObject('Chilkat.Imap')

* Connect to an IMAP server.
* Use TLS
loImap.Ssl = 1
loImap.Port = 993
lnSuccess = loImap.Connect("imap.someMailServer.com")
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* Login
lnSuccess = loImap.Login("myLogin","myPassword")
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

* Normally, when an email is downloaded, its "Seen" flag is automatically set.
* We don't want our program to be interfering with the "Seen" flags.
* To do this, set the PeekMode to 1.
loImap.PeekMode = 1

* After selecting the mailbox, the NumMessages property
* will contain the number of emails in the mailbox.
* When sequence numbers (not UIDs) are used to reference emails,
* they range from 1 to N, where N is the number of messages in the mailbox.
* This example will download the headers by sequence numbers.
lnNumEmails = loImap.NumMessages

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.MessageSet')
loMset = CreateObject('Chilkat.MessageSet')

* Indicate that mset contains sequence numbers, not UIDs.
loMset.HasUids = 0

* Fetch each email and decide for each if it is to be moved
* to a particular other mailbox.  If so, we'll add the sequence number to
* the mset, and then move all emails in the mset to the other mailbox.
i = 0
DO WHILE i < lnNumEmails
    * Fetch the email by sequence number.
    loEmail = loImap.FetchSingle(i + 1,0)
    IF (loImap.LastMethodSuccess <> 1) THEN
        ? loImap.LastErrorText
        RELEASE loImap
        RELEASE loMset
        CANCEL
    ENDIF

    * If it is decided to move the email, add the sequence number to mset, like this:
    loMset.InsertId(i + 1)

    RELEASE loEmail
ENDDO

* If there are emails in mset to be moved, then do it..
IF (loMset.Count > 0) THEN
    lcDestFolder = "Inbox/SomeOtherFolder"
    * Assuming your IMAP server supports the feature that allows for messages to be moved to another folder...
    lnSuccess = loImap.MoveMessages(loMset,lcDestFolder)
    IF (lnSuccess <> 1) THEN
        ? loImap.LastErrorText
        RELEASE loImap
        RELEASE loMset
        CANCEL
    ENDIF

ENDIF

* Disconnect from the IMAP server.
lnSuccess = loImap.Disconnect()

RELEASE loImap
RELEASE loMset