Hi Satish,
what is the bug/error in the below code, actually this is the same code that you have sent, i've done slight modification.
This is working fine, and also i'm getting the value for the "To()" (mailid) but i'm not getting the mail id for "From()".
Please help on this.
Here is the code:-
use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Outlook';
my $outlook;
$outlook = Win32::OLE->new('Outlook.Application');
die unless $outlook;
my $namespace = $outlook->GetNamespace("MAPI");
my $folder = $namespace->GetDefaultFolder(6);
my $items = $folder->Items;
my $cnt=$items->Count;
for my $itemIndex (1..$items->Count) {
my $message = $items->item($itemIndex);
next if not defined $message;
if ($message->{'Unread'}) {
my $text = $message->Subject();
my $from_user = $message->From();
my $to_user = $message->To();
print "Unread Email from $from_user and to $to_user\n";
}
}
I'm getting error message as shown below:-
"Use of uninitialized value $from_user in concatenation (.) or string at Perl_ABC.pl line 19.
Unread Email from and to SurName (ABC), MiddleName
why we are not getting the value for "From()" ? is there any mistake in my script ?
Thanks,
Karthik
|