Como localizar e substituir o texto do assunto em mensagens ou tarefas no Outlook?
No Outlook, se houver vários assuntos de mensagem ou assuntos de tarefa precisam ser substituídos pelo texto especificado, é claro, você pode alterá-los um a um, mas, você tem alguma maneira rápida de terminar este trabalho de uma vez no Outlook?
Encontre e substitua o texto do assunto em várias mensagens usando o código VBA
Encontre e substitua o texto do assunto em várias tarefas usando o código VBA
Encontre e substitua o texto do assunto em várias mensagens usando o código VBA
Encontre o texto específico e substitua por outro em vários assuntos de mensagem, o código VBA abaixo pode fazer um favor a você, siga as seguintes etapas:
1. Selecione os e-mails que deseja encontrar e substitua o texto do assunto e, em seguida, mantenha pressionada a ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Então clique inserção > Módulo, copie e cole o código abaixo no módulo em branco aberto, veja a captura de tela:
Código VBA: encontre 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
Note: No código acima: xNewSubject = Substituir(.Assunto, "kte", "Kutools para Excel")"KTE”É o texto antigo que você deseja encontrar e“Kutools for Excel”É o novo texto que você deseja substituir. Por favor, altere-os de acordo com sua necessidade.
3. Então aperte F5 para executar este código, e o texto específico nos assuntos da mensagem foi substituído pelo novo texto conforme necessário, consulte a captura de tela:
Encontre e substitua o texto do assunto em várias tarefas usando o código VBA
Se você precisar localizar e substituir o texto do assunto nas tarefas, o código VBA a seguir também pode ajudá-lo.
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Então clique inserção > Módulo, copie e cole o código abaixo no módulo em branco aberto, veja a captura de tela:
Código VBA: encontre 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. Então aperte F5 para executar este código e uma caixa de prompt for exibida, digite o texto que deseja encontrar nos assuntos da tarefa, consulte a captura de tela:
4. Clique OK, e outra caixa de prompt for exibida, insira o novo texto que deseja substituir, consulte a captura de tela:
5. Então clique OK, e uma caixa de diálogo é exibida para informar quantos assuntos foram alterados, consulte a captura de tela:
6. Clique OK, e os textos antigos nos assuntos da tarefa foram substituídos pelos novos, consulte a imagem:
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.