コンピューター使用中に 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 を最小化していても、他のアプリケーションを使用中でも、リマインダーが画面の最前面にポップアップ表示されるようになります。