201
Chapter 14 — Exporting Your Mail
Listing 14-3: Appending to IMAP
use Utils;
use Net::IMAP;
$gmail = login();
$imap = new Net::IMAP( “IMAP SERVER ADDRESS”, Debug => 1 );
$imap->login( “USERNAME”, “PASSWORD” );
$messages =
$gmail->get_messages( label =>
$Mail::Webmail::Gmail::FOLDERS{“INBOX”} )
;
# simply get all messages from INBOX
foreach ( @{$messages} ) {
# and iterate through them
$message = $gmail->get_mime_email( msg => $_ );
#
retrive MIME message
$imap->append( “INBOX”, $message );
# and append it to
the IMAP INBOX
}
$imap->logout();
By now, as you come to the end of this book, you should be confident in dealing
with mail within the archive and under different labels. I leave it to you as an
exercise, therefore, to move labeled mail into the IMAP folders.
And Now . . .
For the final chapter of the book, you’re going to look at the different applications
that have already been written using the techniques you’ve learned in this section.