VBOffice

Termin automatisch kategorisieren

Nützlich z.B. für Anwender mit Smartphones, die keine Kategorien unterstützen: Mit diesem VBA-Beispiel fügen Sie jedem neuen Termin automatisch eine Kategorie hinzu.

Zuletzt geändert: 23.09.2009 | Aufrufe: 50.527  | #76
◀ Vorheriges Beispiel Nächstes Beispiel ▶
OLKeeper OLKeeper
Der OLKeeper verhindert zuverlässig, dass Sie Microsoft Outlook unbeabsichtigt schließen und so etwa wichtige Emails verpassen würden.

Wenn Sie Outlook-Elemente mithilfe von Kategorien organisieren aber mit einem Smartphone synchronisieren, das keine Kategorien unterstützt, gerät entweder Ihre Datenorganisation durcheinander, oder Sie müssen nach jeder Synchronisierung manuell nacharbeiten. Das gleiche Problem haben Anwender, die den Outlook-Kalender z.B. mit dem Google-Kalender über SyncMyCal synchronisieren.

Das folgende Beispiel zeigt, wie neue Termine automatisch eingeordnet werden können. Wenn ein neuer Termin als Privat gekennzeichnet ist und noch keine Kategorie hat, dann wird eine bestimmte Kategorie zugewiesen. Wenn dagegen eine bestimmte Kategorie zugewiesen ist, dann wird der Termin als Privat gekennzeichnet. Sie müssen im Code nur den Kategorienamen Beispiel durch einen Ihrer Wahl ersetzen.


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

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace

  Set Ns = Application.GetNamespace("MAPI")
  Set Items = Ns.GetDefaultFolder(olFolderCalendar).Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
  Dim Appt As Outlook.AppointmentItem
  Dim CategoryName as String

  CategoryName = "Beispiel"

  If TypeOf Item Is Outlook.AppointmentItem Then
    Set Appt = Item
    If Appt.Sensitivity = olPrivate Then
      If Appt.Categories = "" Then
        Appt.Categories = CategoryName
        Appt.Save
      End If
    ElseIf InStr(1, Appt.Categories, CategoryName, vbTextCompare) Then
      Appt.Sensitivity = olPrivate
      Appt.Save
    End If
  End If
End Su
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