Suppression rendez-vous Outlook 2003

Bonjour,

Je travaille sur un script qui exporte les rendez-vous du calendrier dans un fichier Excel en fonction de la date de début et de la date de fin.
Je demande ensuite si l'utilisateur veut supprimer les rendez-vous qui ont été exporté.

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

SuppRdv   Sub SuppRdv   appointmentItems.Sort "[Start]"   MsgBox"Voulez-vous supprimer les messages archivés de votre Agenda ?",VbYesNo+VbQuestion   If VbYes then Set Appointments = appointmentItems.Find("[Start] >= """ & StartOfRange & """ and [Start] <= """ & EndOfRange & """ ") While TypeName(Appointments) <> "Nothing" Appointments.Delete Set Appointments = appointmentItems.FindNext   Wend   Else wscript.quit End If     End Sub

---

Là je rencontre 2 problèmes :

- Même si je répond "non", les rendez-vous sont supprimés
- Les rendez-vous périodiques sont supprimés même au-delà de la date de fin "EndOfRange" alors que dans l'export les rendez-vous ne dépassent pas la date de fin.

Merci de votre aide ;)

Oui c'est normal, VbYes est une constante égale à 6. Quelque soit la réponse à la question, cette constante ne changera pas de valeur. Tu dois tester le retour de la fonction MsgBox et comparer si c'est égal à VbYes. Ex :

Code:

---

1 2 3 4 5 6

if mgsbox("C'est l'heure de manger ?", vbyesno) = vbyes then ... else ... endif

---

Merci captainKirk, j'ai modifié le script de cette façon :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub SuppRdv   appointmentItems.Sort "[Start]"   If MsgBox("Voulez-vous supprimer les messages archivés de votre Agenda ?",VbYesNo+VbQuestion) = VbYes then Set Appointments = appointmentItems.Find("[Start] >= """ & StartOfRange & """ and [Start] <= """ & EndOfRange & """ ") While TypeName(Appointments) <> "Nothing" Appointments.Delete Set Appointments = appointmentItems.FindNext   Wend   Else End If   End Sub

---

Reste donc le problème concernant les rendez-vous périodiques qui sont supprimés même au-delà de la date de fin "EndOfRange" alors que dans l'export Excel, les rendez-vous ne dépassent pas la date de fin.

Cela vient probablement du fait que les rendez-vous périodiques sont liés entre eux. Lorsqu'on en supprime un via Outlook, ce dernier demande si on souhaite supprimer uniquement cette occurrence ou la série complète. Je suppose que par défaut la fonction Delete supprime toute la série. Par contre, je ne connait pas suffisamment l'API d'Outlook pour savoir de tête s'il existe une autre méthode ou un paramètre à passer à la fonction Delete. Il faudrait regarder dans la documentation de Microsoft.

Après avoir consulté la doc Microsoft, j'ai testé plusieurs choses mais je ne m'en sort pas :

Code:

---

1 2 3 4 5 6 7 8 9

appointmentItems.Sort "[Start]"   If MsgBox("Voulez-vous supprimer les messages archivés de votre Agenda ?",VbYesNo+VbQuestion) = VbYes then Set Appointments = appointmentItems.Find("[Start] >= """ & StartOfRange & """ and [Start] <= """ & EndOfRange & """ ") While TypeName(Appointments) <> "Nothing" Appointments.ClearRecurrencePattern() Appointments.RecurrenceState = 0 Appointments.Delete Set Appointments = appointmentItems.FindNext

---

Que j'essaye de supprimer la récurrence avec

Code:

---

ClearRecurrencePattern()

---

ou avec

Code:

---

RecurrenceState = 0

---

rien n'y fait.

C'est vraiment désesprérant !!!! :mur: