email script

[Shawn]

Hi,

I have been using the below script to attach text files to a email and send
the email to whoever. But, I'd like to change the file Type to attach a
Excel file instead of a text file. What type of changes would I need to
make?

Thanks,
Shawn

#!/usr/local/bin/perl5.6

use lib "lib";
use MIME::Lite;

$msg = new MIME::Lite
From => "$ARGV[0]",
To => "$ARGV[1]",
Subject => "$ARGV[2]",
Type => 'TEXT',
Path => "$ARGV[3]",
Encoding => '7bit';
attach $msg
Type => 'TEXT',
Path => "$ARGV[4]",
Filename => "$ARGV[5]";
$msg->send;

--

 

[Bob Walton]

Shawn wrote:

....

I have been using the below script to attach text files to a email and send
the email to whoever. But, I'd like to change the file Type to attach a
Excel file instead of a text file. What type of changes would I need to
make? ....
Shawn

#!/usr/local/bin/perl5.6

use lib "lib";
use MIME::Lite;

$msg = new MIME::Lite
From => "$ARGV[0]",
To => "$ARGV[1]",
Subject => "$ARGV[2]",
Type => 'TEXT',
Path => "$ARGV[3]",
Encoding => '7bit';
attach $msg
Type => 'TEXT',
Path => "$ARGV[4]",
Filename => "$ARGV[5]";
$msg->send;

Try [untested]:

...
attach $msg
Type => 'application/msexcel',
Disposition=>'attachment',
Path => "$ARGV[4]",
Filename => "$ARGV[5]";
...