How can I attach a text file to the email in perl

prakash.akumalla · 10-27-2008, 09:28 AM

Hai,

I wish to send a text file as attachment to the my mailid from my centos box using perl. I tried but could no succeed. Please help in writing the code in perl to attach a text file

Thanks,
Prakash.

TB0ne · 10-27-2008, 11:11 AM

Quote:

Originally Posted by prakash.akumalla

Hai,

I wish to send a text file as attachment to the my mailid from my centos box using perl. I tried but could no succeed. Please help in writing the code in perl to attach a text file

Thanks,
Prakash.

"Help in writing the code"? Sure, post what you've written so far, along with the error(s) you're getting, and we can help you. Otherwise, look up mime::lite or email::mime on CPAN.

If you're looking for someone to write code for you, that's called a "consultant" or "programmer", and they typically get paid to do it.

prakash.akumalla · 10-29-2008, 12:40 AM

Hi,

Thanks for your reply. This is how i am sending the mail using perl.

#!/usr/bin/perl

$to='mymail@gmail.com';
$from= 'root@localhost.com';
$subject='TEST MESSAGE';

open(MAIL, "|/usr/sbin/sendmail -t");

## Mail Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
## Mail Body
print MAIL " Hai this is a test message. \n";

close(MAIL);

Please help me in attaching a text file to it.

Thanks,
Prakash.

chrism01 · 10-29-2008, 02:07 AM

As mentioned, read up on Mime::Lite at search.cpan.org
Here's one I wrote

Code:

    # Set the fields required by Mailer...
    $contact_email = $cfg::params{'USER_EMAIL'};
    $sender = "$prog_full_name";
    $subject = " Asset Mgr Report for : $table_name";
    $body_text = "This is an automated message:\n\n".
                 "CSV report of active rows in $table_name\n\n".
                 "Regards,\n$prog_full_name at $hostname\n\n";

    # ... and send it
    # Header
    $msg = MIME::Lite->new(
                            From    => $sender,
                            To      => $contact_email,
                            Subject => $subject,
                            Type    =>'multipart/mixed',
                            Debug   => 1
                            );
    # Body Content
    $msg->attach(
                Type     => 'TEXT',
                Data     => $body_text
                );
    # Attachment
    $msg->attach(
                Type     => 'text/plain',
                Path     => "$rpt_file",
                Filename => "${rpt_filename}.${rpt_filext}",
                Disposition => 'attachment'
                );

prakash.akumalla · 10-29-2008, 02:18 AM

Hi,
Thanks for your reply. When i execute the above code there occurred an error saying that

Can't locate object method "new" via package "MIME::Lite" (perhaps you forgot to load "MIME::Lite"?) at file.pl

I have already install MIME::Lite using cpan.

Why is this happening so?

Please look at this once.

Thanks,
Prakash.

chrism01 · 10-29-2008, 02:22 AM

You need to read those links I put in your other thread. They'll teach you how to use Perl.
If you want Perl to use a non-Core module, you have to specify it to be used explicitly, a bit like you would in C.
In this case

use Mime::Lite;

at the top

prakash.akumalla · 10-29-2008, 07:18 AM

Hi,

Finally succeeded in sending the file with an email. But I am able to send it in the form of only text. That's enough for me now.

Thanks for all the guys who helped me.
Prakash.

prakash.akumalla · 10-30-2008, 05:11 AM

Hi,

This is how i used to send the mail.

Quote:

$contact_email = "prakash.akumalla@xxx.com";
$sender = "root@localhost.com";
$subject = " Asset Mgr Report for : $table_name";
$body_text = "This is an automated message:\n\n".
"CSV report of active rows in $table_name\n\n".
"Regards,\n$prog_full_name at $hostname\n\n";

# ... and send it
# Header
$msg = MIME::Lite->new(
From => $sender,
To => $contact_email,
Subject => $subject,
Type =>'multipart/mixed',
Debug => 1
);
# Body Content
$msg->attach(
Type => 'TEXT',
Data => $body_text
);
# Attachment
$msg->attach(
Type => 'text/plain',
Path => "/root/localhost.csv",
Filename => "${rpt_filename}.${rpt_filext}",
Disposition => 'attachment'
);

It did not work. Apart from the attachment, mail is also not been sent.

Please look at this once.

Thanks,
Prakash.

prakash.akumalla · 10-30-2008, 07:41 AM

This is the script I finally used and succeeded.

[HTML]use MIME::Lite;
use Net::SMTP;

$msg = MIME::Lite->new (
From => 'root@localhost.com',
To => 'prakash.akumalla@xxx.com',
Subject => 'Test Mail',
Type =>'multipart/mixed'
) or die "Error creating multipart container: $!\n";

$Mail_msg = "This is the test mail";
$attachment = "/root/localhost.csv";
$datafilename = "localhost.csv";

### Add the text message part
$msg->attach (
Type => 'TEXT',
Data => $Mail_msg
) or die "Error adding the text message part: $!\n";

### Add the text file
$msg->attach (
Encoding => 'base64',
Type => "text/csv",
Path => $attachment,
Filename => $datafilename,
Disposition => 'attachment'
) or die "Error adding $datafile: $!\n";

MIME::Lite->send('smtp', 'mail_server', Timeout=>60);

$msg->send;[/HTML]

Thanks for all those guys who helped me,
Prakash.