Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
How to Copy IMAP Mail to another IMAP ServerDemonstrates how to copy the entire contents of an IMAP mailbox to another IMAP server.
// Needs #include <CkImap.h> // Needs #include <CkStringArray.h> CkString strOut; CkImap imapSrc; bool success; // Anything unlocks the component and begins a fully-functional 30-day trial. success = imapSrc.UnlockComponent("Anything for 30-day trial"); if (success != true) { strOut.append(imapSrc.lastErrorText()); strOut.append("\r\n"); SetDlgItemText(IDC_EDIT1,strOut.getUnicode()); return; } // Connect to our source IMAP server. success = imapSrc.Connect("mail.chilkatsoft.com"); if (success != true) { strOut.append(imapSrc.lastErrorText()); strOut.append("\r\n"); SetDlgItemText(IDC_EDIT1,strOut.getUnicode()); return; } // Login to the source IMAP server success = imapSrc.Login("admin@chilkatsoft.com","*myPassword5*"); if (success != true) { strOut.append(imapSrc.lastErrorText()); strOut.append("\r\n"); SetDlgItemText(IDC_EDIT1,strOut.getUnicode()); return; } CkImap imapDest; // Connect to our destination IMAP server. success = imapDest.Connect("mail.example-code.com"); if (success != true) { strOut.append(imapDest.lastErrorText()); strOut.append("\r\n"); SetDlgItemText(IDC_EDIT1,strOut.getUnicode()); return; } // Login to the destination IMAP server success = imapDest.Login("myLogin","*myPassword2*"); if (success != true) { strOut.append(imapDest.lastErrorText()); strOut.append("\r\n"); SetDlgItemText(IDC_EDIT1,strOut.getUnicode()); return; } // Select an IMAP mailbox on the source IMAP server success = imapSrc.SelectMailbox("Inbox"); if (success != true) { strOut.append(imapSrc.lastErrorText()); strOut.append("\r\n"); SetDlgItemText(IDC_EDIT1,strOut.getUnicode()); return; } // After selecting a mailbox, the NumMessages property will // be updated to reflect the total number of emails in the mailbox: strOut.appendInt(imapSrc.get_NumMessages()); strOut.append("\r\n"); // 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. long startSeqNum; startSeqNum = 1; long msgCount; msgCount = 10; CkStringArray *sa = 0; sa = imapSrc.FetchSequenceAsMime(startSeqNum,msgCount); if (sa == 0 ) { strOut.append(imapSrc.lastErrorText()); strOut.append("\r\n"); SetDlgItemText(IDC_EDIT1,strOut.getUnicode()); return; } long i; for (i = 0; i <= sa->get_Count() - 1; i++) { success = imapDest.AppendMime("Inbox",sa->getString(i)); if (success != true) { strOut.append(imapDest.lastErrorText()); strOut.append("\r\n"); SetDlgItemText(IDC_EDIT1,strOut.getUnicode()); return; } } delete sa; // Disconnect from the IMAP servers. imapSrc.Disconnect(); imapDest.Disconnect(); SetDlgItemText(IDC_EDIT1,strOut.getUnicode()); |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2008 Chilkat Software, Inc. All Rights Reserved.