Comment rechercher et remplacer le sujet d'un rendez-vous dans le calendrier Outlook ?

Rechercher et remplacer le sujet d'un rendez-vous dans le calendrier Outlook est utile lorsque vous constatez que certains sujets doivent être remplacés par les mêmes textes en masse. Ou encore, pour remplacer le mot Copie dans le champ de l'objet après une importation de données dans Outlook. Cet article vous fournit un code VBA pour rechercher et remplacer plusieurs sujets de rendez-vous. Veuillez parcourir pour plus de détails.

Rechercher et remplacer le sujet d'un rendez-vous avec du code VBA

Rechercher et remplacer le sujet d'un rendez-vous avec du code VBA

Dans cette section, vous pouvez rechercher et remplacer le sujet d'un rendez-vous avec du code VBA comme suit.

1. Tout d'abord, vous devez définir les paramètres des macros sur faible dans votre Outlook.

1) Dans Outlook 2010 et 2013, cliquez sur "Fichier" > "Options". Dans la boîte de dialogue "Options Outlook", cliquez sur "Centre de confiance" dans la barre de gauche, puis sur le bouton "Paramètres du Centre de confiance".

Dans la boîte de dialogue "Centre de confiance", cliquez sur "Paramètres des macros" dans la barre de gauche, puis sélectionnez l'option "Activer toutes les macros" dans la section "Paramètres des macros". Cliquez ensuite sur le bouton "OK". Voir capture d'écran :

2) Dans Outlook 2007, veuillez cliquer sur "Outils" > "Centre de confiance". Dans la boîte de dialogue "Centre de confiance", cliquez sur "Paramètres des macros" dans la barre de gauche, puis sélectionnez l'option "Aucun contrôle de sécurité pour les macros" et cliquez sur le bouton "OK".

2. Appuyez sur les touches "Alt" + "F11" pour ouvrir la fenêtre "Microsoft Visual Basic for Applications".

3. Dans la fenêtre "Microsoft Visual Basic for Applications", double-cliquez pour développer "Projet1" > "Objets Microsoft Outlook" > "ThisOutlookSession" afin d'ouvrir l'éditeur VBA. Voir capture d'écran :

4. Copiez et collez le code VBA suivant dans l'éditeur VBA. Ensuite, appuyez sur la touche "F5" pour exécuter le code.

VBA : rechercher et remplacer le sujet d'un rendez-vous

Sub FindReplaceAppointment()
    Dim oApp As Outlook.Application
    Dim oCalFolder As Outlook.MAPIFolder
    Dim oAppt As Outlook.AppointmentItem
    Dim sOldText As String
    Dim sNewText As String
    Dim iCalChangedCount As Integer
    Set oApp = Outlook.Application
    MsgBox ("This script will perform a find/replace in the subject line of all appointments in a specified calendar.")
    sOldText = InputBox("What is the text string that you would like to replace?")
    sNewText = InputBox("With what would you like to replace it?")
    ' Check to be sure a Calendar folder was selected
    Do
    If Not (oCalFolder Is Nothing) Then
        If (oCalFolder.DefaultItemType = olAppointmentItem) Then Exit Do
    End If
    MsgBox ("Please select a calendar folder from the following list.")
    Set oCalFolder = Application.Session.PickFolder
    On Error GoTo ErrHandler:
    Loop Until oCalFolder.DefaultItemType = olAppointmentItem
    ' Loop through appointments in calendar, change text where necessary, keep count
    iCalChangedCount = 0
    For Each oAppt In oCalFolder.Items
        If InStr(oAppt.Subject, sOldText) <> 0 Then
            Debug.Print "Changed: " & oAppt.Subject & " - " & oAppt.Start
            oAppt.Subject = Replace(oAppt.Subject, sOldText, sNewText)
            oAppt.Save
            iCalChangedCount = iCalChangedCount + 1
        End If
    Next
    ' Display results and clear table
    MsgBox (iCalChangedCount & " appointments had text in their subjects changed from '" & sOldText & "' to '" & sNewText & "'.")
    Set oAppt = Nothing
    Set oCalFolder = Nothing
