nicht angemeldet
Hi,
bevor mich jetzt gleich jemand schimpft... ich hab die Suchmaschine benutzt und mir alle skripte angesehen. Leider immer mit dem selben Fehler....
Ich versuche verzweifelt ein attachment zu senden aber ich bekomme das nicht gebacken.
Die mail wird gesendet und sogar den Inhalt der textdatei die ich angehängt habe kann ich sehen.
Das schaut dann so aus....
Content-Type: multipart/mixed; boundary="_----------=_10167391557129230"
This is a multi-part message in MIME format.
--_----------=_10167391557129230
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: 8bit
--_----------=_10167391557129230
Content-Type: application/x-texinfo; charset="iso-8859-1"; name="links.txt"
Content-Transfer-Encoding: 8bit
Content-Disposition: attachment; filename="links.txt"
Aber als richtiges attachement bekomme ich es nicht hin. Weiß jemand rat... ? (Das MIME Modul kann ich nicht verwenden !!!)
Gruß
Christian
#!/usr/bin/perl
$program = "/usr/sbin/sendmail"; # Mail-Programm
$from = "mailfrom@web.de"; # Absender
$to = "mailto@web.de"; # Empfänger
$subject = "Parameter aus Web-Seite"; # Titel
HTML-Gerüst:
print "Content-type: text/html\n\n";
print "<html><body><br><br>";
print "<b>sendmail</b><br><br>";
$boundary="_----------=_10167391557129230";
Mailprogramm aufrufen
if(open(MAIL, "|$program -t"))
{
# Mail-Header
print MAIL "From: ",$from,"\n";
print MAIL "To: ",$to,"\n";
print MAIL "X-Mailer: Fax-to-Mail-Gateway\n";
print MAIL "MIME-Version: 1.0\n";
print MAIL "Subject: $subject\n\n"; # <-- Trennung Mail-Header mit Body = \n\n !!!
print MAIL "Content-Type: multipart/mixed; boundary="$boundary"\n";
print MAIL "\n";
print MAIL "This is a multi-part message in MIME format.\n";
print MAIL "--$boundary\n";
print MAIL "Content-Type: text/plain; charset="iso-8859-1"\n";
print MAIL "Content-Transfer-Encoding: 8bit\n\n";
print MAIL "\n\n$Message\n";
print MAIL "--$boundary\n";
print MAIL "Content-Type: application/x-texinfo; charset="iso-8859-1"; name="links.txt"\n";
print MAIL "Content-Transfer-Encoding: 8bit\n";
print MAIL "Content-Disposition: attachment; filename="links.txt"\n\n";
open INPUT, "links.txt";
print MAIL while (<INPUT>);
close INPUT;
close(MAIL);
print "Mail gesendet.<br>";
}
HTML-Gerüst
print "</body></html>";