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

Question

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

1. 如果符合域标准，则根据发件人的电子邮件域设置到期日期（明天/ 24小时）

2. 在识别时对这些电子邮件进行分类（类别名称为=查看事先2删​​除），提醒我在移动之前需要阅读的新电子邮件

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

任何帮助将不胜感激。