Exit Sub
ErrHandler:
    MsgBox ("Macro terminated.")
End Sub

5. Après avoir exécuté le code, une boîte de dialogue "Microsoft Outlook" s'affiche. Cliquez sur le bouton "OK".

6. Dans la deuxième boîte de dialogue "Microsoft Outlook", saisissez le texte que vous souhaitez remplacer, puis cliquez sur le bouton "OK".

7. Dans la troisième boîte de dialogue "Microsoft Outlook", entrez le texte que vous souhaitez utiliser comme remplacement, puis cliquez sur "OK".

Remarque : Si vous souhaitez simplement supprimer tous les mots “Copie” du sujet dans le calendrier spécifié, veuillez laisser cette case vide.

8. Cliquez sur le bouton "OK" dans la boîte de dialogue ci-dessous.

9. Dans la boîte de dialogue "Sélectionner un dossier", sélectionnez votre calendrier sous le compte de messagerie spécifié, puis cliquez sur le bouton "OK". Voir capture d'écran :

10. Une boîte de dialogue s'affichera alors pour vous informer que le remplacement a réussi. Veuillez cliquer sur le bouton "OK".

11. Et ensuite, tout le texte dans vos sujets du calendrier sélectionné aura été remplacé par le nouveau contenu.

---

Meilleurs outils de productivité pour Office

Dernière nouvelle : Kutools pour Outlook lance sa version gratuite !

Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !

🤖 Kutools IA : Exploite une technologie avancée d’IA pour gérer les e-mails en toute simplicité, notamment pour répondre, résumer, optimiser, étendre, traduire et rédiger des e-mails.

📧 Automatisation des E-mails : Réponse automatique (disponible pour POP et IMAP) / Programmer l’envoi d’un e-mail / CC/BCC automatique par règle lors de l’envoi / Transfert automatique (règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les e-mails multi-destinataires en messages individuels ...

📨 Gestion des E-mails : Rappeler lemail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les doublons / Recherche Avancée / Organiser les dossiers ...

📁 Pièces jointes Pro : Enregistrement en lot / Détachement en lot / Compression en lot / Enregistrer automatiquement / Détachement automatique / Compression automatique ...

🌟 Interface magique : 😊Plus d’emojis élégants et amusants / Vous rappelle lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer ...

👍 Fonctions en un clic : Répondre à tous avec pièces jointes / E-mails anti-phishing / 🕘Afficher le fuseau horaire de l’expéditeur ...

👩🏼‍🤝‍👩🏻 Contacts & Calendrier : Ajouter en lot des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire ...

Utilisez Kutools dans votre langue préférée – prend en charge l’Anglais, l’Espagnol, l’Allemand, le Français, le Chinois et plus de40 autres !

Débloquez instantanément Kutools pour Outlook en un seul clic. N’attendez pas, téléchargez dès maintenant pour gagner en efficacité !

Tableau unidimensionnel des fonctionnalités de Kutools pour Outlook Télécharger maintenant Aller à Acheter

🚀 Téléchargement en un clic — Obtenez tous les compléments Office

Recommandé vivement : Kutools pour Office (5-en-1)

Un clic pour télécharger cinq installateurs en une seule fois — Kutools pour Excel, Outlook, Word, PowerPoint et Office Tab Pro. Cliquez pour télécharger dès maintenant !

• ✅ Praticité en un clic : téléchargez les cinq packages d’installation en une seule action.
• 🚀 Prêt pour toutes les tâches Office : installez les compléments dont vous avez besoin, quand vous en avez besoin.
• 🧰 Inclus : Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools pour PowerPoint

À propos de la suite ⬇ Télécharger la suite 💳 Acheter la suite