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 le texte du sujet dans les messages ou les tâches dans Outlook?

Dans Outlook, s'il existe plusieurs sujets de message ou si les sujets de tâche doivent être remplacés par votre texte spécifié, vous pouvez les modifier un par un, mais avez-vous un moyen rapide de terminer ce travail immédiatement dans Outlook?

Rechercher et remplacer le texte du sujet dans plusieurs messages à l'aide du code VBA

Rechercher et remplacer le texte du sujet dans plusieurs tâches à l'aide du code VBA


Rechercher et remplacer le texte du sujet dans plusieurs messages à l'aide du code VBA

Trouver le texte spécifique et le remplacer par un autre dans plusieurs sujets de message, le code VBA ci-dessous peut vous faire une faveur, s'il vous plaît faire avec les étapes suivantes:

1. Sélectionnez les e-mails que vous souhaitez rechercher et remplacez le texte du sujet, puis maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Puis clique insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert, voir capture d'écran:

Code VBA: Trouvez et remplacez le texte du sujet dans plusieurs messages:

Option Explicit
Sub FindAndReplaceInSubject()
Dim xItem As Object
Dim xNewSubject As String
Dim xMailItem As MailItem
Dim xExplorer As Explorer
Dim i As Integer
On Error Resume Next
Set xExplorer = Outlook.Application.ActiveExplorer
For i = xExplorer.Selection.Count To 1 Step -1
    Set xItem = xExplorer.Selection.Item(i)
    If xItem.Class = olMail Then
        Set xMailItem = xItem
        With xMailItem
            xNewSubject = Replace(.Subject, "kte", "Kutools for Excel")
            .Subject = xNewSubject
            .Save
        End With
    End If
Next
End Sub

Note: Dans le code ci-dessus: xNewSubject = Remplacer (.Subject, "kte", "Kutools for Excel")»AEC"Est l'ancien texte que vous voulez trouver, et"Kutools for Excel"Est le nouveau texte que vous voulez remplacer. S'il vous plaît, changez-les selon vos besoins.

doc remplacer les sujets 1

3. Puis appuyez F5 clé pour exécuter ce code, et le texte spécifique dans les sujets de message ont été remplacés par le nouveau texte que vous avez besoin, voir capture d'écran:

doc remplacer les sujets 2


Rechercher et remplacer le texte du sujet dans plusieurs tâches à l'aide du code VBA

Si vous avez besoin de trouver et de remplacer le texte du sujet dans les tâches, le code VBA suivant peut également vous aider.

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Puis clique insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert, voir capture d'écran:

Code VBA: Trouvez et remplacez le texte du sujet dans toutes les tâches:

Option Explicit
Sub FindReplaceTextsInAllTaskSubjects()
Dim xPane As NavigationPane
Dim xModule As TasksModule
Dim xGroup As NavigationGroup
Dim xNavFolder As NavigationFolder
Dim xTaskItem As Outlook.TaskItem
Dim i, k As Integer
Dim xFindStr, xReplaceStr As String
Dim xTotalCount As Long
On Error Resume Next
xFindStr = InputBox("Type the words to find:", "Kutools for Outlook", xFindStr)
If Len(Trim(xFindStr)) = 0 Then Exit Sub
xReplaceStr = InputBox("Type the words to replace:", "Kutools for Outlook", xReplaceStr)
If Len(Trim(xReplaceStr)) = 0 Then Exit Sub
xTotalCount = 0
Set xPane = Outlook.Application.ActiveExplorer.NavigationPane
Set xModule = xPane.Modules.GetNavigationModule(olModuleTasks)
Set xGroup = xModule.NavigationGroups.Item(1)
For i = xGroup.NavigationFolders.Count To 1 Step -1
    Set xNavFolder = xGroup.NavigationFolders.Item(i)
    For k = xNavFolder.Folder.Items.Count To 1 Step -1
        Set xTaskItem = xNavFolder.Folder.Items(k)
        If InStr(xTaskItem.Subject, xFindStr) > 0 Then
            xTaskItem.Subject = Replace(xTaskItem.Subject, xFindStr, xReplaceStr)
            xTaskItem.Save
            xTotalCount = xTotalCount + 1
        End If
    Next
Next
MsgBox xTotalCount & " task subjects have been changed!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub

3. Puis appuyez F5 clé pour exécuter ce code, et une boîte d'invite est sorti, s'il vous plaît tapez le texte que vous voulez trouver à partir des sujets de la tâche, voir capture d'écran:

doc remplacer les sujets 3

4. Cliquez OK, et une autre boîte d'invite s'affiche, entrez le nouveau texte que vous souhaitez remplacer, voir capture d'écran:

doc remplacer les sujets 4

5. Puis clique OKet une boîte de dialogue s'affiche pour vous indiquer combien de sujets ont été modifiés, voir capture d'écran:

doc remplacer les sujets 5

6. Cliquez OKet les anciens textes dans les tâches ont été remplacés par les nouveaux, voir capture d'écran:

doc remplacer les sujets 6


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.

Be the first to comment.