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

Rechercher et remplacer un objet de rendez-vous dans le calendrier Outlook est utile lorsque vous trouvez que certains sujets doivent être remplacés en masse par les mêmes textes. 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. Veuillez parcourir pour plus de détails.

Rechercher et remplacer le sujet du rendez-vous par le code VBA

Rechercher et remplacer le sujet du rendez-vous par le code VBA

Dans cette section, vous pouvez rechercher et remplacer l'objet du rendez-vous par le code VBA comme suit.

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

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

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

2). Dans Outlook 2007, cliquez sur Outils > Trust Center. Dans le Trust Center boîte de dialogue, cliquez sur Paramètres de macro dans la barre de gauche, puis sélectionnez Pas de contrôle 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 > Cette session Outlook 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 le F5 clé pour exécuter le code.

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

6. Dans le second 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, puis cliquez sur OK.

Notes: 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. Une boîte de dialogue apparaîtra alors pour vous informer que le remplacement a réussi. Veuillez cliquer sur le OK .

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

---

Meilleurs outils de productivité bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...

📧 Email Automation: Absent du bureau (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel facile des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes Pro: Sauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Boostez votre productivité Outlook avec des vues à onglets  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

En savoir plus       Téléchargement gratuit      Achat