Eliminazione di una e-mail quando il soggetto contiene determinate parole

Question

Al lavoro che uso Microsoft Outlook, e ho esaurito lo spazio per le regole di prospettiva.

che sto cercando di creare una procedura di VBA che controllare la mia e-mail, come ho capito, e se c'è un e-mail con una stringa specificata nel soggetto che verrà eliminarlo.

Questo è quello che ho cercato di codice, ma non riuscivo a farlo funzionare:

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

ho preso a lavorare:

'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