Shell Programming and Scripting

# 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;

#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