Oliver März: Mailform mit Fileattachment

Beitrag lesen

SELF-Forum

Mailform mit Fileattachment

Oliver März
– Informationen zu den Bewertungsregeln

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