Thread Datei mit unbekannter Extension suchen...: ...und mit MIME:Lite verschicken
(18 answers)
Opened by cbxk1xg at 2004-06-06 23:07
@esskar:
Das hatte ich ja schon mit folgendem Code vor Code: (dl
)
my $ext = (split /\./, $AttachentFile)[1]; Aber die spannende Frage ist, wie lese ich das Verzeichniss aus, filter die passende Datei raus (0815.IrgendeineExtension) und packe das Ergebniss in einen String, wenn der Name zu dem String namens $SessionID passt? Das ist genau der Teil, den ich nicht verstehe, bzw. nicht hinbekomme. Quote Das ist doch schon mal gut. also stimmt dieser Teil meines Codes so? Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 # Das sollte den Content-type selbständig bestimmen. $MIME::Lite::AUTO_CONTENT_TYPE = 1; # Attachment anängen, umbennen, Mail abschicken. $msg->attach( Type =>'auto', Path =>"$MailAttachment", Filename =>"picture$ext", Disposition =>'attachment' ); <!--EDIT|cbxk1xg|1086559856--> |