Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 2
 |
 |
9 Einträge, 1 Seite |
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
use strict;
use Mail::POP3Client;
use Email::MIME;
use Email::MIME::Attachment::Stripper;
my $pop = new Mail::POP3Client( USER => 'xxx',
PASSWORD => "xxx",
HOST => "pop.googlemail.com",
USESSL => 'true',
);
print "Status: ". $pop->State()." No of email:". $pop->Count();
if ($pop->Count()) {
my $mail=$pop->HeadAndBody(1);
my $parsed = Email::MIME->new($mail);#
my $stripper = Email::MIME::Attachment::Stripper->new($parsed);
my @attachments = $stripper->attachments;
print;
}
$pop->Close();
exit;
1
2
3
4
5
6
7
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
if ($pop->Count()) {
my $mail=$pop->HeadAndBody(1);
my $parsed = Email::MIME->new($mail);#
my $stripper = Email::MIME::Attachment::Stripper->new($parsed);
my @attachments = $stripper->attachments;
print;
}
![[Homepage]](/battie/theme/default/homepage.gif)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
use strict;
use Mail::POP3Client;
use MIME::Parser;
my $pop = new Mail::POP3Client( USER => 'xxx',
PASSWORD => "xxx",
HOST => "pop.googlemail.com",
USESSL => 'true',
);
###open (MAIL, ">mail.txt");
print "Status: ". $pop->State()." No of email:". $pop->Count();
my $i=1;
if ($pop->Count()) {
my $message=$pop->HeadAndBody(1);
my $parser = MIME::Parser->new();
$parser->output_to_core();
my $entity = $parser->parse_data($message);
}
$pop->Reset();
$pop->Close();
exit;
|
|
9 Einträge, 1 Seite |
![[Powered by Battie]](/battie/img/powered.png)
