Mail attachment using perl

++nick++ · 02-28-2010, 01:39 PM

Hello All,

My script collects information and writes it to a xls file and should mail it across.

I tested the first part of the script which writes the excel file , it does write the excel file fairly with expected data using Spreadsheet::WriteExcel module

Second part uses MIME::Lite , All I get is a mail with intended subject intact but without the attachment . Following is the code , I have googled and tried out many options , didn't go any further apart from receiving a mail without attachment.

use MIME::Lite;

$msg = MIME::Lite->new(
From => 'xx',
To => 'xx',
Subject => 'using module'
);

$msg->attach(
Type => 'application/xls',
Encoding => 'base64',
);
$msg->attach(
Path => '/tmp/hello.xls',
Filename => 'hello.xls',
Disposition => 'attachment'
);

$msg->send();

I am using RHEL 4 , Perl 5.8

Kindly advise me of what might be going wrong . Thanks in Advance.

Sergei Steshenko · 02-28-2010, 01:53 PM

Quote:

Originally Posted by ++nick++

Hello All,

My script collects information and writes it to a xls file and should mail it across.

I tested the first part of the script which writes the excel file , it does write the excel file fairly with expected data using Spreadsheet::WriteExcel module

Second part uses MIME::Lite , All I get is a mail with intended subject intact but without the attachment . Following is the code , I have googled and tried out many options , didn't go any further apart from receiving a mail without attachment.

use MIME::Lite;

$msg = MIME::Lite->new(
From => 'xx',
To => 'xx',
Subject => 'using module'
);

$msg->attach(
Type => 'application/xls',
Encoding => 'base64',
);
$msg->attach(
Path => '/tmp/hello.xls',
Filename => 'hello.xls',
Disposition => 'attachment'
);

$msg->send();

I am using RHEL 4 , Perl 5.8

Kindly advise me of what might be going wrong . Thanks in Advance.

First forget about Excel and try to send a plain text attachment.

...

I haven't read the documentation, but are you sure you have to call the 'attach' method twice ? And are you sure the return value of the 'attach' method shouldn't be checked for errors ?

++nick++ · 03-01-2010, 04:34 AM

Thanks for the reply,

I tried to mail a plain text file , it didnt work either , all I received is a mail without attachment , below is the code,

use MIME::Lite;

$mail = MIME::Lite->new(
From => 'xx',
To => 'xx',
Subject => 'mailing a text attachment using mime lite',
);

$mail -> attach(
Type => 'text/html',
Path => '<absolute path>',
Filename => 'file1',
Disposition => 'inline',
);

$mail -> send();

#END

Kindly advice

karthi_27 · 03-01-2010, 05:14 AM

Hello nick,

Try the following code.

Code:

use strict;
use warnings;

use MIME::Lite;

my $msg = MIME::Lite->new(
    From    => 'xxx',
    To      => 'xxx',
    Subject => ' Test message',
    Type    => 'multipart/mixed',
);

$msg->attach(
    Type     => 'text',
    Data     => "Here is the file",
);

$msg->attach(
    Type     => 'text',
    Path     => '/home/user/Documents/Assignment1',
    Filename => 'Assignment1',
);

$msg->send;

Always mention the type of the data you going the send.

Thanks.

++nick++ · 03-01-2010, 05:15 AM

Hello All,

Adding a line(Type => 'multipart/mixed',) to the code made all the difference , fine the code below ,

use MIME::Lite;

$mail = MIME::Lite->new(
From => 'ramkar',
To => 'ramkar',
Subject => 'mailing a text attachment using mime lite',
Type => 'multipart/mixed',
);

$mail -> attach(
Type => 'text/html',
Path => '/ms/user/r/ramkar/file1',
Filename => 'file1',
Disposition => 'attachment',
);

$mail -> send();

#END

Thanks All.

++nick++ · 03-01-2010, 05:17 AM

Hi,

Thanks karthi , I saw your post only after posting mine in which i expressed the need for mentioning Type , thanks anyways

Cheers