[sf-perl] MIME::Lite
Peter Loo
loopeter at yahoo.com
Thu Jul 23 15:06:47 PDT 2009
Hello All,
The Sun OS server that I am currently developing on has MIME::Lite 3.01 installed on it. I have search all over the Internet for a sample code that shows a way to mail an Excel file as an attached file. I found a few sample codes and they all successfully send the test files (*.pdf, *.xls, *.txt, *.pl, *.jpg, *.gif, *.zip) to my Exchange email account, however, when I attempt to open these files, not one will open successfully. For example, the JPG and GIF files show no image. The .pl file shows as binary un-readable view. The Excel file spits out the error (This file is not in a recognizable format.). The PDF file reports (Adobe Reader could not open 'Review.pdf' because it is either not a supported file type or because the file has been damaged.)
I FTPed to the server and downloaded the files to my PC and was able to open all the files successfully but through MIME::Lite, I can't.
I have changed the settings around in program but no luck. Will you kindly look at the code and advise as to what I might be doing wrong?
Here is my sample program:
#!/usr/bin/perl
use MIME::Lite;
#my $fileName = "debug_20090302.xls";
#my $fileName = "Review.pdf";
#my $fileName = "APR_09_DUAL_OP_CK.xls";
#my $fileName = "LG_enV_Touch_lowres_270x191.jpg";
#my $fileName = "p.pl";
my $fileName = "stravinsky09.gif";
my $datDir = "/the/path/to/my/file";
my $msg = "My message goes here";
my $body = "Your reprot is attached herewith.";
my $message = MIME::Lite->new( From => 'someone at domain.com',
To => 'someone_else at some_other_domain.com',
Subject => $msg,
#Type => 'text/plain',
Type => 'multipart/mixed' );
#Encoding => '8bit',
#Data => $body );
#Data => "Dear Sirs,\nBest regards,\nbla bla" );
#my ($mime_type, $encoding) = ('application/octet-stream', 'base64');
$message->attach ( Type => 'TEXT',
Data => "Here's the GIF file you wanted"
);
#$message->attach ( Type => 'application/octet-stream',
#$message->attach ( Type => 'application/vnd.ms-excel',
#$message->attach ( Type => 'application/jpeg',
#$message->attach ( Type => 'application/pdf',
$message->attach ( Type => 'application/gif',
Path => $datDir,
#Encoding => 'base64',
Filename => $fileName,
Disposition => 'attachment' );
$message->send;
exit;
Thanks.
Peter
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/sanfrancisco-pm/attachments/20090723/aa2cd9c3/attachment.html>
More information about the SanFrancisco-pm
mailing list