Mail direkt von der HP verschicken

Zitat

Email mit Sendmail
Diese Subroutine verschickt mit Hilfe des Programms sendmail eine Email. Bei einem Fehler wird 0 und im Erfolgsfall 1 zurückgegeben.

TIP: Falls für $to_email ein Formularfeld verwendet wird erst eine Syntaxprüfung der Emailadresse durchführen.

# Pfad zu sendmail
my $mail_prog = "/usr/sbin/sendmail";
# Absende Adresse
my $from_email = "user\@domain.com";
# Rueckantwort Adresse falls abweichend
# von Absende Adresse
my $reply_email = '';
# Empfaenger Adresse
my $to_email = "user\@domain.com";

my $result = &send_mail();

sub send_mail {
# Pipe zu sendmail
if (not open(MAIL, "|$mail_prog -t") ) {
# Abbruch wenn keine Pipe
return 0;
}

# Email Header
print MAIL "From: $from_email \n";
# Rueckantwort an andere Adresse ?
if (length($reply_email) > 0) {
print MAIL "Reply-To: $reply_email\n";
}
print MAIL "To: $to_email\n";

# Betreffzeile
print MAIL "Subject: Testmail\n";

# Leerzeile kennzeichnet Ende vom Header
print MAIL "\n";

# Email Text
print MAIL "Hallo!\n\n";
print MAIL "Dies ist eine Testmail!\n";

# Pipe schliessen
close (MAIL);
return 1;
}