Select Code to Download

use strict;
use Win32::OLE qw(in with);
...

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

my $Contacts =  $NameSpace->Folders("Personal Folders")->Folders("Cont
+acts");
 
...
           $NewContact->Save();
           print "Added $name\n";
    }

$Contacts =  $NameSpace->Folders("Personal Folders")->Folders("Contact
+s")->{Items};
    my $Cacharbes = $Contacts->Find("[LastName]=Charbeneau");
...
      $Cacharbes = $Contacts->FindNext() || last;     
   }