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

Substituir o assunto de compromissos no calendário do Outlook é especialmente útil quando identifica que diversos assuntos precisam de ser atualizados em massa para o mesmo texto — por exemplo, ao substituir a palavra «Cópia» no campo do assunto após importar dados para o Outlook. Este artigo disponibiliza um código VBA que lhe permite pesquisar e substituir múltiplos assuntos de compromissos. Saiba mais detalhes abaixo.

Pesquisar e substituir o assunto de compromissos com código VBA

---

Pesquisar e substituir o assunto de compromissos com código VBA

Nesta secção, pode pesquisar e substituir o assunto dos compromissos utilizando o seguinte código VBA.

Localizar e Substituir. Em primeiro lugar, deve definir as definições de macros do seu Outlook como Baixas.

1) No Outlook 2010 e 2013, clique em «Ficheiro» > «Opções». Na caixa de diálogo «Opções do Outlook», selecione «Centro de Confiança» na barra lateral esquerda e, de seguida, clique no botão «Definições do Centro de Confiança».

Na caixa de diálogo «Centro de Confiança», clique em «Definições de Macros» na barra lateral esquerda, selecione a opção «Ativar todas as macros» na secção «Definições de Macros» e, em seguida, clique no botão «OK». Veja a imagem:

2) No Outlook 2007, clique em «Ferramentas» > «Centro de Confiança». Na caixa de diálogo «Centro de Confiança», selecione «Definições de Macros» na barra lateral esquerda, escolha a opção «Sem verificação de segurança para macros» e clique em «OK».

2. Prima as teclas «Alt» + «F11» para abrir a janela do Microsoft Visual Basic para Aplicações.

3. Na janela «Microsoft Visual Basic para Aplicações», clique duas vezes em «Projeto1» > «Objetos do Microsoft Outlook» > «ThisOutlookSession» para expandir e abrir o editor VBA. Veja a imagem:

4. Copie e cole o seguinte código VBA no editor do VBA e, em seguida, prima a tecla «F5» para executá-lo.

VBA: Localizar e Substituir assunto de compromisso

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, surge uma caixa de diálogo do «Microsoft Outlook». Clique em «OK».

6. Na segunda caixa de diálogo «Microsoft Outlook», introduza o texto que deseja substituir e clique em «OK».

7. Na terceira caixa de diálogo do «Microsoft Outlook», introduza o texto que pretende usar como substituto e clique em «OK».

Nota: Se pretender apenas remover todas as ocorrências da palavra «Cópia» do assunto no calendário especificado, deixe esta caixa em branco.

8. Clique no botão «OK» na caixa de diálogo apresentada abaixo.

9. Na caixa de diálogo «Selecionar Pasta», selecione o seu calendário na conta de e-mail indicada e clique em «OK». Veja a imagem:

10. Em seguida, surge uma caixa de diálogo a confirmar que a substituição foi bem-sucedida. Clique no botão «OK».

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