> 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

Windows

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

Prédictions 2025 des menaces persistantes avancées

L'analyse et l'évolution du paysage des menaces persistantes avancées (APT) et des conséquences sur vos infrastructures IT. Découvrez la synthèse des prédictions, tendances et recommandations pour 2025 avec les experts Kaspersky.

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

Windows

Découvrir tous les articles de la chaîne Tech

Les articles les plus consultés

A travers cette chaîne

A travers ITPro

Les plus consultés sur iTPro.fr

A lire aussi sur le site

En route vers l’inconnu : comment préparer les équipes à l’ère de l’IA

En France, en 2024, selon le baromètre de l’IFOP et Talan, l’utilisation de l’IA générative a augmenté de 60 % en un an, 38 % des utilisateurs estiment gagner en productivité et efficacité. L’intelligence artificielle (IA), en particulier l’IA générative, s’est en effet rapidement imposée dans les environnements professionnels, propulsant les entreprises vers des niveaux d’efficacité jamais atteints. La capacité de cette technologie à optimiser certains processus et à automatiser de nombreuses activités chronophages a fait de sa mise en œuvre une priorité absolue dans le monde entier.

La Revue du Décideur IT

IT Partners 2025 : un événement d’exception pour le Channel digital

Les 5 et 6 février 2025, IT Partners s’installe dans un lieu emblématique : Paris La Défense Arena. Cette 19ᵉ édition promet d’être bien plus qu’un salon traditionnel. Elle s’annonce comme un rendez-vous incontournable, combinant business, échanges et moments festifs dans un format inédit. Un événement qui marque une nouvelle ère pour la communauté IT et ses acteurs.

A la Une des Ressources IT

Inscrivez-vous !

Actualités, Dossiers et Ressources IT Professionnelles - jeudi 20 février 2025

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

Téléchargez cette ressource

Prédictions 2025 des menaces persistantes avancées

Les articles les plus consultés

Les plus consultés sur iTPro.fr

Sur le même sujet

A lire aussi sur le site

En route vers l’inconnu : comment préparer les équipes à l’ère de l’IA

La Revue du Décideur IT

IT Partners 2025 : un événement d’exception pour le Channel digital

A la Une des Ressources IT

Prédictions 2025 des menaces persista...

Les 10 tendances clés de l’Expé...

SMART DSI – N°36

Sécuriser votre système d’impression

Guide inmac wstore pour l’équipement ...