Bonjour à tous.
Encore une petite question.
Mon appli permet de remplir une BdD avec des requêtes SQL, jusqu'ici pas de pb. Les renseignements sont stockés dans la base et aussi dans le calendrier outlook, la aussi c'est bon. Par contre je galère pour effacer. Pour les données dans la base pas de pb mais pour effacer dans le calendrier Outlook, là galère. Franchement par manque de temps, je n'ai pas beaucoup cherché, mise à part .delete().
J'ai trouvé ceci qui est en vb6. si quelqu'un peut le convertir en vb.net ou alors à un tuto ou un bout de code, je suis preneur.
Bon je cherche en attendant.
Code VB : 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 Dim outlk As Outlook.Application Dim appt As Outlook.AppointmentItem Dim Nom As Outlook.NameSpace Dim Calend As Outlook.Items Set outlk = CreateObject("Outlook.Application") Set Nom = outlk.GetNameSpace("MAPI") Set Calend = Nom.GetDefaultFolder(olFolderCalendar).Items Calend.Sort "[Start]" Calend.IncludeRecurrences = True Set appt = Calend.Find("[Start] >= """ & datedébutrecherche & """ and [Start] <= """ & datefinrecherche & """") While TypeName(appt) <> "Nothing" If appt.Subject = rdv recherché Then appt.Delete End If Set appt = Calend.FindNext Wend
Merci par avance.
GUPH
Partager