Regelassistent und Kleinschreibung

Outlook ruft die ItemAdd-Funktion automatisch auf, wenn dem Posteingang ein neues Element hinzugefügt wird. Das Makro sucht dann einen bestimmten Begriff im Betreff der Email und wenn der gefunden wird, wird die Email in einen bestimmten Unterordner des Posteingangs verschoben.

In der Application_Startup-Funktion werden die Regeln definiert: Der erste Begriff, z.B. 'Test' ist der Begriff, der im Betreff gesucht wird, der zweite Begriff, z.B. 'Ordner 1' ist der Name des Zielordners. In diesem Beispiel muss das ein vorhandener Unterordner im Posteingang sein.

  So fügen Sie Makros in Outlook ein

Private WithEvents InboxItems As Outlook.Items
Private m_Rules As Variant

Sub Application_Startup()
  Dim i As Long
  i = -1: ReDim m_Rules(1000)
  i = i + 1: m_Rules(i) = Array("Test", "Ordner 1")
  i = i + 1: m_Rules(i) = Array("test", "Ordner 2")
  'Hier weitere Regeln
  '...
  'Fertig
  ReDim Preserve m_Rules(i)
  Set InboxItems = Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub InboxItems_ItemAdd(ByVal Item As Object)
  Dim Folder As Outlook.MAPIFolder
  Dim i As Long, Find As String
  Find = Item.Subject
  For i = 0 To UBound(m_Rules)
    If InStr(1, Find, m_Rules(i)(0), vbBinaryCompare) Then
      Set Folder = Application.Session.GetDefaultFolder(olFolderInbox)
      Set Folder = Folder.Folders(m_Rules(i)(1))
      Item.Move Folder
      Exit For
    End If
  Next
End Sub