I have the code below which will successfully accesses and print the standard contact fields in a given Outlook contact folder that uses the standard contact form. The given code happens to access a public contacts folder, but results are the same for a privite contact folder. The problems is that I have created a custom contact form and the code below will not access any of the custom fields (the test fields below). It accesses the standard fields just fine. I have tried creating the custom fields in different ways and nothing seems to work. Ideas?

use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Outlook';
$|++;
$Win32::OLE::Warn = 3; # Die on errors

my $OL = Win32::OLE->GetActiveObject('Outlook.Application')
        || Win32::OLE->new('Outlook.Application', 'Quit');

my $NameSpace = $OL->GetNameSpace("MAPI");


my $folder="TestFolder";

my $Contacts = $NameSpace->Folders("Public Folders")->Folders("All Pub
+lic Folders")->Folders("Corporate Contacts")->Folders($folder);

my $contact_items = $NameSpace->Folders("Public Folders")->Folders("Al
+l Public Folders")->Folders("Corporate Contacts")->Folders($folder)->
+{Items};


foreach my $item (in $Contacts->{Items}){
  print "Category:  $item->{Categories}\n";
  print "Company:  $item->{CompanyName}\n";
  print "Test Field 1:  $item->{Test}\n";
  print "Test Field 2:  $item->{Test2}\n";
  print "Test Field 3:  $item->{Test3}\n";
  print "Test Field 4:  $item->{Test4}\n";
  print " File As:  $item->{FileAs}\n\n";
}

print "Done!\n";
[download]