szöveg csatolása levélhez

nézd meg a "procmail-lib"-et

Nálunk ez megy. Nem tudom Perl van-e azon a gépen, amelyikről nyomnád.

#!/usr/bin/perl
###############################################################################
#
# SCRIPT NAME: sendAttachment
#
# AUTHOR : Tibor Radvanyi
#
# PURPOSE : Sends email with attachment
#
# SYNTAX : sendAttachment addressee -f from_addr -s subject [file | directory]
#
# RETURN CODES
#
###############################################################################

if( $ARGV[0] =~ m/-[?hH]/ ) {
print "sendAttachment addressee [options] [file | directory]\n\n".
" addresee : email address[es] to send the email to\n".
" [file | addresses] : attachment[s]\n\n".
" options:\n".
" -f from address\n".
" -s subject\n";
exit 0;
}

$mailTo = $ARGV[0];
$sender = 'automailer@yourdomain.hu';

for($i=1; $i <= $#ARGV; $i++) {

if( $ARGV[$i] eq '-f' ) { $sender = $ARGV[$i+1]; $i++; }
elsif( $ARGV[$i] eq '-s' ) { $subject = $ARGV[$i+1]; $i++; }
else {
push @files, $ARGV[$i];
}
}

print "To: $mailTo\nFrom: $sender\nSubject: $subject\n";

open(MAIL, "| /usr/sbin/sendmail $mailTo");
print MAIL "To: $mailTo\nFrom: $sender\n";
if( $subject ) { print MAIL "Subject: $subject\n" };

$id = int(rand(100000000000));
$id .= '-'.$id;

print MAIL "MIME-Version: 1.0\n".
"Content-Type: MULTIPART/MIXED; BOUNDARY=\"$id\"\n\n\n".
"--$id\n".
"Content-Type: text/plain; charset=US-ASCII\n".
# "Content-Transfer-Encoding: 7bit\n\n".
"\nSee attachement\n\n";

foreach $file (@files) {
if( -f $file ) {
attach( $id, $file );
}
elsif( -d $file ) {
foreach $filename (<$file/*>) {
attach( $id, $filename );
}
}
}

print MAIL "\n\n--$id--\n";
close(MAIL);

sub attach {
my( $id, $filename ) = @_;

print "Attachment: $filename\n";

if( open(F, $filename) ) {
@tmp = <F>;
close(F);

print MAIL "--$id\n".
"Content-Type: text/plain; charset=US-ASCII\n".
"Content-Disposition: attachment; filename=\"$filename\"\n".
"Content-Description: $filename\n".
"Content-Transfer-Encoding: 7bit\n\n";
print MAIL @tmp;
print MAIL "\n";
}

}

Szólj, ha megy nálad is. (Én szépen tördelve paste-áztam ide be.)

Nem fűztem be sehova, ezzel küldöm a leveleket. Valóban nem teljesen azt csinálja, amire szükséged van, de talán mégis segít.