Como descartar automaticamente os lembretes de todos os itens de calendário atrasados ​​quando Starting o Outlook

Quando um lembrete aparecer, se você não descartá-lo, da próxima vez que vocêtart Outlook, ele irá alertá-lo novamente. No entanto, se o lembrete pertencer a um item de calendário atrasado, você pode pensar que não é realmente necessário. Então você deseja que o Outlook descarte automaticamente esses lembretes em seus startup. Agora, este artigo vai te ensinar a perceber isso.

Na janela “Lembretes” existe a opção “Ignorar”, que não só remove o lembrete atual do item associado como também fecha a janela “Lembretes”. No entanto, muitos usuários estão acostumados a fechar a janela clicando no ícone de “cruz” no canto superior direito. É realmente conveniente, mas não remove o lembrete. Na próxima vez que o Outlook starts, o lembrete também aparecerá. E se o lembrete pertencer a um item de calendário atrasado, certamente será inútil. Portanto, muitos usuários desejam que o Outlook descarte automaticamente os lembretes de itens de calendário atrasados ​​quandotarts acima. A seguir, concretizaremos essa ideia.

Ignorar automaticamente lembretes de itens de calendário atrasados ​​quando Starting o Outlook

1. No início, consulte “Como executar o código VBA no seu Outlook”post para iniciar o editor VBA do Outlook.
2. Em seguida, na janela do editor, acesse o projeto “ThisOutlookSession”.
3. Em seguida, copie o seguinte código VBA para este projeto.

'Macro de execução automática no Outlook Startup Subaplicativo Privado_Startup() Chamar DismissReminders_AllOverdueCalendarItems End Sub DismissReminders_AllOverdueCalendarItems() Dim objReminders As Outlook.Reminders Dim objReminder As Outlook.Reminder Dim objCalendarItem As Outlook.AppointmentItem Dim dEnd As Date 'Obter todos os lembretes em seu Outlook Set objReminders = Outlook.Application.Reminders For Cada objReminder In objReminders 'Se o lembrete pertencer a um item de calendário If TypeName(objReminder.Item) = "AppointmentItem" Then Set objCalendarItem = objReminder.Item dEnd = objCalendarItem.End 'Se o item de calendário estiver vencido If dEnd < Now Then 'Dispensar o lembrete objReminder.Dismiss objCalendarItem.Save End If End If Next End Sub

4. Desde então, toda vez que vocêtarEm seu Outlook, ele descobrirá e descartará automaticamente os lembretes de todos os itens de calendário atrasados.

Tome medidas diante de problemas do Outlook

Muitos usuários já experimentaram a corrupção do Outlook. Ainda, para most deles, ainda é um pouco difícil descobrir as causas reais. Por desconhecimento das causas, também lhes é difícil tomar soluções imediatas, adequadas e eficazes. Em geral, ao enfrentar um problema, os usuários primeirotart o programa em modo de segurança. Se o problema persistir, é hora de iniciar a ferramenta de reparo interno – Scanpst. Mas, às vezes, o problema pode estar muito além do que o Scanpst é capaz de lidar. Nessa situação, o último recurso seria um utilitário de correção externo mais potente, como DataNumen Outlook Repair, ou um especialista correção PST serviço.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo sql corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com