############# 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 ##################
In reply to Re^4: EMail problem in outlook
by chandanperl
in thread EMail problem in outlook
by chandanperl
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |