Net::IMAP::Simple - Perl extension for simple IMAP account handling, mostly compatible with Net::POP3.
use Net::IMAP::Simple; # open a connection to the IMAP server $server = new Net::IMAP::Simple( 'someserver' ); # login $server->login( 'someuser', 'somepassword' ); # select the desired folder $number_of_messages = $server->select( 'somefolder' ); # go through all the messages in the selected folder foreach $msg ( 1..$number_of_messages ) { if ( $server->seen( $msg ) { print "This message has been read before...\n" } # get the message, returned as a reference to an array of lines $lines = $server->get( $msg ); # print it print @$lines; # get the message, returned as a temporary file handle $fh = $server->getfh( $msg ); print <$fh>; close $fh; } # the list of all folders @folders = $server->mailboxes(); # create a folder $server->create_mailbox( 'newfolder' ); # rename a folder $server->rename_mailbox( 'newfolder', 'renamedfolder' ); # delete a folder $server->delete_mailbox( 'renamedfolder' ); # copy a message to another folder $server->copy( $self, $msg, 'renamedfolder' ); # close the connection $server->quit();
This module is a simple way to access IMAP accounts. The API is mostly equivalent to the Net::POP3 one, with some aditional methods for mailbox handling.
I don't know how the module reacts to nested mailboxes.
This module was only tested under the following servers:
Netscape IMAP4rev1 Service 3.6
MS Exchange 5.5.1960.6 IMAPrev1 (Thanks to Edward Chao)
Cyrus IMAP Server v1.5.19 (Thanks to Edward Chao)
Expect some problems with servers from other vendors (then again, if all of them are implementing the IMAP protocol, it should work - but we all know how it goes).
Joao Fonseca, joao_g_fonseca@yahoo.com
Net::IMAP(1), Net::POP3(1).
Copyright (c) 1999 Joao Fonseca. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Net::IMAP::Simple, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Net::IMAP::Simple
CPAN shell
perl -MCPAN -e shell install Net::IMAP::Simple
For more information on module installation, please visit the detailed CPAN module installation guide.