How do you obtain user email information, like email1address under the Global Address List on the Windows Exchange server. No matter what I try, I only get the user name. My code so far:

use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Outlook';
my $Outlook = Win32::OLE->GetActiveObject('Outlook.Application') or di
+e "GetActiveObject failed\n";

my $namespace = $Outlook->GetNamespace("MAPI");
my $GAL = $namespace->AddressLists("Global Address List")->{AddressEnt
+ries};

my $Filter = $GAL->Filter();

my $list_name = "addr_ent";  # set it to real name
$Filter->{Name} = $list_name;
my $Folder = $namespace->GetDefaultFolder(olFolderContacts); 

my $DL = $GAL->GetFirst(); # Depends on match above
my $Members = $DL->{Members};

for ( my $Member = $Members->GetFirst();$Member != undef; $Member = $M
+embers->GetNext() )
{
    my $fname = $Member->{FullName};  
    my $email = $Member->{Email1Address};  
    print "$fname $email\n";  
}
[download]