If you modify the above code like so:

my $msg = $Folder->Items($i);
my $nrecip = $msg->Recipients->Count;
for my $j (1..$nrecip) {
    print "$j\t",$msg->Recipients($j)->Address,"\t",$msg->Recipients($
+j)->Name,"\n"
}
[download]

I say this is a partial solution because if one of the recipients is someone on your exchange server, you get the exchange ID rather than an SMTP address. If anyone knows how to get the SMTP address instead, please let me know.

Steve

If you can't find a way get those contact's SMTP addresses from Outlook, you could probably look them up in Exchange with Net::LDAP.

My research indicates that all the cool kids are using an API called Redemption to talk to Outlook. There are lots of good reasons for this that you can read about on their web page. But for the purposes of this thread it gives you an easy (well, OK, not exactly easy but manageable) way to resist Microsoft hegemony by getting SMTP addresses when Outlook decides that what you really should want is one of its X400 addresses.

So here for your computing enjoyment is some code that uses Redemption to go through your inbox and enumerate the sender and recipients' SMTP addresses.

Steve

#!/usr/bin/perl -w
use strict;
use Win32::OLE;
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Outlook';
# set up Outlook OLE
my $Outlook;
eval {$Outlook = Win32::OLE->GetActiveObject('Outlook.Application')}; 
die "Outlook not installed" if $@; 
unless (defined $Outlook) { 
    $Outlook = Win32::OLE->new('Outlook.Application', sub {$_[0]->Quit
+;}) or die "Can't start Outlook: $!"; 
} 
my $ol = Win32::OLE::Const->Load($Outlook);
my $namespace = $Outlook->GetNamespace("MAPI");
# select mailbox and folder
my $mailboxname = "myMailbox"; # change this to the actual name of you
+r mailbox
my $foldername = 'Inbox'; # or whatever other folder you want to use
my $ofolder = $namespace->Folders($mailboxname)->Folders($foldername) 
+|| die "Can't open folder Inbox: $!\n";
my $sfolder = new Win32::OLE("Redemption.MAPIFolder");
$sfolder->{'Item'} = $ofolder;
# process messages
my $n = $sfolder->Items->Count;
my $sitem = new Win32::OLE("Redemption.SafeMailItem");
for (my $i=$n; $i>0; $i--) {
    $sitem->{'Item'} = $sfolder->Items($i);
    print "Subject: ",$sitem->{'Subject'},"\n";
    # show sender as insured SMTP address
    my $sendaddrtype = $sitem->Fields(0xC1E001E); # hex key for SENDER
+_ADDRTYPE
    my $senderemail;
    if ($sendaddrtype eq 'EX') {
        $senderemail = $sitem->{'Sender'}->Fields(0x39FE001E); # hex k
+ey for EMAIL
    }
    else {
        $senderemail = $sitem->{'SenderEmailAddress'};
    }
    print "\tSender: $senderemail\n";
    # show recipients' SMTP addresses
    my $nrecip = $sitem->Recipients->Count;
    for my $j (1..$nrecip) {
        print "\tRecipient $j: ",$sitem->Recipients($j)->AddressEntry-
+>SMTPAddress,"\n";
    }    
}
[download]

Hi, How to get the Sender Email Address for the same code with out using the "Redemption.MAPIFolder" module. Thanks in Advance. Regards, Latha Sree

You lookup the object reference msdn and use the appropriate method (I guess ->Sender)