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

 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

Nota: No código acima: xNewSubject = Replace (.Subject, "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.

doc substituir assuntos 1

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:

doc substituir assuntos 2


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:

doc substituir assuntos 3

4. Clique OK, e outra caixa de prompt for exibida, insira o novo texto que deseja substituir, consulte a captura de tela:

doc substituir assuntos 4

5. Então clique OK, e uma caixa de diálogo é exibida para informar quantos assuntos foram alterados, consulte a captura de tela:

doc substituir assuntos 5

6. Clique OK, e os textos antigos nos assuntos da tarefa foram substituídos pelos novos, consulte a imagem:

doc substituir assuntos 6


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (2)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Existe uma maneira de alterar a linha de assunto dos e-mails em uma pasta (nível da janela) via vba?
Este comentário foi feito pelo moderador no site
Olá,
além de 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
E-mails também marcam, como München im Betreff und ändere München em "M".
Alguém pode me ajudar?
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos