Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

Trouver et remplacer un sujet de rendez-vous dans le calendrier Outlook est utile lorsque vous trouvez que certains sujets doivent être remplacés par les mêmes textes en masse. Ou remplacez le mot Copier dans le champ Objet après l'importation des données dans Outlook. Cet article vous fournit le code VBA pour rechercher et remplacer plusieurs sujets de rendez-vous. S'il vous plaît parcourir pour plus de détails.

Rechercher et remplacer le sujet de rendez-vous avec le code VBA

Onglet Office - Activer l'édition et la navigation par onglets dans Office, et simplifier considérablement le travail ...
Kutools for Outlook - apporte de puissantes fonctionnalités avancées 100 à Microsoft Outlook
  • CC automatique / BCC par les règles lors de l'envoi d'email; Transfert automatique Emails multiples par règles; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse de messagerie est dans la liste BCC; Rappeler lorsque des pièces jointes sont manquantes, et plus encore, rappelle les fonctionnalités ...
  • Répondre (tous) avec toutes les pièces jointes dans la conversation par courrier; Répondez plusieurs courriels à la fois; Ajout automatique de message d'accueil quand répondez; Ajout automatique Date et heure dans le sujet ...
  • Outils de fixation: Détacher automatiquement, tout compresser, tout renommer, tout enregistrer automatiquement ... Rapport rapide, Compter les messages sélectionnés, Supprimer les e-mails et les contacts en double ...
  • Plus que les fonctionnalités avancées de 100 résoudre la plupart de vos problèmes dans Outlook 2010-2019 et 365. Fonctionnalités complètes Essai gratuit du jour 60.

flèche bleue droite bulleRechercher et remplacer le sujet de rendez-vous avec le code VBA

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

1. Tout d'abord, vous devez définir des paramètres de macro à faible dans votre Outlook.

1) Dans Outlook 2010 et 2013, cliquez sur Fichier > Options. Et dans le Options d'Outlook boîte de dialogue, cliquez sur Trust Center dans la barre de gauche, puis cliquez sur Paramètres du Centre .

Dans le Trust Center boîte de dialogue, cliquez sur Paramètres de la macro dans la barre de gauche, sélectionnez Activer toutes les macros option dans la Paramètres de la macro section. Et cliquez sur le OK bouton. Voir la capture d'écran:

2). Dans Outlook 2007, veuillez cliquer sur Outils > Trust Center. Dans le Trust Center boîte de dialogue, cliquez sur Paramètres de la macro dans la barre de gauche, sélectionnez Pas de vérification de sécurité pour les macros option et cliquez sur le OK .

2. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

3. dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez pour agrandir project1 > Objets Microsoft Outlook > ThisOutlookSession pour ouvrir l'éditeur VBA. Voir la capture d'écran:

4. Copiez et collez le code VBA suivant dans l'éditeur VBA. Et puis appuyez sur F5 clé pour exécuter le code.

VBA: trouver et remplacer un sujet de 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, un Microsoft Outlook boîte de dialogue apparaît. Clique le OK .

6. Dans la seconde Microsoft Outlook boîte de dialogue, entrez le texte que vous souhaitez remplacer, puis cliquez sur le OK .

7. Dans le troisième Microsoft Outlook boîte de dialogue, entrez le texte que vous souhaitez remplacer et cliquez sur OK.

Note: Si vous souhaitez simplement supprimer tous les mots "Copier" du sujet dans le calendrier spécifié, veuillez laisser cette case vide.

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

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

10. Ensuite, une boîte de dialogue apparaîtra pour vous informer que le remplacement est réussi. S'il vous plaît cliquer sur le OK .

11. Et puis tous les textes dans vos sujets du calendrier sélectionné ont été remplacés par le nouveau contenu.


Kutools for Outlook - Apporte les fonctionnalités avancées de 100 à Outlook et simplifie grandement le travail!

  • CC automatique / BCC par les règles lors de l'envoi d'email; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse mail est dans la liste BCC; Rappeler lorsque des pièces jointes sont manquantes, et plus encore, rappelle les fonctionnalités ...
  • Répondre (tous) avec toutes les pièces jointes dans la conversation par courrier; Répondre à beaucoup d'emails en secondes; Ajout automatique de message d'accueil quand répondez; Ajouter la date au sujet ...
  • Outils de pièce jointe: Gérer toutes les pièces jointes dans tous les courriers, Auto Detach, Compresser tout, Renommer tout, Sauvegarder tout ... Rapport rapide, Compter les mails sélectionnés...
  • Puissants courriers indésirables par la coutume; Supprimer les e-mails et les contacts en double... Vous permet de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools perspectives onglet kutools 1180x121
tir kutools perspectives kutools plus onglet 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dominic · 2 years ago
    I always get a Syntax Error right at the start on the 2nd line at Dim oApp As Outlook.Application. No idea what's wrong :-(

    I try to run the VB Script in Outlook 2016 (O365 Version) on Windows 10.
  • To post as a guest, your comment is unpublished.
    Aaron · 2 years ago
    It seems I'm unable to do this for non-local, or shared calendars. Does anyone know how to do it for shared calendars? I'm set as "owner" for permission level of the shared calendar, but it won't show up in my list of folders when I run the script, only my locally created calendars show up.
  • To post as a guest, your comment is unpublished.
    LordJair · 3 years ago
    Worked fantastically! Thank you so much!!!
    • To post as a guest, your comment is unpublished.
      Dale R · 2 years ago
      This should do it for you. Add these 3 lines immediately after line 8 (Set oApp = Outlook.Application).

      Dim nmSpace As Outlook.NameSpace
      Set nmSpace = oApp.GetNamespace("MAPI")
      Set oCalFolder = nmSpace.GetDefaultFolder(olFolderCalendar)
  • To post as a guest, your comment is unpublished.
    Armin · 3 years ago
    Thank you!
    How can we modify it to always use the same calendar, and not show the first pop-up?

    thank you
  • To post as a guest, your comment is unpublished.
    Amos · 3 years ago
    Worked just fine
    really good
    It took me some time to understand that this is case sensitive, but that is very good.

    Thank you