Como garantir que os lembretes do Outlook apareçam sempre em primeiro plano enquanto estou a utilizar o computador?

Enquanto trabalha noutras aplicações ou sítios web e minimiza a janela do Outlook, pode perder alguns lembretes. Como garantir, então, que os lembretes do Outlook apareçam sempre em primeiro plano no ecrã durante a utilização do computador, permitindo-lhe dispensar cada um deles imediatamente? Neste artigo, apresento um código VBA que resolve este problema.

Fazer os lembretes do Outlook surgirem em primeiro plano no ecrã

---

Fazer os lembretes do Outlook surgirem em primeiro plano no ecrã

1. Prima as teclas «Alt» + "F11" para abrir a janela do Microsoft Visual Basic for Applications.

2. Faça duplo clique em «ThisOutlookSession» no painel "Project1" e copie e cole o código abaixo no script.

VBA: Lembretes surgem em primeiro plano

Private Sub Application_Reminder(ByVal Item As Object)
'UpdatebyExtendoffice20180418
Dim xAppointment As AppointmentItem
If Item.Class = olAppointment Then
    Set xAppointment = Item
    MsgBox xAppointment.Subject, 4096 + vbInformation + vbOKOnly, "Kutools for Outlook"
End If
End Sub

3. Guarde e feche a janela «Microsoft Visual Basic for Applications».

Agora, mesmo com o Outlook minimizado, os lembretes aparecem em primeiro plano no ecrã enquanto trabalha noutras aplicações.