件名に特定の単語が含まれているとメールを削除する

Question

私は仕事をしているときにMicrosoft 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