sending an excel attachment with MIME::Lite

[p cooper]

Ive converted a pipe-delimited file to excel format with
Spreadsheet::WriteExcel;

I now want to email it using MIME::Lite

anyone help out with
$message ->Type & encoding
( and the other stuff if its not correct)


my $message = MIME::Lite->new(
From => 'xxxxx' ,
To => 'xxx' ,
Cc =>'xx',
Subject => 'The database file as an Excel format,
Type => 'application/excel',
Encoding => '8bit',
Data => "Database files"
);

my ($mime_type, $encoding) = ('application/xls', 'base64');

$message->attach (
Type => $mime_type ,
Encoding => $encoding ,
Path => '/tmp/file.xls' ,
Filename => 'file.xls'
);

 

[Ben Morrow]

Ive converted a pipe-delimited file to excel format with
Spreadsheet::WriteExcel;

I now want to email it using MIME::Lite

anyone help out with
$message ->Type & encoding
( and the other stuff if its not correct)


my $message = MIME::Lite->new(
From => 'xxxxx' ,
To => 'xxx' ,
Cc =>'xx',
Subject => 'The database file as an Excel format,
Type => 'application/excel',

You don't want this here. Probably you don't want a type here at
all. If you do want one, you want multipart/mixed.

my ($mime_type, $encoding) = ('application/xls', 'base64');

The list of MIME types is at
http://www.iana.org/assignments/media-types/index.html, and the
correct one for Excel is appliaction/vnd.ms-excel. The encoding should
be Base64.

Note that this is not a Perl question.

Ben