Emails in den Spamordner verschieben

Der Junkfilter in Outlook kann nicht alle Emails als Spam erkennen. Dieses Makro ist nur ein Beispiel, wie Sie die Eigenschaften einer eintreffenden Email untersuchen und die Email dann sofort in den Spamordner verschieben können.

Im Beispiel wird zuerst geprüft, ob die Email mindestens eine Anlage enthält. Wenn das der Fall ist, dann wird geprüft, ob der Betreff und der Nachrichtentext leer sind. Nur wenn auch das der Fall ist, wird die Email verschoben.

  So fügen Sie Makros in Outlook ein

Private WithEvents m_Inbox As Outlook.Items

Private Sub Application_Startup()
  Set m_Inbox = Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub m_Inbox_ItemAdd(ByVal Item As Object)
  Dim Spam As Outlook.Folder
  If Item.Attachments.Count>0 Then
    If Item.Subject = "" and Item.Body = "" Then
      Set Spam = Application.Session.GetDefaultFolder(olFolderJunk)
      Item.Move Spam
    Endif
  Endif
End Sub