在发件人上给定松散字符串匹配时删除已删除邮件

Question

我希望创建一个VBA程序来删除我的Outlook的Deleted Items文件夹中的项目。但是，我只希望通过匹配松散的字符串从某些用户中删除这些项目。

例如，如果我可能会收到来自Deleted Items，"Plan_Group_"，{{1}的电子邮件，请删除地址为"Plan_Group_1"的任何用户的"Plan_Group_2"框中的所有电子邮件}}，...等。

目前这是我删除的内容，但它适用于"Plan_Group_3"框中的所有项目：

Deleted Items

如何将其扩展为仅查找与地址字符串松散匹配的电子邮件？

Answer 1

使用If语句检查电子邮件地址：

If TypeName(oItems.Item(i)) = "MailItem" And oItems(i).SenderEmailAddress Like "Plan_Group_*" Then
    oItems.Item(i).Delete
End If

或者：

If TypeName(oItems.Item(i)) = "MailItem" And Left$(oItems(i).SenderEmailAddress, 11) = "Plan_Group_" Then
    oItems.Item(i).Delete
End If

只做两种方式