(PowerBuilder) 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

integer li_rc
oleobject loo_ImapSrc
integer li_Success
oleobject loo_ImapDest
integer li_StartSeqNum
integer li_MsgCount
oleobject loo_Sa
integer i

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

loo_ImapSrc = create oleobject
li_rc = loo_ImapSrc.ConnectToNewObject("Chilkat_9_5_0.Imap")
if li_rc < 0 then
    destroy loo_ImapSrc
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Connect to our source IMAP server.
li_Success = loo_ImapSrc.Connect("imap.someMailServer.com")
if li_Success <> 1 then
    Write-Debug loo_ImapSrc.LastErrorText
    destroy loo_ImapSrc
    return
end if

// Login to the source IMAP server
li_Success = loo_ImapSrc.Login("admin@chilkatsoft.com","myPassword")
if li_Success <> 1 then
    Write-Debug loo_ImapSrc.LastErrorText
    destroy loo_ImapSrc
    return
end if

loo_ImapDest = create oleobject
li_rc = loo_ImapDest.ConnectToNewObject("Chilkat_9_5_0.Imap")

// Connect to our destination IMAP server.
li_Success = loo_ImapDest.Connect("mail.example-code.com")
if li_Success <> 1 then
    Write-Debug loo_ImapDest.LastErrorText
    destroy loo_ImapSrc
    destroy loo_ImapDest
    return
end if

// Login to the destination IMAP server
li_Success = loo_ImapDest.Login("myLogin","myPassword")
if li_Success <> 1 then
    Write-Debug loo_ImapDest.LastErrorText
    destroy loo_ImapSrc
    destroy loo_ImapDest
    return
end if

// Select an IMAP mailbox on the source IMAP server
li_Success = loo_ImapSrc.SelectMailbox("Inbox")
if li_Success <> 1 then
    Write-Debug loo_ImapSrc.LastErrorText
    destroy loo_ImapSrc
    destroy loo_ImapDest
    return
end if

// After selecting a mailbox, the NumMessages property will
// be updated to reflect the total number of emails in the mailbox:
Write-Debug string(loo_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.
li_StartSeqNum = 1
li_MsgCount = 10

loo_Sa = loo_ImapSrc.FetchSequenceAsMime(li_StartSeqNum,li_MsgCount)
if loo_ImapSrc.LastMethodSuccess <> 1 then
    Write-Debug loo_ImapSrc.LastErrorText
    destroy loo_ImapSrc
    destroy loo_ImapDest
    return
end if

for i = 0 to loo_Sa.Count - 1
    li_Success = loo_ImapDest.AppendMime("Inbox",loo_Sa.GetString(i))
    if li_Success <> 1 then
        Write-Debug loo_ImapDest.LastErrorText
        destroy loo_ImapSrc
        destroy loo_ImapDest
        return
    end if

next
destroy loo_Sa

// Disconnect from the IMAP servers.
li_Success = loo_ImapSrc.Disconnect()
li_Success = loo_ImapDest.Disconnect()


destroy loo_ImapSrc
destroy loo_ImapDest