Discussion :

[ghostvb]

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 :

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
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

[captainKirk]

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 :

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

1
2
3
4
5
6
 
if mgsbox("C'est l'heure de manger ?", vbyesno) = vbyes then
...
else
...
endif

[ghostvb]

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

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
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.

[captainKirk]

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.

[ghostvb]

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

Code :

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

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 :

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

ClearRecurrencePattern()

ou avec

Code :

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

RecurrenceState = 0

rien n'y fait.

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