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
Hallo Perl-Community,
habe wenig Erfahrung mit Perl, aber ab und zu probiere ich mal wieder etwas aus, nur so vorweg!
Ich würde gerne meinen Yahoo-Email-Account automatisiert in regelmässigen Abständen nach neuen bzw. bestimmten Emails und den Inhalt durchsuchen lassen.
Dazu bin ich auf das Net-Pop3 Modul gestossen und habe erst einmal versucht eine Verbindung zu meinem Email-Account bei Yahoo herzustellen, aber das funktioniert schon nicht. Im Grunde ist es der Text aus der Modul-Beschreibung, den ich auf meine Zugangs-Daten angepasst habe, aber so leicht geht es wohl dann doch nicht :-). Kann mir jemand ein bisschen auf die Sprünge helfen wie ich vorgehen muss, ist das Modul geeignet oder würdet Ihr andere Module vorschlagen? Bin für jeden Tipp dankbar -
viele Grüsse, michael
Last edited: 2022-10-19 13:03:57 +0200 (CEST)
habe wenig Erfahrung mit Perl, aber ab und zu probiere ich mal wieder etwas aus, nur so vorweg!
Ich würde gerne meinen Yahoo-Email-Account automatisiert in regelmässigen Abständen nach neuen bzw. bestimmten Emails und den Inhalt durchsuchen lassen.
Dazu bin ich auf das Net-Pop3 Modul gestossen und habe erst einmal versucht eine Verbindung zu meinem Email-Account bei Yahoo herzustellen, aber das funktioniert schon nicht. Im Grunde ist es der Text aus der Modul-Beschreibung, den ich auf meine Zugangs-Daten angepasst habe, aber so leicht geht es wohl dann doch nicht :-). Kann mir jemand ein bisschen auf die Sprünge helfen wie ich vorgehen muss, ist das Modul geeignet oder würdet Ihr andere Module vorschlagen? Bin für jeden Tipp dankbar -
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
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.
viele Grüsse, michael
Last edited: 2022-10-19 13:03:57 +0200 (CEST)