|
Problemstellung: In der lokalen Office App (letzte Version) befinden sich pro User jeweils sein eigenes Postfach (z.B. USER), sowie ein weiteres allgemeines Postfach (z.B. OFFICE). Nun sollen die im User Postfach angelegten Kategorien in die Kategorienliste des Postfaches OFFICE übernommen werden.
Die Kategorienliste des USER Postfachs kann ich per VBA (in einer Access Anwendung) einfach auslesen (siehe nachfolgende Code). Ich komme aber nicht auf die Kategorienliste des Postfachs OFFICE. Hat jemand eine Lösung? Vieln Dank imVoraus.
' read categories main list
Dim objOutlook As Outlook.Application
Dim objCategory As Outlook.Category
Dim objCategories As Outlook.Categories
Dim ns As NameSpace
Me.Kategorien.Value = ""
Set objOutlook = CreateObject("Outlook.Application")
Set ns = objOutlook.GetNamespace("MAPI")
Set objCategories = objOutlook.GetNamespace("MAPI").Categories
For Each objCategory In objCategories
' put all values into variable
Me.Kategorien.Value = Me.Kategorien.Value & objCategory.name & "/" & objCategory.Color & vbCrLf
Next objCategory
Set objCategory = Nothing
|