Konu belirli kelimeler içeriyorsa bir e-postayı silme

Question

İş başında Microsoft Outlook kullanıyorum ve görünüm kuralları için yerim tükendi.

Elime ulaşan e-postalarımı kontrol edecek bir VBA yordamı oluşturmaya çalışıyorum ve konuyla ilgili bir dizeyi içeren bir e-posta varsa silecektir.

Bu

ben kod çalıştığı şey budur ama çalışmak için alamadım:

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

Devam etsin diye aldık:

'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