Hi Friends,
I am using perl on windows environment and i wish to send out an email with body of the mail referring from a text file and attaching a file. Perl should read the body of the mail from a file say bodyofmail.txt and attach a file say attachment.txt. I would like to do both in the same script. Here is the script which works perfect to send the attachments and could not read the file and add to the body of the email.
# C:\perl\bin -w
use MIME::Lite;
use Net::SMTP;
### Adjust sender, recipient and your SMTP mailhost
my $from_address = 'itsme@abcd.com';
my $to_address = 'itsme@abcd.com';
my $mail_host = 'mailserver.domain.com';
### Adjust subject and body message
my $subject = 'Message Notification';
### Adjust the filenames
my $my_file = 'C:\\Test\\attachment.txt';
my $your_file = 'attachment.txt';
### Create the multipart container
$msg = MIME::Lite->new (
From => $from_address,
To => $to_address,
Subject => $subject,
Type =>'multipart/mixed'
) or die "Error creating multipart container: $!\n";
### Add the text file
$msg->attach (
Type => 'plain/text',
Path => $my_file,
Filename => $your_file,
Disposition => 'attachment'
) or die "Error adding $file_zip: $!\n";
### Send the Message
MIME::Lite->send('smtp', $mail_host, Timeout=>60);
$msg->send;
Can someone please help here.. many thanks
---------- Post updated at 09:41 AM ---------- Previous update was at 08:08 AM ----------
Hi Friends,
I managed to get it done.. Could you please see and let me know if anything is wrong here.. thanks
#C:\perl\bin -w
use Mail::Sender;
# Prepare Mailer
$sender = new Mail::Sender
{smtp => 'mail.domain.com', from => 'itsme@abcd.com'};
$err = $Mail::Sender::Error;
if ($err) { die $err; } # Terminate on error
# Prepare message
$sendto="itsme";
$copys="itsme";
$subject="Notifcation";
$file='C:\bodyofemail.txt';
$filename='C:\attachment.txt';
$message = qx(type $file);
print $message;
# Send the mail
$sender->MailFile({to => $sendto,
cc => $copys,
subject => $subject,
msg => $message,
file => $filename});
$err = $Mail::Sender::Error;
if ($err) { die $err; } # Terminate on error