Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
+25 replies![[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
24
25
26
27
28
use strict;
use warnings;
### Modul laden
use Net::POP3;
### Zuweisungen
my $mail_server = 'pop.mail.yahoo.com';
my $username = 'xxxxxxxxxxx@yahoo.de';
my $password = 'xxxxxxxxxxx';
print "Mailserver: $mail_server Benutzername: $username Pass: $password\n";
### Verbindung herstellen zu MS
my $pop = Net::POP3->new
($mail_server,Timeout => 30)
or die "Keine Verbindung zu Server : $!\n";
### Login MS
defined ($pop->login($username, $password))
or die "Can't authenticate: $!\n";
### Fehlermeldung:
#Keine Verbindung zu Server : Ein Verbindungsversuch ist fehlgeschlagen,
#da die Gegenstelle nach einer bestimmten Zeitspanne nicht richtig reagiert
#hat, oder die hergestellte Verbindung war fehlerhaft, da der verbundene
#Host nicht reagiert hat.
+10 replies
1 2 3 4 5 6 7 8 9 10 11 12 13
#!/usr/bin/perl use warnings; use strict; use Net::POP3; # my $mail_server = 'pop.mail.yahoo.com'; my $mail_server = 'pop3.web.de'; my $pop = Net::POP3->new($mail_server,Timeout => 30) or die "Keine Verbindung zu Server : $!\n"; print $pop->banner();
+9 replies
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
use warnings;
use strict;
### Module laden
use Mail::POP3Client;
use IO::Socket::SSL;
### SSL Verbindung
my $socket = IO::Socket::SSL->new(
PeerAddr => 'pop.mail.yahoo.com',
PeerPort => 995,
Proto => 'tcp') || die "No socket!";
### Pop3-Client Ojekt erstellen, Werte zuweisen und connecten
my $pop = Mail::POP3Client->new(debug=>1);
$pop->User('xxxxxxxxx@yahoo.de');
$pop->Pass('xxxxxxxxx');
$pop->Socket($socket);
$pop->Connect();
### Mailabfrage starten
for(my $i = 1; $i <= $pop->Count(); $i++ ) {
foreach( $pop->Head( $i ) ) {
/^(From|Subject):\s+/i && print $_, "\n";
}
}
### Verbindunge schliessen
$pop->Close();
## Fehlermeldungen:
## No socket!
+7 replies![[Homepage]](/battie/theme/default/homepage.gif)
2022-10-19T17:49:21 michbachAuf Yahoo, darum geht es mir aber, klappt das leider nicht, SSL bekomme ich auch keine Verbindung
+6 replies
2022-10-21T17:58:55 GwenDragonGeht bei mir, siehe msg #194511
2022-10-22T01:35:58 hlubenowHmm, ich bekomme mit Deinem Skript (ist ja fast dasselbe) einen Timeout.
+3 replies
+2 replies
1
2
my $pop = Net::POP3->new ($mail_server,Timeout => 30,SSL => 1)
or die "Keine Verbindung zu Server : $!\n";
+2 replies
+5 replies
+4 replies
2022-10-19T19:24:32 michbachDa scheint sich einiges geändert zu haben und man benötigt als Zugang ein extra generiertes sogenanntes App-Passwort.
QuoteDamit kannst du das großzügige Versandlimit von Yahoo Mail von 500 E-Mails pro Tag nutzen und die E-Mail-Zustellbarkeit deiner WordPress Seite verbessern.
+3 replies
+2 replies
+3 replies
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
## Modul laden
use Net::POP3;
### Zuweisungen
my $mail_server = 'pop.mail.yahoo.com';
my $username = 'xxxxxxxxxxx@yahoo.de';
my $password = 'xxxxxxxxxxx';
print "Mailserver: $mail_server Benutzername: $username Pass: $password\n";
### Verbindung herstellen zu MS
my $pop = Net::POP3->new ($mail_server,Timeout => 30, SSL => 1, Debug => 1)
or die "Keine Verbindung zu Server : $!\n";
__END__
Bringt dann aus Ausgabe
Mailserver: pop.mail.yahoo.com Benutzername: xxxxxxxxxxx@yahoo.de Pass: xxxxxxxxxxx
Net::POP3::_SSL>>> Net::POP3::_SSL
Net::POP3::_SSL>>> IO::Socket::SSL(2.075)
Net::POP3::_SSL>>> IO::Socket::IP(0.41)
Net::POP3::_SSL>>> IO::Socket(1.49)
Net::POP3::_SSL>>> IO::Handle(1.48)
Net::POP3::_SSL>>> Exporter(5.74)
Net::POP3::_SSL>>> Net::POP3(3.14)
Net::POP3::_SSL>>> Net::Cmd(3.14)
Net::POP3::_SSL=GLOB(0x271aeec)<<< +OK Hello from jpop-0.1
+2 replies
Schrift
Tipp zum Debugging
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
Teilbaum:
![[Powered by Battie]](/battie/img/powered.png)
