Note: The other languages of the website are Google-translated. Back to English
English English

 Come trovare e sostituire il testo dell'oggetto all'interno di messaggi o attività in Outlook?

In Outlook, se sono presenti più oggetti dei messaggi o gli oggetti delle attività devono essere sostituiti con il testo specificato, ovviamente puoi cambiarli uno per uno, ma hai un modo rapido per completare questo lavoro contemporaneamente in Outlook?

Trova e sostituisci il testo dell'oggetto all'interno di 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 all'interno di più messaggi utilizzando il codice VBA

Trova il testo specifico e sostituiscilo con un altro in più oggetti del messaggio, il codice VBA sottostante può farti un favore, esegui i seguenti passaggi:

1. Seleziona le e-mail che desideri trovare e sostituisci il testo dell'oggetto, quindi tieni premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Quindi, fare clic inserire > Modulo, copia e incolla sotto il codice nel modulo vuoto aperto, vedi screenshot:

Codice VBA: trova e sostituisci il testo dell'oggetto all'interno di 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 = Sostituisci (.Subject, "kte", "Kutools for Excel"), "KTE"È il vecchio testo che desideri trovare e"Kutools for Excel"È il nuovo testo con cui desideri sostituire. Si prega di modificarli secondo le proprie necessità.

doc sostituire i soggetti 1

3. Quindi premere F5 chiave per eseguire questo codice e il testo specifico negli oggetti del messaggio è stato sostituito con il nuovo testo di cui hai bisogno, vedi screenshot:

doc sostituire i soggetti 2


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ò aiutarti.

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Quindi, fare clic inserire > Modulo, copia e incolla sotto il codice 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 premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di messaggio, digitare il testo che si desidera trovare dagli oggetti dell'attività, vedere screenshot:

doc sostituire i soggetti 3

4. Clic OKe viene visualizzata un'altra finestra di messaggio, inserisci il nuovo testo che desideri sostituire, vedi screenshot:

doc sostituire i soggetti 4

5. Quindi fare clic su OKe viene visualizzata una finestra di dialogo per dirti quanti argomenti sono stati modificati, vedi screenshot:

doc sostituire i soggetti 5

6. Clic OK, e i vecchi testi negli oggetti dell'attività sono stati sostituiti con quelli nuovi, vedi screenshot:

doc sostituire i soggetti 6


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (3)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
C'è un modo per modificare la riga dell'oggetto delle e-mail in una cartella (a livello di finestra) tramite vba?
Questo commento è stato fatto dal moderatore sul sito
Hallo,
beide Funktionen sind echt super.
Bin aber auch auf der Suche nach einer Lösung wo ich den Betreff mehrerer Mails ändern kann, genau wie hier bei den Aufgaben.

Ich möchte den Text in den Betreffzeilen kürzen und verwende hierzu zB bei München nur ein M
Mail anche markieren, suche München im Betreff und ändere München in "M".
Qualcuno mi può aiutare?
Questo commento è stato fatto dal moderatore sul sito
Ciao Bordi
Per trovare e sostituire il testo dell'oggetto nelle email, basta applicare il primo codice VBA di questo articolo.
Seleziona prima le e-mail, quindi applica il codice seguente:
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, "Munich", "M")
            .Subject = xNewSubject
            .Save
        End With
    End If
Next
End Sub


Per favore, prova, spero che possa aiutarti!
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite