Connexion Newsletter
iTPro.fr

Actualités, Dossiers et Ressources IT Professionnelles - jeudi 30 juillet 2026

> Tech > Outlook 2000 – Comment effacer des rendez-vous récurrents

Outlook 2000 – Comment effacer des rendez-vous récurrents

Tech - Par iTPro.fr - Publié le 24 juin 2010

Par Sue Mosher
Nous allons voir dans cet article comment, dans Outlook, supprimer des rendez-vous, notamment récurrents, et comment purger uniquement les événements qui se sont produits avant une certaine date.Tout d'abord, on choisit une propriété de date, à  partir de laquelle on va définir un filtre. La propriété logique à  utiliser pour un dossier de type calendrier est End. Supposons qu'un dossier calendrier contienne un événement qui débute le 25 Février 2001 et se termine le 4 Mars 2001. On souhaite supprimer tous les événements antérieurs au 1er Mars. Si on utilise la date de début comme critère pour le filtre, les évènements qui se déroulent sur huit jours vont aussi faire partie des objets effacés puisque leur date de début se situe avant le 1er Mars. Par contre, si on utilise la propriété End, ces éléments resteront dans le calendrier, puisque leur date de fin est plus récente que la date limite du 1er Mars.

Si on utilise la propriété End, ces éléments resteront dans le calendrier, puisque leur date de fin est plus récente que la date limite du 1er Mars

La fonction PurgeCalendarFolder() que l’on voit dans le listing 1, utilise un
objet MAPIFolder comme argument unique et renvoie une chaîne contenant le nombre
d’éléments que la fonction a effacés. Il faut appeler la fonction PurgeCalendarFolder()depuis
une autre procédure, comme le sous programme CleanFolder paru dans nos colonnes
en février. Ce sous programme permet de choisir un dossier à  partir de la boite
de dialogue Select Folder. Remarquez que la fonction PurgeCalendarFolder() utilise
la propriété DefaultItemType pour vérifier le type de dossier, et ne fonctionne
que si le dossier est identifié comme calendrier (c’est-à -dire un dossier contenant
des objets rendez-vous). Les deux commandes ci-dessous amènent, pour un groupe
d’objet dans un dossier (c’est-à -dire des collections d’éléments (colItems)) à 
considérer les récurrences individuelles comme des rendez-vous distincts. C’est
pourquoi il est possible d’effacer des enregistrements de type rendez-vous récurrents
plus anciens tout en conservant les plus récents dans le dossier. La propriété
IncludeRecurrences est active uniquement si l’on utilise la propriété Start pour
trier le groupe :



colItems.Sort « [Start] »

colItems.IncludeRecurrences _ = True







Listing 1 La fonction PurgeCalendarFolder()



Function PurgeCalendarFolder(objFolder As MAPIFolder) As String

Dim colItems As Items

Dim colOldItems As Items

Dim objItem As AppointmentItem

Dim strRes As String

Dim intCount As Integer

Dim strRestrict As String



‘ vérifie qu’il s’agit d’un Dossier Calendrier

If objFolder.DefaultItemType = olAppointmentItem Then

Set colItems = objFolder.Items



‘ récupère toutes les récurrences

colItems.Sort « [Start] »

colItems.IncludeRecurrences = True



‘ définit les limitations optionnelles

strRestrict = GetRestrictDate(objFolder.Name)

If strRestrict <> «  » Then

strRestrict = « [End] < " & Chr(34) & _

Format(strRestrict, « mmm dd, yyyy ») & Chr(34)

Set colOldItems = colItems.Restrict(strRestrict)

End If



‘ exécute les suppressions

Set objItem = colOldItems.GetFirst

Do Until objItem Is Nothing

Debug.Print objItem.End

objItem.Delete

intCount = intCount + 1

Set objItem = colOldItems.GetNext

Loop

End If



‘ définit la variable de sortie de la procédure

If intCount > 0 Then

strRes = Format(intCount) &  » items purged »

Else

strRes = « no items purged »

End If



PurgeCalendarFolder = strRes



Set objItem = Nothing

Set colItems = Nothing

Set colOldItems = Nothing

End Function


Téléchargez cette ressource

Microsoft 365 Tenant Resilience

Microsoft 365 Tenant Resilience

Face aux failles de résilience des tenants M365 (configurations, privilèges, sauvegarde). Découvrez 5 piliers pour durcir, segmenter et surveiller vos environnements afin de limiter l’impact des attaques. Prioriser vos chantiers cyber et améliorer la résilience de vos tenants Microsoft 365.

Les articles les plus consultés

A travers cette chaîne
A travers ITPro

Les plus consultés sur iTPro.fr

Articles les + lus

Couchbase lance AI Data Plane pour industrialiser l’IA agentique

Couchbase lance AI Data Plane pour industrialiser l’IA agentique
Windows 11 : Microsoft généralise le point-in-time restore pour accélérer la remise en service des PC

Windows 11 : Microsoft généralise le point-in-time restore pour accélérer la remise en service des PC
Computex 2026 : 5 signaux forts à retenir

Computex 2026 : 5 signaux forts à retenir
La chaîne d’approvisionnement, point de rupture récurent du SI

La chaîne d’approvisionnement, point de rupture récurent du SI
Microsoft Build 2026 : contre-offensive des modèles maison face à OpenAI et Anthropic

Microsoft Build 2026 : contre-offensive des modèles maison face à OpenAI et Anthropic

A lire aussi sur le site

Au-delà du polling: pourquoi la surveillance des systèmes hérités devient un risque pour l’entreprise

Pendant des années, la surveillance des réseaux d'entreprise s'est appuyée sur un principe simple : collecter périodiquement des instantanés de l'activité réseau (le polling SNMP) afin d’évaluer l'état général de ce dernier. Cette approche fonctionnait plutôt bien lorsque les infrastructures étaient stables et prévisibles.

À la une de la chaîne Tech

Sécuriser sa téléphonie IP : 5 failles critiques à anticiper

Sécuriser sa téléphonie IP n’est plus une option. Avec la généralisation de la téléphonie cloud et des infrastructures VoIP, la voix circule désormais sur les mêmes réseaux que les données stratégiques de l’entreprise.

A la Une des Ressources IT

Inscrivez-vous !
Sécuriser Microsoft 365 avec une approche Zero-Trust

Sécuriser Microsoft 365 avec une appr...

Découvrir Microsoft 365 Tenant Resilience

Microsoft 365 Tenant Resilience

Découvrir Mac en entreprise : le levier d’un poste de travail moderne

Mac en entreprise : le levier d’un po...

Découvrir Plan de sécurité Microsoft 365

Plan de sécurité Microsoft 365

Découvrir Guide de Threat Intelligence contextuelle

Guide de Threat Intelligence contextu...

Découvrir