Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
Copy an Email from One Mailbox to AnotherCopies an email from one IMAP folder to another. After running this example, copies of the email will be present in both source and destination folders. require 'chilkat' # This example copies an email from one mailbox to another. imap = Chilkat::CkImap.new() # Anything unlocks the component and begins a fully-functional 30-day trial. success = imap.UnlockComponent("Anything for 30-day trial") if (success != true) print imap.lastErrorText() + "\n" exit end # Turn on session logging: imap.put_KeepSessionLog(true) # Connect to an IMAP server. success = imap.Connect("mail.chilkatsoft.com") if (success != true) print imap.lastErrorText() + "\n" exit end # Login success = imap.Login("***","***") if (success != true) print imap.lastErrorText() + "\n" exit end # Select an IMAP mailbox success = imap.SelectMailbox("Inbox.testing.a") if (success != true) print imap.lastErrorText() + "\n" exit end fetchUids = true # Get the message IDs for all emails having "Re:" in the subject. messageSet = imap.Search("SUBJECT Re:",fetchUids) if (messageSet == nil ) print imap.lastErrorText() + "\n" exit end # Copy the messages from "Inbox.testing.a" to "Inbox.testing.b" in one call to CopyMultiple: success = imap.CopyMultiple(messageSet,"Inbox.testing.b") if (success != true) print imap.lastErrorText() + "\n" exit end # Alternatively, loop over each message in the set and # copy each separately: n = messageSet.get_Count() if (n > 0) for i in 0 .. n - 1 msgId = messageSet.GetId(i) isUid = messageSet.get_HasUids() success = imap.Copy(msgId,isUid,"Inbox.testing.c") if (success != true) print imap.lastErrorText() + "\n" exit end end end # Display the session log. print imap.sessionLog() + "\n"; # Disconnect from the IMAP server. imap.Disconnect() |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2008 Chilkat Software, Inc. All Rights Reserved.