Perl Modul für SMTP
am 07.04.2006 12:39:39 von Bernd Schneider
Hallo!
Ich benötige ein Modul mit dem ich Emails versenden kann (dies mach ich
derzeit mit MIME::Lite).
Das Problem ist: Ich muss die Kommunikation mit dem SMTP-Server der
Gegenseite aufzeichnen (sozusagen als Beweis, daß die Mail beim
Mailserver der Gegenseite angekommen ist), damit ich sehen kann, ob der
Empfänger die Mail bekommen hat.
Habt ihr da einen Tipp? Sollte wenn möglich auch Anhänge unterstützen.
Re: Perl Modul für SMTP
am 07.04.2006 12:55:38 von Frank Seitz
Bernd Schneider wrote:
> Ich benötige ein Modul mit dem ich Emails versenden kann (dies mach ich
> derzeit mit MIME::Lite).
>
> Das Problem ist: Ich muss die Kommunikation mit dem SMTP-Server der
> Gegenseite aufzeichnen (sozusagen als Beweis, daß die Mail beim
> Mailserver der Gegenseite angekommen ist), damit ich sehen kann, ob der
> Empfänger die Mail bekommen hat.
>
> Habt ihr da einen Tipp? Sollte wenn möglich auch Anhänge unterstützen.
Ich denke, da musst Du nicht viel ändern.
MIME::Lite kann via Net::SMTP verschicken und Net::SMPT
kennt die Option Debug=>1. Die SMTP-Kommunikation wird
dann auf STDERR protokolliert.
Grüße
Frank
--
Dipl.-Inform. Frank Seitz; http://www.fseitz.de/
Anwendungen für Ihr Internet und Intranet
Tel: 04103/180301; Fax: -02; Industriestr. 31, 22880 Wedel
Re: Perl Modul fürSMTP
am 08.04.2006 10:05:03 von Christian Garbs
Mahlzeit!
Bernd Schneider wrote:
> Das Problem ist: Ich muss die Kommunikation mit dem SMTP-Server der
> Gegenseite aufzeichnen (sozusagen als Beweis, daà die Mail beim
> Mailserver der Gegenseite angekommen ist), damit ich sehen kann, ob der
> Empfänger die Mail bekommen hat.
Hinweis:
Du kannst damit nur den Teil in den Klammern beweisen (Mail wurde bei
irgendeinem Mailserver abgegeben), aber nicht, dass der Empfänger die
Mail auch erhalten hat. Das sind zwei verschiedene Paar Schuhe.
GruÃ,
Christian
--
sub _{print"\n"}_;for(;$s<9;++$s){$_='1E2018201E00001E2018201E00001E2018201'
..'E002020001C2222221400005CA2A2A27C02001C2222221C20003E0402 02201F2422221C00'
..'242A2A2A12002020001C2222221F20001C2A2A2A0C';while(s;(..); ;){printf'%c',hex
$1&1<<$s?40:32}_}$_=':::Christian Garbs:',y;:;\t;;print;_;_