sending .txt attachment with sendmail...

[spewn]

i'm using this basic code to email:

open (MAIL, "|/usr/sbin/sendmail -t") || return 0;
select (MAIL);
print << "EOF";
To: That Guy <email\@yoursite.com>
From: My Company <email\@mysite.com>
Subject: Heres that file
blah blah blah
EOF
close (MAIL);
select (STDOUT);

what i'm trying to do is send a text file along with this email...

i know i can accomplish this with MIME Lite, but how about with what i'm working with?

thanks!

- g

 

[Zhris]

Here is an example:

my $attachment_fullpath = '';
open (LOG, "<$attachment_fullpath") || die "Cannot Open";
my @attachment_text = <LOG>;
close (LOG);

my $attachment_filename = "File.txt";

open (MAIL, "| /usr/sbin/sendmail -t >& /dev/null");
print MAIL qq~To: "$to" <$to>
From: "$from" <$from>
Subject: $subject
~;
print MAIL qq~MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="unique_boundary_string"\n\n~;
print MAIL qq~MIME Failed.\n~;
print MAIL qq~
--unique_boundary_string
Content-Type: text/plain; charset=us-ascii\n\n~;
print MAIL qq~$message~;
print MAIL qq~
--unique_boundary_string
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename="$attachment_filename"\n\n~;
print MAIL qq~@attachment_text~;
print MAIL qq~
--unique_boundary_string--
~;
print MAIL qq~MIME Failed.~;
print MAIL qq~\n.~;
close(MAIL);

Chris

 

[KevinADC]

If you have MIME::Lite installed or can install it, it makes sending attachments a snap.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[MoshiachNow]

I do it using 3-rd party utility "blat" :

system("blat.exe \"$SYSTEMDRIVE\\tmp\\alert.txt\" -s \"$computer report from $DATE\" -t \"$mailAddress\" -attach \"$all_csv\",\"$TEMP\\chart.xls\",$statusLog >\"$TEMP\\blat\"");


Long live king Moshiach !

http://www.simpletoremember.com/vitals/seven-laws-of-noah.htm