email - 需要 Marco 帮助按域识别发件人，然后执行自定义操作

Question

某些论坛每天都会向我发送电子邮件。我想通过以下方式剔除这些邮件：

1. 如果满足域条件，则根据发件人的电子邮件域设置过期日期（明天/24 小时）

2. 识别时对这些电子邮件进行分类（类别名称为 = Review Prior 2 Deletion）以提醒我有一封新电子邮件需要在移动之前阅读

3. 24 小时后，将每封分类的电子邮件移至垃圾箱或删除文件夹（但不会永久删除它们），因为我可能想在 24 小时到期时间过后引用它们。

我找到了以下代码来设置到期日期（如下）。

Sub SetExpire(Item As Outlook.MailItem)

 If Left(LCase(Item.Subject), 7) = "weather" Then
    Item.ExpiryTime = Now + 1
    Item.Save
End If

End Sub

任何帮助，将不胜感激。