Opened by michbach at 2022-10-19 12:08
User since
2022-10-19
10 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2022-10-19
10 Artikel
BenutzerIn
Ja, bei Web-Mail funktioniert es, man muss nur im Mail-Account selbst den Zugriff vorher erlauben und schon funzt es.
-----------
Der Abruf von E-Mails über POP3 bzw. IMAP ist standardmäßig ausgeschaltet. Wenn Sie Ihre E-Mails mit einem E-Mail-Programm oder einer Mail App empfangen oder versenden möchten, müssen Sie POP3 bzw. IMAP in den Einstellungen Ihres WEB.DE Postfachs einschalten.
Klicken Sie im Reiter E-Mail auf Einstellungen.
Wählen Sie POP3/IMAP Abruf aus.
Setzen Sie unter WEB.DE Mail über POP3 & IMAP das Häkchen neben POP3 und IMAP Zugriff erlauben.
------------------------
Auf Yahoo, darum geht es mir aber, klappt das leider nicht, SSL bekomme ich auch keine Verbindung, irgendwo hakt es leider, na mal schauen.
-----------
Der Abruf von E-Mails über POP3 bzw. IMAP ist standardmäßig ausgeschaltet. Wenn Sie Ihre E-Mails mit einem E-Mail-Programm oder einer Mail App empfangen oder versenden möchten, müssen Sie POP3 bzw. IMAP in den Einstellungen Ihres WEB.DE Postfachs einschalten.
Klicken Sie im Reiter E-Mail auf Einstellungen.
Wählen Sie POP3/IMAP Abruf aus.
Setzen Sie unter WEB.DE Mail über POP3 & IMAP das Häkchen neben POP3 und IMAP Zugriff erlauben.
------------------------
Auf Yahoo, darum geht es mir aber, klappt das leider nicht, SSL bekomme ich auch keine Verbindung, irgendwo hakt es leider, na mal schauen.
Code: (dl
)
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!