Como localizar e substituir o texto do assunto em mensagens ou tarefas no Outlook?
No Outlook, se houver vários assuntos de mensagens ou tarefas que precisam ser substituídos por um texto específico, é claro que você pode alterá-los um a um, mas existe alguma maneira rápida de concluir essa tarefa de uma vez no Outlook?
Localize e substitua o texto do assunto em várias mensagens usando código VBA
Localize e substitua o texto do assunto em várias tarefas usando código VBA
Localize e substitua o texto do assunto em várias mensagens usando código VBA
Encontre o texto específico e substitua-o por outro em vários assuntos de mensagens; o código VBA abaixo pode ajudar. Por favor, siga os passos a seguir:
1. Selecione os e-mails nos quais deseja localizar e substituir o texto do assunto e, em seguida, pressione as teclas "ALT + F11" para abrir a janela "Microsoft Visual Basic for Applications".
2. Depois, clique em "Inserir" > "Módulo", copie e cole o código abaixo no módulo em branco aberto; veja a captura de tela:
Código VBA: Localize e substitua o texto do assunto em várias mensagens:
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
Notas: No código acima: xNewSubject = Replace(.Subject, "kte", "Kutools for Excel"), "kte" é o texto antigo que você deseja localizar, e "Kutools for Excel" é o novo texto pelo qual você deseja substituir. Altere-os conforme necessário.
3. Em seguida, pressione a tecla "F5" para executar este código, e o texto específico nos assuntos das mensagens terá sido substituído pelo novo texto conforme sua necessidade; veja a captura de tela:
Localize e substitua o texto do assunto em várias tarefas usando código VBA
Se você precisa localizar e substituir o texto do assunto em tarefas, o seguinte código VBA também pode ajudá-lo.
1. Pressione as teclas "ALT + F11" para abrir a janela "Microsoft Visual Basic for Applications".
2. Depois, clique em "Inserir" > "Módulo", copie e cole o código abaixo no módulo em branco aberto; veja a captura de tela:
Código VBA: Localize e substitua o texto do assunto em todas as tarefas:
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. Em seguida, pressione a tecla "F5" para executar este código, e uma caixa de prompt será exibida; digite o texto que deseja localizar nos assuntos das tarefas; veja a captura de tela:
4. Clique em "OK", e outra caixa de prompt será exibida; insira o novo texto pelo qual deseja substituir; veja a captura de tela:
5. Depois, clique em "OK", e uma caixa de diálogo será exibida informando quantos assuntos foram alterados; veja a captura de tela:
6. Clique em "OK", e os textos antigos nos assuntos das tarefas terão sido substituídos pelos novos; veja a captura de tela:
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 Automação de E-mail: Resposta automática (Disponível para POP e IMAP) / Agendar Enviar Email / CC/BCC automático por Regra ao Enviar Email / Encaminhamento automático (Regra avançada) / Adicionar Saudação automaticamente / Dividir automaticamente Emails com múltiplos destinatários em Email individuais ...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails fraudulentos por Assunto e outros critérios / Excluir Duplicado / Pesquisa Avançada / Organizar Pastas ...
📁 Anexos Pro: Salvar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir ...
🌟 Magia da Interface: 😊Mais emojis bonitos e legais / Notificações de emails importantes / Minimizar Outlook em vez de fechar ...
👍 Recursos de um clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados / Dividir um Grupo de Contatos em grupos individuais / Remover lembrete de aniversário ...
Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
🚀 Download com um clique — Baixe todos os complementos de Office
Recomendado fortemente: Kutools para Office (5 em1)
Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!
- ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
- 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
- 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint