Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Bonjour, et bonnes fêtes à tous.Voici un script qui me permet de lire des RDV dans Outlook.Tout vas bien sauf pour les date que je n'arrive pas à 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 quis'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 pascomment.Si vous avez une solution?MerciJ'ai trouver avec ceci
Bonjour, et bonnes fêtes à tous. Voici un script qui me permet de lire des RDV dans Outlook. Tout vas bien sauf pour les date que je n'arrive pas à 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 J'ai trouver avec ceci