Skip to main content

Como pesquisar e substituir o assunto de compromissos no calendário do Outlook?

Author: Siluvia Last Modified: 2025-06-04

Pesquisar e substituir o assunto de compromissos no calendário do Outlook é útil quando você precisa substituir vários assuntos por um mesmo texto. Ou substituir a palavra 'Cópia' no campo de assunto após a importação de dados no Outlook. Este artigo fornece um código VBA para pesquisar e substituir múltiplos assuntos de compromissos. Por favor, veja mais detalhes abaixo.

Pesquise e substitua o assunto de compromissos com código VBA


Pesquise e substitua o assunto de compromissos com código VBA

Nesta seção, você pode pesquisar e substituir o assunto de compromissos com código VBA da seguinte forma.

1. Primeiro, você precisa definir as configurações de macro para baixo no seu Outlook.

1) No Outlook 2010 e 2013, clique em "Arquivo" > "Opções". E na caixa de diálogo "Opções do Outlook", clique em "Central de Confiabilidade" na barra lateral esquerda, depois clique no botão "Configurações da Central de Confiabilidade".

doc-find-and-replace-subject-1

Na caixa de diálogo "Central de Confiabilidade", clique em "Configurações de Macro" na barra lateral esquerda, então selecione a opção "Ativar todas as macros" na seção "Configurações de Macro". E clique no botão "OK". Veja a captura de tela:

doc-find-and-replace-subject-2

2) No Outlook 2007, por favor, clique em "Ferramentas" > "Central de Confiabilidade". Na caixa de diálogo "Central de Confiabilidade", clique em "Configurações de Macro" na barra lateral esquerda, então selecione a opção "Sem verificação de segurança para macros" e clique no botão "OK".

doc-find-and-replace-subject-3

2. Pressione as teclas "Alt" + "F11" para abrir a janela "Microsoft Visual Basic for Applications".

3. Na janela "Microsoft Visual Basic for Applications", clique duas vezes para expandir o "Projeto1" > "Objetos do Microsoft Outlook" > "EstaSessãoOutlook" para abrir o editor VBA. Veja a captura de tela:

doc-find-and-replace-subject-4

4. Copie e cole o seguinte código VBA no editor VBA. Em seguida, pressione a tecla "F5" para executar o código.

VBA: encontrar e substituir o assunto de compromissos

Sub FindReplaceAppointment()
    Dim oApp As Outlook.Application
    Dim oCalFolder As Outlook.MAPIFolder
    Dim oAppt As Outlook.AppointmentItem
    Dim sOldText As String
    Dim sNewText As String
    Dim iCalChangedCount As Integer
    Set oApp = Outlook.Application
    MsgBox ("This script will perform a find/replace in the subject line of all appointments in a specified calendar.")
    sOldText = InputBox("What is the text string that you would like to replace?")
    sNewText = InputBox("With what would you like to replace it?")
    ' Check to be sure a Calendar folder was selected
    Do
    If Not (oCalFolder Is Nothing) Then
        If (oCalFolder.DefaultItemType = olAppointmentItem) Then Exit Do
    End If
    MsgBox ("Please select a calendar folder from the following list.")
    Set oCalFolder = Application.Session.PickFolder
    On Error GoTo ErrHandler:
    Loop Until oCalFolder.DefaultItemType = olAppointmentItem
    ' Loop through appointments in calendar, change text where necessary, keep count
    iCalChangedCount = 0
    For Each oAppt In oCalFolder.Items
        If InStr(oAppt.Subject, sOldText) <> 0 Then
            Debug.Print "Changed: " & oAppt.Subject & " - " & oAppt.Start
            oAppt.Subject = Replace(oAppt.Subject, sOldText, sNewText)
            oAppt.Save
            iCalChangedCount = iCalChangedCount + 1
        End If
    Next
    ' Display results and clear table
    MsgBox (iCalChangedCount & " appointments had text in their subjects changed from '" & sOldText & "' to '" & sNewText & "'.")
    Set oAppt = Nothing
    Set oCalFolder = Nothing
Exit Sub
ErrHandler:
    MsgBox ("Macro terminated.")
End Sub

5. Após executar o código, uma caixa de diálogo "Microsoft Outlook" aparecerá. Clique no botão "OK".

doc-find-and-replace-subject-5

6. Na segunda caixa de diálogo "Microsoft Outlook", insira o texto que deseja substituir e clique no botão "OK".

doc-find-and-replace-subject-6

7. Na terceira caixa de diálogo "Microsoft Outlook", insira o texto que deseja usar como substituição e clique em "OK".

doc-find-and-replace-subject-7

Observação: Se você quiser apenas remover todas as palavras “Cópia” do assunto no calendário especificado, deixe esta caixa em branco.

8. Clique no botão "OK" na caixa de diálogo abaixo.

doc-find-and-replace-subject-8

9. Na caixa de diálogo "Selecionar Pasta", selecione seu calendário sob a conta de email especificada e clique no botão "OK". Veja a captura de tela:

doc-find-and-replace-subject-9

10. Em seguida, uma caixa de diálogo será exibida informando que a substituição foi bem-sucedida. Por favor, clique no botão "OK".

doc-find-and-replace-subject-10

11. E todos os textos nos assuntos do calendário selecionado foram substituídos pelo novo conteúdo.


Melhores Ferramentas de Produtividade para Office

Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!

Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar emails com facilidade, incluindo responder, resumir, otimizar, expandir, traduzir e redigir emails.

📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / 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 mensagens individuais...

📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...

📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...

🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...

👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...

👩🏼‍🤝‍👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não perca tempo, baixe agora e aumente sua produtividade!

kutools for outlook features1 kutools for outlook features2