Forcer les rappels des rendez-vous

    Pour modifier les rappels pour les rendez-vous existants dans Microsoft Outlook à partir d’un poste utilisateur, il n’existe pas de fonctionnalité native dans Outlook pour appliquer des changements en masse directement.


    Cependant, cela peut être réalisé à l'aide de Visual Basic for Applications (VBA), qui permet de créer des scripts capables de manipuler les éléments d’Outlook, y compris les rendez-vous du calendrier.

    Voici un exemple de script VBA que vous pouvez utiliser pour changer les rappels pour tous les rendez-vous existants dans Outlook. Ce script parcourt tous les éléments du calendrier et modifie le rappel pour chaque rendez-vous à 15 minutes.

    Étapes pour utiliser le script VBA dans Outlook :

    1. Ouvrir Outlook.
    2. Appuyer sur ALT + F11 pour ouvrir l'éditeur VBA.
    3. Dans l’éditeur VBA, aller à Insert > Module pour créer un nouveau module.
    4. Copier et coller le script suivant dans le module :
    Code à copier/coller :

    Sub ChangeRemindersOnExistingAppointments()
       Dim objOL As Outlook.Application
       Dim objNS As Outlook.NameSpace
       Dim objFolder As Outlook.MAPIFolder
       Dim objItem As Object
       Dim calendarItem As Outlook.AppointmentItem
       Dim itemsUpdated As Integer: itemsUpdated = 0
     
       ' Créer une nouvelle instance de Outlook
       Set objOL = CreateObject("Outlook.Application")
       Set objNS = objOL.GetNamespace("MAPI")
     
       ' Accéder au dossier Calendrier par défaut
       Set objFolder = objNS.GetDefaultFolder(olFolderCalendar)
     
       ' Parcourir tous les éléments du calendrier
       For Each objItem In objFolder.Items
           If objItem.Class = olAppointment Then
               Set calendarItem = objItem
             
               ' Changer le rappel à 15 minutes
               calendarItem.ReminderSet = True
               calendarItem.ReminderMinutesBeforeStart = 15
               calendarItem.Save ' Sauvegarder les modifications
             
               itemsUpdated = itemsUpdated + 1
           End If
       Next
     
       ' Afficher un message de confirmation
       MsgBox itemsUpdated & " appointments were updated.", vbInformation
    End Sub

    Pour finir :
    1. Exécuter le script en appuyant sur F5 ou en choisissant Run > Run Sub/UserForm après avoir sélectionné la procédure ChangeRemindersOnExistingAppointments.

    Ce script parcourt votre calendrier et modifie le rappel de chaque rendez-vous pour le mettre à 15 minutes. Notez que ce script peut prendre du temps si vous avez beaucoup de rendez-vous dans votre calendrier.

    Points à considérer :

    • Sauvegarde : Assurez-vous de faire une sauvegarde de vos données avant d’exécuter des scripts qui modifient en masse vos données Outlook.
    • Performances : Si vous avez un grand nombre d'événements, le script peut prendre un certain temps pour exécuter. Il est préférable de l'exécuter lorsque vous n'avez pas besoin d'accéder immédiatement à Outlook.
    • Autorisations : Vous devez avoir les autorisations nécessaires pour exécuter des scripts VBA dans Outlook. Certaines organisations désactivent cette capacité pour des raisons de sécurité.
    Dans ce document vous trouverez un modèle à exécuter sur le poste utilisateur.
    Fichiers joints
    Rappels.bas
    404kb
    Étiquettes
    Rappels des réunions Forcer les rappels des réunions Outlook
    Publié