Reiner: Mailform mit Fileattachment

Beitrag lesen

SELF-Forum

Mailform mit Fileattachment

Reiner
– Informationen zu den Bewertungsregeln

Tja, splitte dann das Problem in mehrere Teilprobleme!
Das was ich Dir gesagt hatte, war sicher schon eines, das andere war "Fileupload per CGI". Such' mal im Archiv!!!

Reiner

Thx, für die schnelle Hilfe, aber ich meinte einen vom user bestimmten File :o(

Cgis mit einem festgelegten File hätte ich schon. Sorry, dass ich so unpräzise war :o(

»»

#!/usr/bin/perl

$recipient = 'reiner.rusch@ctrl-de.de';
$attachedFile = "daten.zip";

&mailIt;

print "Content-type: text/html\n\n";
print <<ENDE;
<html>
<body>
Vielen Dank für Ihre Mühe!
</body></html>

ENDE
########################################################
sub mailIt
{
use MIME::Lite;

$mailprog = '/usr/lib/sendmail';

$object = MIME::Lite->new(
    From        =>'SERVER',
    To          =>"$recipient",
    Subject     =>'aktuelle AKZ-Tabelle',
    Type        =>'application/x-tar',
    Encoding    =>'base64',
    Path        =>"$attachedFile");

open (MAIL, "$mailprog $recipient") die "Fehler beim Öffnen: $mailprog!\n";
  $object->print (\*MAIL);
  close MAIL;
}

Beitrag melden
–
Informationen zu den Bewertungsregeln