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: 12.912  | #141
◀ Vorheriges Beispiel Nächstes Beispiel ▶
Category-Manager Category-Manager
Mit dem Category-Manager können Sie Outlook Kategorien gruppieren, synchronisieren und filtern, neuen Emails automatisch die Kategorie des Absenders zuweisen und vieles mehr. Das Addin ist auch für IMAP geeignet.

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
ReplyAll ReplyAll
Mit diesem Addin für Outlook erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten.
email  Senden Sie eine Nachricht