slut a tou voila je cherche comment supprimer tou les rdv du calendrier outlook...j'ai trouvé du code sur le net que j'ai modifié pour supprimer tous les rdv...malheureusement, ca marche pa trop....
est ce que quelqu'un a une idee?
merci
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 Dim outlk As OutLook.Application Dim appt As OutLook.AppointmentItem Dim Nom As OutLook.NameSpace Dim Calend As OutLook.Items Dim datedeb As String Dim datefin As String Set outlk = CreateObject("Outlook.Application") Set Nom = outlk.GetNamespace("MAPI") Set Calend = Nom.GetDefaultFolder(olFolderCalendar).Items Set appt = outlk.CreateItem(olAppointmentItem) Calend.Sort "[Start]" Calend.IncludeRecurrences = True datedeb = Date - 1500 datefin = Date + 1500 Set appt = Calend.Find("[Start] >= """ & datedeb & """ and [Start] <= """ & datefin & """") Set appt = Calend.GetFirst While TypeName(appt) <> "nothing" appt.Delete Set appt = Calend.FindNext Wend
arnolpourri
Partager