Anhang mit Perl klappt nicht überall

[Jon]

Guten Morgen

Mein CGI versendet einen Anhang über open (MAIL, ">$Nummer.tmp");
Bei eineigen Emailsystemen wie Outlook oder Googlemail ist der Anhang nicht dabei, obwohl bei der Email normalerweise die  Anhänge mit dabei sind.

Im Outlook steht: OE hat folgende nicht sischeren Anlagen aus der Email entfernt: anhang.html

Vieleicht wisst Ihr eine lösung

Vielen Dank Jon

[Struppi]

Mein CGI versendet einen Anhang über open (MAIL, ">$Nummer.tmp");

Was heißt das? CGI ist nur eine Schnittstelle mit der du Daten an den Browser senden kannst. Das was du da zeigst ist nur eine Datei, die auf dem Server geschrieben wird.

Bei eineigen Emailsystemen wie Outlook oder Googlemail ist der Anhang nicht dabei, obwohl bei der Email normalerweise die  Anhänge mit dabei sind.

Eine Datei die du auf dem Server schreibst, wird nicht als email verschickt, d.h. du machst etwas anderes, aber was?

Vieleicht wisst Ihr eine lösung

Falls es dir tatsächlich um eine Mail geht, dann ist die Lösung eventuelle MIME::Lite

Struppi.

[Jon]

Ja sorry

hab da noch etwas vergessen:

$MIMEservice = MIME::Lite->new(
From => $Email,
To =>$YourEmail, Subject =>$in{'mysubject'},
Type => 'text/plain', Encoding => 'quoted-printable',
Data => $TXT
);
if ($Nummer.tmp) {
$MIMEservice ->attach(
Type => 'application/octet-stream',Encoding => 'base64',Path => "$Nummer.tmp",
Filename =>$Anhangname,
);}

open (Postal, "|$MailProgram $YourEmail") || die "Can't open $mailprog!\n";
$MIMEservice ->print(\*Postal) or die $!;
close (Postal);

MFG Jon

[Struppi]

$MIMEservice = MIME::Lite->new(
From => $Email,
To =>$YourEmail, Subject =>$in{'mysubject'},
Type => 'text/plain', Encoding => 'quoted-printable',
Data => $TXT
);

Ja super, und warum liest du nicht die Anleitung des Moduls?

open (Postal, "|$MailProgram $YourEmail") || die "Can't open $mailprog!\n";

Irgendwie machen deine Variabeln den Eindruck, als ob hier ein grosses durcheinander herrscht. Einmal heißt es $MailProgram, dann $mailprog. Ich empfehle dir Variabeln immer mit Kleinbuchstaben zu beginnen, die Warnungen einzuschalten und use strict zu verwenden. Interessant dazu ist diese Seite der Dokumentation: http://perldoc.perl.org/perlstyle.html

Struppi.