B4X Requires Chilkat v11.0.0+

Move Selected Emails to another Mailbox Folder

See more IMAP Examples

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. B4X

Dim success As Boolean = False

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

Dim imap As ChilkatImap
imap.Initialize("imap")

'  Connect to an IMAP server.
'  Use TLS
imap.Ssl = True
imap.Port = 993
success = imap.Connect("imap.example.com")
If success = False Then
    Log(imap.LastErrorText)
    Return
End If


'  Login
success = imap.Login("myLogin", "myPassword")
If success = False Then
    Log(imap.LastErrorText)
    Return
End If


'  Select an IMAP mailbox
success = imap.SelectMailbox("Inbox")
If success = False Then
    Log(imap.LastErrorText)
    Return
End If


'  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 True.
imap.PeekMode = True

'  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.
Dim numEmails As Int = imap.NumMessages

Dim mset As ChilkatMessageSet
mset.Initialize

'  Indicate that mset contains sequence numbers, not UIDs.
mset.HasUids = False

'  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.
Dim email As ChilkatEmail
email.Initialize
Dim i As Int = 0
Do While i < numEmails
    '  Fetch the email by sequence number.
    success = imap.FetchEmail(False, i + 1, False, email)
    If success = False Then
        Log(imap.LastErrorText)
        Return
    End If


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

Loop

'  If there are emails in mset to be moved, then do it..
If mset.Count > 0 Then
    Dim destFolder As String = "Inbox/SomeOtherFolder"
    '  Assuming your IMAP server supports the feature that allows for messages to be moved to another folder...
    success = imap.MoveMessages(mset, destFolder)
    If success = False Then
        Log(imap.LastErrorText)
        Return
    End If



End If


'  Disconnect from the IMAP server.
success = imap.Disconnect