Mailform mit Fileattachment
Oliver März
- cgi
0 Reiner0 CK10 Reiner
0 Oliver März0 Reiner
Hallihallo,
ich suche dringend ein solches Mailform mit Fileattachment Möglichkeit.
Leider habe ich keine Ahnung, wie ich sowas bewerkstelligen kann :o(
Ich habe ein fertiges Script gefunden, was leider Kommerziell war und daher für mich nicht in Frage käme.
Vielleicht kann mir ja einer helfen.
Gruß
Oliver
Vielleicht kann mir ja einer helfen.
Gruß
Oliver
Gerne!
Alles Gute,
Reiner
---------------------------------------------------------
#!/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;
}
Hi,
$object = MIME::Lite->new(
»» From =>'SERVER',
»» To =>"$recipient",
»» Subject =>'aktuelle AKZ-Tabelle',
»» Type =>'application/x-tar',
»» Encoding =>'base64',
»» Path =>"$attachedFile");
»»
Wie würde $object aussehen, wenn noch ein Text hinzu käme?
»» $object->print (\*MAIL);
Warum *Mail? ,)
Thx,
CK1
Hi,
$object = MIME::Lite->new(
»» From =>'SERVER',
»» To =>"$recipient",
»» Subject =>'aktuelle AKZ-Tabelle',
»» Type =>'application/x-tar',
»» Encoding =>'base64',
»» Path =>"$attachedFile");
»»Wie würde $object aussehen, wenn noch ein Text hinzu käme?
»» $object->print (\*MAIL);
Warum *Mail? ,)
Thx,
CK1
Habe ich aus dem Buch "Perlmodule". Was der "*" genau bedeutet, aber es funktioniert einwandfrei.
Bei mehreren Aktionen (mehrere Dateien bzw. zusätzlich Text) muß man das Encoding aufsplitten. Weiß ich nicht auswendig, steht aber auch in der Beschreibung irgendwo. bei www.cpan.org dürfte eine Kopie sein. Such mal unter Module-> Mime::light
Wenn Du absolut nichts findest, mail mir, ich mache mir dann mal die Mühe, Dir die Beschreibung auszugsweise zu mailen.
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;
}
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;
}