#!/usr/bin/perl

use Mail::Sender;


$sender = new Mail::Sender

######### MS Exchange SMTP server ####################

{smtp => '', from => ''};




$recipients = "";


if (ref $sender->OpenMultipart({
                from => '', to => $recipients,
                subject => 'chandan Embedded Image Test',
                boundary => 'boundary-test-1',
                multipart => 'related'})) {


##################### I have to send this part msg as inline #########
+#############

               $sender ->Attach(
                         {description => 'html body',
                         ctype => 'text/html; charset=us-ascii',
                         #encoding => '7bit',
                         disposition => 'NONE',
                         file => 'file2.html',
                });


################### I  have to send this part msg as Attachment ######
+###############

                $sender ->Attach(
                         {description => 'html body',
                         ctype => 'text/html; charset=us-ascii',
                         #ctype => 'text/html',
                         #encoding => '7bit',
                         #disposition => 'inline',
                         file => 'auth_sasl.pl',

                 });


                $sender->Close() or die "Close failed! $Mail::Sender::
+Error\n";
        } else {
                die "Cannot send mail: $Mail::Sender::Error\n";
        }

        exit;
[download]