- or download this
use strict;
use Win32::OLE qw(in with);
...
my $NameSpace = $OL->GetNameSpace("MAPI");
- or download this
my $Contacts = $NameSpace->Folders("Personal Folders")->Folders("Cont
+acts");
...
$NewContact->Save();
print "Added $name\n";
}
- or download this
$Contacts = $NameSpace->Folders("Personal Folders")->Folders("Contact
+s")->{Items};
my $Cacharbes = $Contacts->Find("[LastName]=Charbeneau");
...
$Cacharbes = $Contacts->FindNext() || last;
}