Как настроить напоминания Outlook так, чтобы они всегда всплывали поверх всех открытых окон при работе за компьютером?

Когда вы работаете в других приложениях или на веб-сайтах и свернули окно Outlook, некоторые напоминания могут остаться незамеченными. Как сделать так, чтобы напоминания Outlook всегда отображались поверх всех открытых окон, позволяя вам своевременно отклонять их? В этой статье я приведу код VBA, который решает эту задачу.

Сделать так, чтобы напоминания Outlook всплывали поверх всех окон экрана

---

Сделать так, чтобы напоминания Outlook всплывали поверх всех окон экрана

1. Нажмите клавиши «Alt» + «F11», чтобы открыть окно Microsoft Visual Basic for Applications.

2. В области «Project1» дважды щелкните элемент «ThisOutlookSession» и вставьте приведённый ниже код в открывшийся сценарий.

VBA: напоминания всплывают поверх всех окон

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. Сохраните изменения и закройте окно «Microsoft Visual Basic for Applications».

Теперь напоминания будут появляться поверх всех окон, даже если Outlook свёрнут, — вы не пропустите их, работая в других приложениях.