mit perl eine mail versenden als html formatierter - #4405 (Perl/CGI)

format_c

2005-02-14 20:12

User since
2003-08-04
1706 Artikel
HausmeisterIn

Ein anderes Beispiel:

Code: (dl )

use strict;
use CGI::Carp qw/fatalsToBrowser/;
my $mailbin = '/usr/bin/sendmail';
my $to = 'user@example.org';
my $from = 'me@example.org';
my $subject = 'Mein Thema';

my $html = qq[
<html><body><strong>Fetter Text</strong></body></html>
];

open SM,"| $mailbin" or die $!;
print SM "To: $to\n";
print SM "From: $from\n";
print SM "Subject: $subject\n";
print SM "Content-type: text/html\n";
print SM "\n";# Hier ist der Mail header zu ende!!!!!!!!
print SM $html;
close SM;

# Jetzt noch die Status Meldung für den Browser
print "Content-type: text/plain\n\n";
print "Mail sent";

exit;

Gruß alex

Effizente Linuxshell