pbl de date

Bonjour, et bonnes fêtes à tous.

Voici un script qui me permet de lire des RDV dans Outlook.
Tout vas bien sauf pour les dates que je n'arrive pas à les décoder.

_SCRIPT_

use Win32::OLE;
use Win32::OLE::Const 'Microsoft Outlook';

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

$namespace = $Outlook->GetNamespace("MAPI");
$Folder = $namespace->GetDefaultFolder(olFolderCalendar);
$Rdv=$Folder->{Items};

while($NewRdv = $Rdv->GetNext()){
($year,$month,$day,$hour,$min,$sec)=
print "Sujet: $NewRdv->{Subject}\n";
print "Durée: $NewRdv->{Duration}\n";
print "Départ : $NewRdv->{Start}\n";
print "Sonnerie:$NewRdv->{ReminderSet} \n";
}

_Fin SCRIPT_

Les résultats sont bons mais sauf pour Départ qui est la date du RDV qui
s'affiche comme ceci:
Départ: Win32::OLE:Variant=SCALAR(0x195432c)

Je pense qu'il y a formatage a faire en amont mais je ne trouve pas comment.

Si vous avez une solution?

Merci
--
--
Frantz DORSEMAINE

frantz.dorsemaine@free.fr