Usunięcie wiadomości e-mail, gdy temat zawiera określone słowa

Question

W pracy korzystam z programu Microsoft Outlook, a zabrakło mi miejsca na reguły dotyczące prognoz.

Próbuję utworzyć procedurę VBA, która sprawdzi mój adres e-mail, gdy go otrzymam, a jeśli istnieje wiadomość e-mail z określonym ciągiem znaków w temacie, zostanie ona usunięta.

To, co starałem się kod, ale nie mogę zmusić go do pracy:

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

Dostałem go do pracy:

'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