(Excel) 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.

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim imap As Chilkat.Imap
Set imap = Chilkat.NewImap

' Connect to an IMAP server.
' Use TLS
imap.Ssl = True
imap.Port = 993

success = imap.Connect("imap.someMailServer.com")
If (success <> True) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

' Login
success = imap.Login("myLogin","myPassword")
If (success <> True) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

' Select an IMAP mailbox
success = imap.SelectMailbox("Inbox")
If (success <> True) Then
    Debug.Print imap.LastErrorText
    Exit Sub
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.

numEmails = imap.NumMessages

Dim mset As Chilkat.MessageSet
Set mset = Chilkat.NewMessageSet

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

i = 0
Do While i < numEmails
    ' Fetch the email by sequence number.

    Set email = imap.FetchSingle(i + 1,False)
    If (imap.LastMethodSuccess <> True) Then
        Debug.Print imap.LastErrorText
        Exit Sub
    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

    destFolder = "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 <> True) Then
        Debug.Print imap.LastErrorText
        Exit Sub
    End If

End If

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