[quote=jemand,12.06.2004, 14:33]könnte der folgende code gehen??
[/quote]
Hmm... nein.

Quote

Code: (dl )

1
2
3
4
5
6
7
8
9

use CGI::Carp qw(fatalsToBrowser);
 use Net::SMTP;


my $mailto = 'ich-22@web.de';
my $subject = 'Dies ist ein Test!!!';
my $mailtext = 'Dies ist der 26.04.1992. Dies ist der Mailtesttext';

    $smtp = Net::SMTP->new('web.de');

Du moechtest eine Mail ueber den Server 'web.de' versenden. Der SMTP-Server von web.de heisst aber 'smtp.web.de', AFAIK. Ausserdem muss man sich da - soweit ich weiss - authentifizieren, wenn man eine Mail verschicken moechte, entweder per vorherigem POP-Abruf oder per Authenticated SMTP.

Quote

Code: (dl )

1
2
3
4
5
6
7
8
9
10

    $smtp->mail($ENV{USER});
    $smtp->to($mailto);

    $smtp->data();
    $smtp->datasend("To: $mailto\n");
    $smtp->datasend("Subject: $subject\n");
    $smtp->datasend("$mailtext\n");
    $smtp->dataend();

    $smtp->quit

Hier fehlt ein Semikolon.