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

Localizar e substituir o assunto do compromisso no calendário do Outlook é útil quando você descobre que alguns assuntos precisam ser substituídos pelos mesmos textos em massa. Ou substitua a palavra Copiar no campo de assunto após a importação de dados no Outlook. Este artigo fornece o código VBA para pesquisar e substituir vários assuntos de compromisso. Por favor, navegue para mais detalhes.

Pesquise e substitua o assunto do compromisso pelo código VBA

Pesquise e substitua o assunto do compromisso pelo código VBA

Nesta seção, você pode pesquisar e substituir o assunto do compromisso pelo código VBA da seguinte maneira.

1. Em primeiro lugar, você precisa definir as configurações de macro para baixo em seu Outlook.

1) No Outlook 2010 e 2013, clique em Envie o > Opções. E no Opções do Outlook caixa de diálogo, clique em trust Center na barra esquerda e, em seguida, clique no Configurações da Central de confiança botão.

No trust Center caixa de diálogo, clique em Configurações de macro na barra esquerda e selecione Habilitar todas as macros opção no Configurações de macro seção. E clique no OK botão. Veja a imagem:

2). No Outlook 2007, clique em Ferramentas > trust Center. No trust Center caixa de diálogo, clique em Configurações de macro na barra esquerda e selecione Sem verificação de segurança para macros opção e clique no OK botão.

2. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

3. No Microsoft Visual Basic para Aplicações janela, clique duas vezes para expandir o project1 > Objetos do Microsoft Outlook > Esta sessão do Outlook para abrir o editor VBA. Veja a imagem:

4. Copie e cole o seguinte código VBA no editor VBA. E então pressione o F5 chave para executar o código.

VBA: encontre e substitua o assunto do 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. Depois de executar o código, um Microsoft Outlook caixa de diálogo aparece. Clique no OK botão.

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

7. No terceiro Microsoft Outlook caixa de diálogo, digite o texto que deseja substituir e clique em OK.

Note: Se você deseja apenas remover todas as palavras “Copiar” do assunto no calendário especificado, deixe esta caixa em branco.

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

9. No Selecionar pasta caixa de diálogo, selecione sua agenda na conta de e-mail especificada e clique no OK botão. Veja a imagem:

10. Em seguida, uma caixa de diálogo aparecerá para informá-lo de que a substituição foi bem-sucedida. Por favor clique no OK botão.

11. E então todos os textos em seus assuntos do calendário selecionado foram substituídos pelo novo conteúdo.

---

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.

Saiba Mais       Download grátis      Comprar