아웃룩에서 일시 중단된 알림을 어떻게 찾나요?

이 방법에서는 오늘로 일시 중단된 모든 알림을 찾기 위한 VBA를 소개합니다. 아래 단계를 따르세요:

1. 메일 보기로 전환한 후 Alt + F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고, 새 모듈 창에 아래 VBA 코드를 붙여넣습니다.

VBA: 아웃룩에서 일시 중단된 알림 찾기

Sub SnoozedReminders()

  Dim xReminder As  Reminder

  Dim xReminders  As Outlook.Reminders

  Dim xRemItems As  String

  Dim k As Long

  k = 0

  Set xReminders =  Outlook.Reminders

  For Each xReminder  In xReminders

  If  ReminderExpired(xReminder) = True Then

  k = k +  1

  xRemItems = xRemItems & k & ": " &  xReminder.Caption & vbCr & "      Snoozed to " & xReminder.NextReminderDate & vbCr & vbCr

  End If

  Next xReminder

  CreateRemItemsAsEmail "Snoozed RemItems",  xRemItems

  End Sub

Function ReminderExpired(Reminder As Outlook.Reminder)  As Boolean

  If  (Reminder.OriginalReminderDate <> Reminder.NextReminderDate) Then

  ReminderExpired = (Reminder.OriginalReminderDate <>  Reminder.NextReminderDate)

  End If

  End Function

Public Sub CreateRemItemsAsEmail(Theme As String,  RemItems As String)

  Dim xSession As Outlook.NameSpace

  Dim xMailItem As MailItem

  Dim xInboxFd As Outlook.Folder

  On Error Resume Next

  Set xSession = Application.Session

  Set xInboxFd =  xSession.GetDefaultFolder(olFolderInbox)

  Set xMailItem =  xInboxFd.Items.Add("IPM.Mail")

  With xMailItem

  .Subject =  Theme

  .body =  RemItems

  .Save

  .Display

  End With

  Set xSession = Nothing

  Set xInboxFd = Nothing

  Set xmail = Nothing

  End Sub

3. F5 키를 누르거나 실행 버튼을 클릭하여 이 VBA를 실행합니다.

이제 오늘로 일시 중단된 모든 알림이 새 이메일의 본문으로 붙여넣기 되어 있는 것을 확인할 수 있습니다. 스크린샷 참조:

아웃룩에서 미래의 알림을 어떻게 볼 수 있나요?

아웃룩의 특정 캘린더에서 알림 목록을 인쇄하려면 어떻게 해야 하나요?

아웃룩에서 마감 기한별로 알림을 정렬하려면 어떻게 해야 하나요?