如果我没有收到电子邮件，请在 Outlook 中生成警报

Question

我每天都必须收到一封电子邮件 xyz。

如果我没有收到电子邮件，是否有任何 Outlook（或其他）插件可以收到警报？

Answer 1

如果您设置过滤器，在收到邮件时提醒您，甚至可能将其移动到特殊文件夹，那么您也可以设置提醒，询问您是否收到了今天需要的电子邮件。如果没有未读邮件，您将有一个视觉指示器。

或者，根据您的 Outlook 版本，编写一个简单的 VBA 脚本，以计划事件的形式检查该特殊文件夹中是否有未读消息。如果没有，则提醒您。

Answer 2

假设你得到任何定期接收新邮件，您可以使用规则检查过去 24 小时内是否设置了“收到来自 xyz 的邮件”。否则，我看到的唯一替代方案是自定义 Outlook 插件（或一些 VBA 宏），设置一个每 5 分钟（或其他时间）触发一次的计时器。

Answer 3

我认为这应该可以回答这个问题——我正在寻找类似的东西，因为我在工作中收到了很多来自特定时间运行的流程的电子邮件，并且正在寻找一种方法来跟踪任何没有在应该到达时进入我收件箱的东西。

当消息未到达时会收到提醒吗？（作者：Diane Poremsky）

基本上，它详细说明了如何设置“运行脚本”当您在指定的时间内未收到电子邮件时触发提醒的规则。

实现此目的的 VB 代码如下：

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

Answer 4

我不知道插件是否可以完成你所要求的功能。

您可以先创建规则。希望所需的电子邮件具有可用于可靠识别它的内容。例如：它始终来自某个发件人，或者它的主题行中始终包含某些文本。该规则可以将电子邮件移动到特定文件夹，您可以监视该文件夹中是否有新的未读邮件。还有其他选项可以与移动电子邮件结合使用。