VBOffice

Email automatisch kategorisieren

Mit VBA jeder neuen Email eine bestimmte Kategorie zuweisen

Zuletzt geändert: 01.02.2007 | Aufrufe: 26.492  | #42
◀ Vorheriges Beispiel Nächstes Beispiel ▶
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.

Mithilfe des Regelassistenten können Sie neuen E-Mails sofort beim Eintreffen Kategorien zuweisen. Das nützt Ihnen aber nichts, wenn Sie im Voraus noch nicht wissen, was damit geschehen soll.

Mit etwas VBA-Programmierung sind Sie flexibler: So können Sie z.B. immer dann eine Kategorie zuordnen, nachdem etwas in einen bestimmten Ordner verschoben wurde. Die Kategorie wird hier in der Konstante 'AUTO_CATEGORY' definiert, als Beispiel wird ein Unterordner des Posteingangs überwacht.


tip  So fügen Sie Makros in Outlook ein
Private WithEvents Items As Outlook.Items

'Diese Kategorie automatisch zuweisen
Private Const AUTO_CATEGORY As String = "(test)"

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Dim Inbox As Outlook.MAPIFolder
  Dim Subfolder As Outlook.MAPIFolder

  Set Ns = Application.GetNamespace("MAPI")

  'Posteingang
  Set Inbox = Ns.GetDefaultFolder(olFolderInbox)

  'Unterordner des Posteingangs
  Set Subfolder = Inbox.Folders("test")

  Set Items = Subfolder.Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
  Dim Cats() As String
  Dim i&
  Dim Exists As Boolean

  If Len(Item.Categories) Then
    'Prüfe, ob die Kategorie schon zugewiesen ist
    Cats = Split(Item.Categories, ";")
    For i = 0 To UBound(Cats)
      If LCase$(Cats(i)) = LCase$(AUTO_CATEGORY) Then
        Exists = True
        Exit For
      End If
    Next

    If Exists = False Then
      Item.Categories = Item.Categories & ";" & AUTO_CATEGORY
      Item.Save
    End If

  Else
    Item.Categories = AUTO_CATEGORY
    Item.Save
  End If
End Sub
OLKeeper OLKeeper
Der OLKeeper verhindert zuverlässig, dass Sie Microsoft Outlook unbeabsichtigt schließen und so etwa wichtige Emails verpassen würden.
email  Senden Sie eine Nachricht