Hi,

I am facing problem in stripping attachements in my outlook mailbox.

The main objective of my project is to open the mails and the attachments and print both to my local printer.

I am able to print in Dos prompt up to body of message but not able to print to my local printer.

Please kindly suggest me, here is my code which is printing upto body of message in Dos prompt, but giving an exception
as [Win32:LE=HASH(0x2194b880], When I read or open attachment and I even used various modules
but of no use.

use File::Basename;
use File:ath;
use Getopt::Std;
use Time::localtime;
use Net::FTP;
#use strict;
use lib qw(lib);
use Mail:utlook;
use File::Copy;
#use Mail::Message;
use Mail::Message::Attachment::Stripper;
use Win32:LE qw(in with);
use Win32:LE::Const 'Microsoft Excel';
use Win32:LE qw(in with);

my $mail = new Mail:utlook();
die "Cannot create mail object\n"      unless $mail;

my $folder = $mail->folder('Inbox');
die "Cannot create folder object\n"      unless $folder;

my $message = $folder->first;

printf "[first]\nFrom: [%s]\n\n", $message->SenderName();
printf "To: [%s]\nSubject: [%s]\n", $message->To(), $message->Subject();
printf "Attachment: [%s]\n\n",$message->Attachments();
printf "Body: [%s]\n\n",$message->Body();

while($message = $folder->next){

printf "[first]\nFrom: [%s]\n\n", $message->SenderName();
printf "[next]\nTo: [%s]\nSubject: [%s]\n", $message->To(), $message->Subject();

printf "Attachments: [%s]\n\n",$message->Attachments();
printf "Body: [%s]\n\n",$message->Body();

print "*************************************************************\n";


}


Thanks,
Santhosh.

---