- 论坛徽章:
- 0
|
本帖最后由 yaoliwei 于 2010-12-21 10:36 编辑
大部分是正常的,有些不行 请教了- use strict;
- use warnings;
- use Data::Dumper;
- use Mail::IMAPClient;
-
- my $imap = Mail::IMAPClient->new(
- Server => 'xxxx',
- User => 'xxx',
- Password => 'xxx',
- #Uid => 1,
- );
- my $folders = $imap->folders
- or die "List folders error: ", $imap->LastError, "\n";
- print "Folders: @$folders\n";
- $imap->select('test')
- or die "Select fodler 'test' error: ", $imap->LastError, "\n";
- my $msgs = $imap->search("ALL");
- foreach (@$msgs) {
- #get each mail item's subject and msg body in the folder,
- my $msgno = $_;
- my $subject = $imap->get_header($msgno,'Subject');
- my $sender = $imap->get_header($msgno,'From');
- my $msgbody = $imap->body_string($msgno);
-
- print '-' x 100,"\n";
- print "sender: $sender\n";
- print "subject: $subject\n";
- print '-' x 100,"\n";
- print "msgbody:\n$msgbody\n";
- print "\n\n";
- }
- $imap->logout
- or die "Logout error: ", $imap->LastError, "\n";
复制代码 |
|