Supprimer un rdv du calendrier Outlook
Résolu
DarkCid
Messages postés
195
Date d'inscription
mardi 22 février 2005
Statut
Membre
Dernière intervention
26 octobre 2009
-
23 mars 2005 à 14:49
DarkCid Messages postés 195 Date d'inscription mardi 22 février 2005 Statut Membre Dernière intervention 26 octobre 2009 - 23 mars 2005 à 15:41
DarkCid Messages postés 195 Date d'inscription mardi 22 février 2005 Statut Membre Dernière intervention 26 octobre 2009 - 23 mars 2005 à 15:41
1 réponse
DarkCid
Messages postés
195
Date d'inscription
mardi 22 février 2005
Statut
Membre
Dernière intervention
26 octobre 2009
1
23 mars 2005 à 15:41
23 mars 2005 à 15:41
Yaoh !
Laissez tomber, en tatonnant g finit par trouver tt seul (kom un grand lol)
Je vais mettre ce ke g trouver, histoire de dire (mais si y a mieux dites le surtout)
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
Et voilà ! J'espère ke g répondu à ma kestion !
Laissez tomber, en tatonnant g finit par trouver tt seul (kom un grand lol)
Je vais mettre ce ke g trouver, histoire de dire (mais si y a mieux dites le surtout)
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
Et voilà ! J'espère ke g répondu à ma kestion !
