Move Email to another IMAP Mailbox

Download Chilkat IMAP ActiveX

Visual Basic (VB6) sample code to move email from one IMAP mailbox to another.

Private Sub Command1_Click()

    ' Create an object, connect to the IMAP server, login,
    ' and select a mailbox.
    Dim imap As New ChilkatImap
    imap.UnlockComponent "UnlockCode"
    imap.Connect "www.mymailserver.com"
    imap.Login "login", "password"
    imap.SelectMailbox "Inbox"
    
    ' Get a message set containing the message IDs
    ' of all emails having the word Viagra in the subject
    Dim msgSet As messageSet
    Set msgSet = imap.Search("SUBJECT Viagra", 1)
    
    ' Loop over the message IDs and copy each message to another folder and
    ' delete it from the Inbox.  A MOVE operation in IMAP is done by copy
    ' and delete.
    For i = 0 To msgSet.Count - 1
        List1.AddItem "Moving message ID " & msgSet.GetID(i)
        
        ' Copy to a folder named "Viagra"
        success = imap.Copy(msgSet.GetID(i), msgSet.HasUids(), "Viagra")
         If (success = 0) Then
            ' If success returns 0, it failed.
            MsgBox imap.ErrorLogText
            Exit Sub
        End If
        
        ' Delete from Inbox (our currently selected mailbox).
        success = imap.SetFlag(msgSet.GetID(i), msgSet.HasUids(), "Deleted", 1)
        If (success = 0) Then
            ' If success returns 0, it failed.
            MsgBox imap.ErrorLogText
            Exit Sub
        End If
    Next
    
    ' Now really delete the Viagra emails from Inbox by expunging (also close the mailbox).
    imap.ExpungeAndClose
    
    ' Disconnect from the IMAP server.
    ' This example leaves the email on the IMAP server.
    imap.Disconnect
    
    
End Sub