Como pesquisar e substituir o assunto de compromissos no calendário do Outlook?
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".
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:
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".
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:
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".
6. Na segunda caixa de diálogo "Microsoft Outlook", insira o texto que deseja substituir e clique no botão "OK".
7. Na terceira caixa de diálogo "Microsoft Outlook", insira o texto que deseja usar como substituição e clique em "OK".
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.
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:
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".
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 Urgente: 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 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 vários 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 divertidos / Aviso de chegada de emails importantes / Minimizar Outlook em vez de fechar...
👍 Praticidade com um clique: Responder a Todos com Anexos / Anti-Phishing Emails / 🕘Exibir 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...
Use o Kutools no idioma que preferir – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
