Discussion :

[Faro]

Bonjour,

J'ai une base Access qui créé, via outlook, des rendez vous dans des calendriers partagé (ouf !). La création ne me pose pas de problème, mais j'aimerais savoir s'il était possible lors de la création de récupérer un identifiant qui me permettrait ensuite de modifier ou de supprimer un rendez vous.

En gros mon idée : Je créé un enregistrement dans la base + le RDV dans le calendrier. Si je modifie mon enregistrement, il va modifier mon RDV.

Une idée ?

Merci pour votre aide.

Faro

[Jean-Philippe André]

Salut,

en manipulant l'objet AppointmentItem via l'automation, pas de soucis particulier pour modifier les propriétés de ton rdv
https://msdn.microsoft.com/fr-fr/lib.../ff862177.aspx

[Faro]

Ok, je viens de lire ta page mais ... Je ne suis pas sur de comprendre

Pour être plus clair, je pense qu'utilise sans doute une méthode pour créer un RDV qui n'est pas bonne, je la donne (pas taper, dev amateur ici) :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub Commande0_Click()
 
Dim objOLApp As New Outlook.Application
Dim objOLNameSpace As Outlook.NameSpace
Set objOLNameSpace = objOLApp.GetNamespace("MAPI")
Set objOLApp = CreateObject("Outlook.Application")
Dim objPubCalFolder As MAPIFolder
Set objPubCalFolder = objOLNameSpace.Folders("Dossiers publics").Folders("Antoine")
Dim NewAppointment As Outlook.AppointmentItem
Set NewAppointment = objPubCalFolder.Items.Add
 
'Create Calendar Appointment
With NewAppointment
    .Display
    .Subject = "Sujet"
    .Body = "BODY"
    .Location = "Location"
    .Start = "03/05/2016"
    .End = "03/05/2016"
    .Duration = "1"
    .AllDayEvent = True
    .ReminderSet = False
    .Close (olSave)
End With
 
'Notify user that travel has been posted to the calendar
MsgBox "OK"
 
'Cleanup Outlook
 
Set objOLApp = Nothing
Set objOLNameSpace = Nothing
 
End Sub

Donc, si je reprend, et pour être sur de ne pas dire de bétise :

1. Je dois créer un rendez-vous et enregistrer dans ma table RDV d'ID de ce rendez vous
2. Lors de la modification (ou suppression) de mon item dans la table RDV, je dois modifier le rendez vous, que je retrouve via l'ID de ce rendez vous.

Mes questions :

1. Il faut que j'utilise AppointmentItem autrement je suppose ?
2. Dans la page que tu m'as donnée, j'ai l'impression que le système créé lui même les idées, je pense que je lis mal le code ou ... j'ai raison ?

Merci pour votre aide

Faro

[User]

Bonjour,

Comme indiqué sur le site de microsoft, dans le modèle Outlook, tu as l'objet AppointmentItem qui comporte entre autre la prorpiété :

EntryID : Renvoie une chaîne représentant l'identificateur d'entrée unique de l'objet. En lecture seule.

Je l'utilise, pour ma part, avec l'objet MailItem pour enregistrer l'identifiant des e-mails au moment de les importer dans ma base Access.

Ensuite, j'ouvre l'e-mail avec EntryID, en appelant l'objet MailItem depuis Access.

Je suppose que tu dois pouvoir faire la m^me chose avec l'objet AppointmentItem.

Cdlt,