Come trovare e sostituire il testo dell'oggetto all'interno di messaggi o attività in Outlook?
In Outlook, se è necessario sostituire più oggetti di messaggi o oggetti di attività con un testo specificato, ovviamente si possono modificare uno per uno, ma esiste un modo rapido per completare questa operazione in una volta sola in Outlook?
Trova e sostituisci il testo dell'oggetto in più messaggi utilizzando il codice VBA
Trova e sostituisci il testo dell'oggetto in più attività utilizzando il codice VBA
Trova e sostituisci il testo dell'oggetto in più messaggi utilizzando il codice VBA
Trova un testo specifico e sostituiscilo con un altro in più oggetti di messaggi; il seguente codice VBA può aiutarti, segui i passaggi successivi:
1. Seleziona le email in cui desideri trovare e sostituire il testo dell'oggetto, quindi tieni premuti i tasti "ALT + F11" per aprire la finestra "Microsoft Visual Basic for Applications".
2. Successivamente, clicca su "Inserisci" > "Modulo", copia e incolla il codice sottostante nel modulo vuoto aperto, vedi screenshot:
Codice VBA: Trova e sostituisci il testo dell'oggetto in più messaggi:
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: Nel codice sopra: xNewSubject = Replace(.Subject, "kte", "Kutools for Excel"), "kte" è il vecchio testo che vuoi trovare, e "Kutools for Excel" è il nuovo testo con cui vuoi sostituirlo. Cambiali secondo necessità.
3. Quindi premi il tasto "F5" per eseguire questo codice, e il testo specifico negli oggetti dei messaggi sarà sostituito con il nuovo testo come richiesto, vedi screenshot:
Trova e sostituisci il testo dell'oggetto in più attività utilizzando il codice VBA
Se hai bisogno di trovare e sostituire il testo dell'oggetto nelle attività, anche il seguente codice VBA può esserti utile.
1. Tieni premuti i tasti "ALT + F11" per aprire la finestra "Microsoft Visual Basic for Applications".
2. Successivamente, clicca su "Inserisci" > "Modulo", copia e incolla il codice sottostante nel modulo vuoto aperto, vedi screenshot:
Codice VBA: Trova e sostituisci il testo dell'oggetto in tutte le attività:
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. Quindi premi il tasto "F5" per eseguire questo codice, e apparirà una finestra di dialogo, inserisci il testo che desideri trovare dagli oggetti delle attività, vedi screenshot:
4. Clicca su "OK", e apparirà un'altra finestra di dialogo, inserisci il nuovo testo con cui vuoi sostituire, vedi screenshot:
5. Quindi clicca su "OK", e verrà visualizzata una finestra di dialogo che ti informa su quanti oggetti sono stati modificati, vedi screenshot:
6. Clicca su "OK", e i vecchi testi negli oggetti delle attività saranno stati sostituiti con i nuovi, vedi screenshot:
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri il nuovo Kutools per Outlook con oltre100 funzionalità incredibili! Clicca per scaricare ora!
📧 Automazione email: Risposta automatica (disponibile per POP e IMAP) / Programmazione invio email / CC/BCC automatico tramite regola durante l’invio dell’email / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddivisione automatica delle email con più destinatari in email individuali ...
📨 Gestione email: Richiama Email / Blocca email di truffa tramite Oggetto e altro / Elimina Email duplicate / Ricerca Avanzata / Organizza cartelle ...
📁 Allegati Pro: Salvataggio in batch / Distacco in batch / Compressione in batch / Salvataggio automatico / Distacca automaticamente / Auto Comprimi ...
🌟 Magia dell’interfaccia: 😊Più emoji belle e simpatiche / Ti avvisa quando arrivano email importanti / Minimizza Outlook invece di chiuderlo ...
👍 Meraviglie con un clic: Rispondi a Tutti con Allegati / Email Anti-phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti e Calendario: Aggiunta massiva dei contatti dalle email selezionate / Dividi un Gruppo di Contatti in gruppi individuali / Rimuovi promemoria di compleanno ...
Usa Kutools nella lingua che preferisci: supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre lingue!
