Script OLE

Bonjour a tous,

Voici un script OLE pour Outlook afin d'ajouter un contact.

Le script ajoute bien le contact mais il est vide pouvez vous m'aider.

Merci


#!/usr/bin/perl
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Outlook';

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

my $namespace = $Outlook->GetNamespace("MAPI");
my $Folder = $namespace->GetDefaultFolder(olFolderContacts); # or die
"oops 2";

#my $NewFolder = $Folder->Folders->Add("test_folder");


my $NewCon=$Folder->Items->Add();
$NewCon->BusinessTelephoneNumber("01 01 01 01 01");
$NewCon->FirstName("AAAAAAAAA");
$NewCon->Save();


_END_