Löschen einer E-Mail, wenn Betreff bestimmte Wörter enthält

Question

Bei der Arbeit verwende ich Microsoft Outlook, und ich habe keinen Platz mehr für Outlook-Regeln.

Ich versuche, eine VBA-Prozedur zu erstellen, die meine E-Mail prüft, wenn ich sie bekomme, und wenn es eine E-Mail mit einer angegebenen Zeichenfolge im Betreff gibt, wird sie gelöscht.

Dies ist, was ich zu kodieren versucht, aber ich konnte es nicht an die Arbeit:

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

Ich habe es zu arbeiten:

'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