Acho que isso deve responder à pergunta: eu estava procurando algo semelhante, pois recebo muitos e-mails no meu trabalho de processos que são executados em horários específicos e estava procurando uma maneira de rastrear qualquer coisa que não Vem para minha caixa de entrada quando deveria.
Receber um lembrete quando uma mensagem não chegar? (escrito por Diane Poremsky)
Basicamente, detalha como definir uma regra "executar um script" que aciona um lembrete quando você não recebe um email dentro de um cronograma especificado.
O código VB para conseguir isso é o seguinte:
Sub RemindNewMessages(Item As Outlook.MailItem)
Dim objInbox As Outlook.MAPIFolder
Dim intCount As Integer
Dim objVariant As Variant
Set objInbox = Session.GetDefaultFolder(olFolderInbox)
' Set the flag/reminder on newly arrived message
With Item
.MarkAsTask olMarkThisWeek
.TaskDueDate = Now + 1
.ReminderSet = True
' Reminder in one hour
.ReminderTime = Now + 0.041
.Categories = "Remind in 1 Hour"
.Save
End With
Item.Save
' look for existing messages and remove the flag and reminder
For intCount = objInbox.Items.Count To 1 Step -1
Set objVariant = objInbox.Items.Item(intCount)
If objVariant.MessageClass = "IPM.Note" Then
If LCase(objVariant.Subject) = LCase(Item.Subject) And objVariant.SentOn < Item.SentOn Then
' clear flag and category
With objVariant
.ClearTaskFlag
.Categories = ""
.Save
End With
'or just delete the older messages
' objVariant.Delete
Else
End If
End If
Next
Set objInbox = Nothing
End Sub