Discussion :

[Xilver]

Bonjour, c'est encore moi. Voilà, lorsque je veux ajouter un nouveau rendez-vous, j'ajoute la catégorie, le sujet,le lieu,la date de début et de fin ainsi que l'heure de fin et début.
Tout fonctionne mis à part pour l'ajout des heures.

Mon code actuel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//On renvoie le nouveau rendez-vous
//---------------------------------
AgendaItem		= ObjOutlook>>CreateItem(Cst_olAppointmentItem)
 
HeureDebut	= AgendaItem>>Start
HeureFin	= AgendaItem>>End
 
//Affecte l'agenda 
//---------------
AgendaItem>>Categories	= SA_Catégorie
AgendaItem>>Subject		= SA_Sujet
AgendaItem>>Location	= SA_Lieu
AgendaItem>>Body		= SA_Message
AgendaItem>>Start		= DateVersChaîne(SA_DateDebut) + HeureVersEntier(SA_HeureDébut)
AgendaItem>>End			= DateVersChaîne(SA_DateFin)   + HeureVersEntier(SA_HeureFin)
AgendaItem>>AllDayEvent	= INT_JournéeEntière
 
//Affiche le rendez-vous dans Outlook
//-----------------------------------
AgendaItem>>Display

J'essaie de convertir l'heure mais sans succès ! Quelqu'un saurait-il le problème?

[Xilver]

Hop c'est bon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//On renvoie le nouveau rendez-vous
//---------------------------------
AgendaItem		= ObjOutlook>>CreateItem(Cst_olAppointmentItem)

HeureDebut..PartieHeure		= SA_HeureDébut
HeureDebut..PartieDate		= SA_DateDebut

HeureFin..PartieHeure		= SA_HeureFin
HeureFin..PartieDate		= SA_DateFin

//Affecte l'agenda 
//---------------
AgendaItem>>Categories	= SA_Catégorie
AgendaItem>>Subject		= SA_Sujet
AgendaItem>>Location	= SA_Lieu
AgendaItem>>Body		= SA_Message
AgendaItem>>Start		= HeureDebut
AgendaItem>>End			= HeureFin 

AgendaItem>>AllDayEvent	= INT_JournéeEntière