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 une version gratuite !
Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !
📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...
📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...
🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...
Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !
