当主题包含某些单词时删除电子邮件

Question

在工作中我使用的是Microsoft Outlook，而且我的Outlook规则空间不足。

我正在尝试创建一个VBA程序，它会在我收到它时检查我的电子邮件，如果主题中有一个包含指定字符串的电子邮件，它将删除它。

这是我尝试编码但我无法使其工作的原因：

Public Sub process_email(itm As Outlook.MailItem)
    Dim new_msg As MailItem

    If new_msg.subject Like "*keyword*" Then
        new_msg.Delete
    End If
End Sub

Answer 1

我得到了它的工作：

'deletes all emails with "Magic Carpet Ride" in the subject
        If InStr(itm.Subject, "Magic Carpet Ride") > 0 Then
            itm.UnRead = False
            itm.Save
            itm.Delete
            End
        End If