VBOffice

Regelassistent und Kleinschreibung

Wenn Sie eine Regel erstellen, um eine neue Email anhand des Betreffs automatisch in einen anderen Ordner zu verschieben, unterscheidet der Regelassistent nicht zwischen Groß- und Kleinschreibung. Dieses Skript erkennt den feinen Unterschied.

Zuletzt geändert: 14.03.2015 | Aufrufe: 13.372  | #141
◀ Vorheriges Beispiel Nächstes Beispiel ▶
SAM SAM
Legen Sie fest, mit welcher "Identität" Ihre Emails beim Empfänger erscheinen sollen. Mit SAM bestimmen Sie den Absender und Speicherort für Emails anhand von Regeln.

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.


tip  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
Reporter Reporter
Mit dem Reporter erstellen Sie Berichte für Ihre Outlook Daten. Mit wenigen Klicks werden Werte aus Aufgaben, Terminen und dem Journal summiert.
email  Senden Sie eine Nachricht