(Xojo Plugin) How to Copy IMAP Mail to another IMAP Server

Demonstrates how to copy the entire contents of an IMAP mailbox to another IMAP server.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim imapSrc As New Chilkat.Imap

// Connect to our source IMAP server.
Dim success As Boolean
success = imapSrc.Connect("imap.someMailServer.com")
If (success <> True) Then
    System.DebugLog(imapSrc.LastErrorText)
    Return
End If

// Login to the source IMAP server
success = imapSrc.Login("admin@chilkatsoft.com","myPassword")
If (success <> True) Then
    System.DebugLog(imapSrc.LastErrorText)
    Return
End If

Dim imapDest As New Chilkat.Imap

// Connect to our destination IMAP server.
success = imapDest.Connect("mail.example-code.com")
If (success <> True) Then
    System.DebugLog(imapDest.LastErrorText)
    Return
End If

// Login to the destination IMAP server
success = imapDest.Login("myLogin","myPassword")
If (success <> True) Then
    System.DebugLog(imapDest.LastErrorText)
    Return
End If

// Select an IMAP mailbox on the source IMAP server
success = imapSrc.SelectMailbox("Inbox")
If (success <> True) Then
    System.DebugLog(imapSrc.LastErrorText)
    Return
End If

// After selecting a mailbox, the NumMessages property will
// be updated to reflect the total number of emails in the mailbox:
System.DebugLog(Str(imapSrc.NumMessages))

// The emails in the mailbox will always have sequence numbers
// ranging from 1 to NumMessages.

// This example will copy the first 10 messages.
// We'll leave it up to you to write code to copy
// the entire sequence range in reasonable size chunks.
Dim startSeqNum As Int32
startSeqNum = 1
Dim msgCount As Int32
msgCount = 10

Dim sa As Chilkat.StringArray
sa = imapSrc.FetchSequenceAsMime(startSeqNum,msgCount)
If (imapSrc.LastMethodSuccess <> True) Then
    System.DebugLog(imapSrc.LastErrorText)
    Return
End If

Dim i As Int32
For i = 0 To sa.Count - 1
    success = imapDest.AppendMime("Inbox",sa.GetString(i))
    If (success <> True) Then
        System.DebugLog(imapDest.LastErrorText)
        Return
    End If

Next

// Disconnect from the IMAP servers.
success = imapSrc.Disconnect()
success = imapDest.Disconnect()