2013-10-19 46 views
6

在工作中,我使用Microsoft Outlook,而且我已经用尽了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 
+1

参见[这](HTTP://计算器.com/questions/8005713/using-vba-to-read-new-outlook-email)@JimmyPena。用它来捕获传入的邮件然后删除它。 –

回答

5

我得到它的工作:

'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 
相关问题