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