Le premier site francophone dédié au développement Pocket PC

Comment utiliser POOM avec eVB ? Partie 4: Les rendez-vous

Voir la première partie (informations générales)
Voir la deuxième partie (les tâches)
Voir la troisième partie (les contacts)

Cet article va vous expliquer comment accéder aux rendez-vous que vous avez définis dans votre Pocket PC.

Comme cet article fait référence à des opérations expliquées dans la première partie, nous vous conseillons vivement de consulter la première partie avant de continuer.

Nous partons du principe que nous disposons d'un objet de type PocketOutlook.Application (notre variable wPOOM), et que nous avons exécuté avec succès la méthode "Logon" de cet objet.

Accéder aux rendez-vous

POOM stocke ses données dans des dossiers (folders). Il faut donc se 'brancher' sur le dossier des rendez-vous pour pouvoir les manipuler :

Dim wCalendarFolder as PocketOutlook.Folder
Set wCalendarFolder = wPOOM.GetDefaultFolder(olFolderCalendar)

wCalendarFolder pointe maintenant sur le dossier PocketOutlook des rendez-vous. Tous les rendez-vousque vous avez définis sont listés dans une collection de cet objet, la collection "Items" (de type "PocketOutlook.Items") qui contient des objets de type "PocketOutlook.AppointmentItem" :

Dim wAppointments as PocketOutlook.Items
Dim wAppointment as PocketOutlook.AppointmentItem

Set wAppointments = wCalendarFolder.Items
For Each wAppointment In wAppointments
Call wAppointment.Display
Next

Si vous exécutez ce code, PocketOutlook va afficher une fiche rendez-vous pour chaque rendez-vous présent dans la collection wAppointments !

Important : Chaque fiche est affichée de manière modale, ce qui arrête votre code eVB tand que vous ne fermez pas le rendez-vous avec le bouton OK.

Attention : La méthode "Display" de l'objet "AppointmentItem" affiche les informations concernant le rendez-vous, mais aussi vous permet de modifier ces informations, donc attention.

Créer un nouveau rendez-vous

Pour créer un nouveau rendez-vous, il faut renseigner les propriétés d'un objet de type "AppointmentItem" :

Dim wAppointment as PocketOutlook.AppointmentItem

Rem Création d'un nouveau rendez-vous (code 1)
Set wAppointment = wPOOM.CreateItem(1)

Rem On remplit les infos de base : le sujet, la note, le début et la fin du rendez-vous
wAppointment.Subject = "Réunion sur produit SPAC"
wAppointment.Body = "Ceci est un commentaire lié à ce rendez vous"
wAppointment.Start = cDate("15/07/2001 15:30")
wAppointment.End = cDate("15/07/2001 18:00")

Rem On enregistre ce nouveau rendez-vous
Call wAppointment.Save

Trouver des rendez-vous par rapport à des critères

Comme avec les tâches et les contacts, il est possible d'utiliser la méthode "Restrict" de la collection 'Items', ce qui permet de ne remplir cette collection qu'avec les rendez-vous correspondants au critère donné :

Dim wCalendarFolder as PocketOutlook.Folder
Dim wAppointments as PocketOutlook.Items
Dim wAppointment as PocketOutlook.AppointmentItem

Rem On récupère le dossier des rendez-vous
Set wCalendarFolder = wPOOM.GetDefaultFolder(olFolderCalendar)
Rem On récupère la collection des rendez-vous du 15/07/2001
Set wAppointments = wCalendarFolder.Items.Restrict("[Start] = " & Chr(34) & "15/07/2001" & Chr(34))
For Each wAppointment in wAppointments
Call wAppointment.Display
Next

Important : Chaque item (contact, tâche, rendez-vous, etc...) possède une propriété "oid" (Outlook ID) qui correspond à la clé unique de ce contact dans la base PocketOutlook. Grace à la méthode "GetItemFromID" de l'objet PocketOutlook.Application (notre wPOOM), il est possible de récupérer imédiatement l'item par son ID :

Sub ChargerRendezVous

Rem Code de chargement de la ListeBox List1 avec tous les rendez-vous de la base PocketOutlook

Dim wAppointments as PocketOutlook.Items
Dim wAppointment as PocketOutlook.AppointmentItem

Set wAppointments = wPOOM.GetDefaultFolder(olFolderCalendar).Items
Call List1.Clear
For Each wAppointment In wAppointments
Call List1.Additem(wAppointment.Start & " " & wAppointment.Subject)
List1.ItemData(List1.NewIndex) = wAppointment.oid
Next

End Sub

Sub List1_Click()

Rem Code à placer dans l'événement Click de la ListeBox List1
Dim wID as Long
Dim wAppointment as PocketOutlook.AppointmentItem

If List1.Listindex=-1 Then Exit Sub
wID = List1.ItemData(List1.Listindex)
Set wAppointment = wPOOM.GetItemFromID(wID)
Call wAppointment.Display

End Sub

Détruire un rendez-vous

Pour détruire un rendez-vous, il faut utiliser la méthode "Delete" de l'objet "AppointmentItem" qui pointe sur le rendez-vous que vous voulez détruire :

Dim wAppointments as PocketOutlook.Items

Rem On récupère la collection des rendez-vous
Set wAppointments = wPOOM.GetDefaultFolder(olFolderCalendar).Items
Rem Et on détruit le premier de la collection
Call wAppointments(1).Delete

Voilà, vous savez globalement comment gérer les rendez-vous avec POOM. Biensûr, il existe certaines méthodes et propriétés dont nous avons délibérément omis de parler car elles ne rentre pas dans le cadre de cet article d'initiation. Si vous avez des problèmes avec les contacts n'oubliez pas que le forum eVB d' est là pour vous aider.

Stéphane Sibué