Move Email to Another Mailbox

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

VB.NET source code example to move email from one IMAP mailbox to another.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Create an object, connect to the IMAP server, login,
        ' and select a mailbox.
        Dim imap As New Chilkat.Imap()
        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 Chilkat.MessageSet
        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.
        Dim i As Long
        For i = 0 To msgSet.Count - 1
            ListBox1.Items.Add("Moving message ID " & msgSet.GetId(i))

            ' Copy to a folder named "Viagra"
            Dim success As Long
            success = imap.Copy(msgSet.GetID(i), msgSet.HasUids(), "Viagra")
            If (success = 0) Then
                ' If success returns 0, it failed.
                MsgBox(imap.LastErrorText)
                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.LastErrorText)
                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.
        imap.Disconnect()

    End Sub

Important: The download for this example does not contain the ChilkatDotNet.dll which
must be downloaded and installed separately at http://www.chilkatsoft.com/downloads.asp.
Once installed, add a reference to the DLL in the project by following the instructions at
http://www.example-code.com/vbdotnet/step2.asp