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

某些论坛每天都给我发电子邮件。我想通过以下方式筛选这些邮件：

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

识别后对这些电子邮件进行分类（类别名称为=查看之前的2次删除），以提醒我有一封新电子邮件需要在移动之前阅读

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