(AutoIt) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

$oImapSrc = ObjCreate("Chilkat.Imap")

; Connect to our source IMAP server.
Local $bSuccess = $oImapSrc.Connect("imap.someMailServer.com")
If ($bSuccess <> True) Then
    ConsoleWrite($oImapSrc.LastErrorText & @CRLF)
    Exit
EndIf

; Login to the source IMAP server
$bSuccess = $oImapSrc.Login("admin@chilkatsoft.com","myPassword")
If ($bSuccess <> True) Then
    ConsoleWrite($oImapSrc.LastErrorText & @CRLF)
    Exit
EndIf

$oImapDest = ObjCreate("Chilkat.Imap")

; Connect to our destination IMAP server.
$bSuccess = $oImapDest.Connect("mail.example-code.com")
If ($bSuccess <> True) Then
    ConsoleWrite($oImapDest.LastErrorText & @CRLF)
    Exit
EndIf

; Login to the destination IMAP server
$bSuccess = $oImapDest.Login("myLogin","myPassword")
If ($bSuccess <> True) Then
    ConsoleWrite($oImapDest.LastErrorText & @CRLF)
    Exit
EndIf

; Select an IMAP mailbox on the source IMAP server
$bSuccess = $oImapSrc.SelectMailbox("Inbox")
If ($bSuccess <> True) Then
    ConsoleWrite($oImapSrc.LastErrorText & @CRLF)
    Exit
EndIf

; After selecting a mailbox, the NumMessages property will
; be updated to reflect the total number of emails in the mailbox:
ConsoleWrite($oImapSrc.NumMessages & @CRLF)

; 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.
Local $iStartSeqNum = 1
Local $iMsgCount = 10

Local $oSa
$oSa = $oImapSrc.FetchSequenceAsMime($iStartSeqNum,$iMsgCount)
If ($oImapSrc.LastMethodSuccess <> True) Then
    ConsoleWrite($oImapSrc.LastErrorText & @CRLF)
    Exit
EndIf

Local $i
For $i = 0 To $oSa.Count - 1
    $bSuccess = $oImapDest.AppendMime("Inbox",$oSa.GetString($i))
    If ($bSuccess <> True) Then
        ConsoleWrite($oImapDest.LastErrorText & @CRLF)
        Exit
    EndIf

Next

; Disconnect from the IMAP servers.
$bSuccess = $oImapSrc.Disconnect()
$bSuccess = $oImapDest.Disconnect()