############# Code Start #############################

#!/usr/bin/perl

use Mail::Sender;


$sender = new Mail::Sender

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

{smtp => '', from => 'chandan.kumar\@nmforest.loc'};



#$recipients = "chandan.kumar\@yahoo.co.in";
$recipients = "chandan.kumar\@nmforest.loc";


if (ref $sender->OpenMultipart({
                from => 'chandan.kumar\@nmforest.loc', to => $recipien
+ts,
                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 => 'inline',
                         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;

################ Code End ##################
[download]