versenden von Dateien

[Beat Strasser]

Hi

Ich möchte eine html Datei mit Perl versenden.
Die Daten kommen von einem Formular, werden in einer Datei "gruss" im html Format gespeichert soweit sogut.
Nun möchte ich diese Datei an eine email Adresse versenden hier komme ich nicht weiter.

Probier mal folgendes:

$db_mail_prog      = "sendmail"; # Pfad des Mailprogs
$db_mail_sender    = "[e-mail]"; # Absenderemail
$db_mail_recipient = "[e-mail]"; # Empfaengeremail
$db_mail_subject   = "Gruess Dich!"; # Betreff
$db_mail_text      = "Mein Gruss"; # Message-Text

open(MAIL,"".$db_mail_prog) die("Error opening sendmail\n");
open(FILE, "<gruss.txt") die("Error opening attachment file\n");
undef $/;
$db_mail_attachment = <FILE>;
close FILE;
print MAIL qqFrom: $db_mail_sender
To: $db_mail_recipient
Subject: $db_mail_subject
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="---bOuNdArY---"'

This is a multi-part message in MIME format.

-----bOuNdArY---
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

$db_mail_text

-----bOuNdArY---
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="gruss.html"

$db_mail_attachment
-----bOuNdArY-----
;

close mail program -> send mail now

close MAIL;

Gruss,
Beat