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

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