CODEWITHSUNDEEP
vbaemailoutlook
jperki39
jperki39

Reputation: 151

Deleting an email when subject contains certain words

At work I use Microsoft Outlook, and I've run out of space for outlook rules.

I'm trying to create a VBA procedure that will check my email as I get it, and if there is a email with a specified string in the subject it will delete it.

This is what I tried to code but I couldn't get it to work:

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

Upvotes: 7

Views: 13951

Answers (1)

jperki39
jperki39

Reputation: 151

I got it to work:

'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

Upvotes: 8

Related Questions