eingebundene Gruppenkalender auslesen

stewag · 20. Februar 2012

Hallo,

ich versuche mit "oAccount.Groups.Count" die Anzahl der persönlich eingebundenen Gruppenkalender zu bestimmen um diese dann per Schleife durchlaufen und auslesen zu können.

Dabei sind oAccount und oApp folgendermaßen definiert:
oApp := CreateOLEObject('DVOBJAPILib.DvISEApi') as IApplication;
oAccount := oApp.Logon(Unassigned, Unassigned, Unassigned, Unassigned, Unassigned, 'AUTH');

Leider erhalte ich für die Anzahl der Gruppenkalender stets 0, auch wenn die Darstellung der Gruppenkalender im persönlichen Kalender aktiv ist.

Was mache ich falsch ?

Gruß,
Steffen

Teardrop · 20. Februar 2012

Hallo Steffen,

mit welcher Version von David und von der DvAPI arbeitest Du hierbei? In der FX/FX2011 API gibt es zumindest lt. Doku noch kein Groups Objekt unterhalb von Account.
Kann es sein, dass Du eine relativ alte Version nutzt? Es gab früher mal neben Usern noch Gruppen, z.B. als Ziele für die manuelle Verteilung (Rechtsklick Verteilen...). Das bezog sich aber immer nur auf Netware Systeme und hat bei Windows nie funktioniert, wurde daher mit FX rausgenommen.

Ein Gruppenkalenderobjekt müsste sowieso immer unterhalb vom Archive-Objekt zu finden sein und nicht vom Account - der hat ja nichts mit irgendwelchen Archiven zu tun...

Da die Gruppenkalender aber nichts anderes sind als Verknüpfungen, solltest Du mal an dieser Stelle suchen, z.B. mit der Methode "IsShortcut".

Gruß Jens

stewag · 23. Februar 2012

Hallo Jens,
danke für deinen Hinweis.
So habe ich die verknüpften Gruppenkalender auslesen und einer Combobox
zuordnen können (Delphi):

Code

for i := 0 to oAccount.LocalAddressBook.Count - 1 do // alle internen
User (Adressbuch) durchgehen 


begin 
    oAddress := oAccount.LocalAddressBook.Item(i); 


   oArchive :=
oAccount.ArchiveFromID(oAccount.ArchiveRoot.ID + '\user\' +
inttohex(oAddress.UID, 8) + '\cal\');


   if oArchive.Archives.Count > 0 then // Anzahl der verknüpften
Gruppenkalender


   begin 


      ComboBox1.Items.Clear; // Gruppenkalender Combobox leeren  


      for m := 0 to oArchive.Archives.Count - 1 do 
        ComboBox1.Items.Add(oArchive.Archives.Item(m).DisplayName) 
    end 


end

Alles anzeigen

Gruß,

Steffen

Teardrop · 23. Februar 2012

Hallo Steffen,

so prüfst Du aber nicht ob es eine Verknüpfung ein Unterordner würde auch mitgenommen, auch wenn der gar nicht als Gruppenkalender eingerichtet ist (Unterordner werden nicht automatisch mit angezeigt, müssen auch verknüpft werden).

Wie oben erwähnt kannst Du das mit "IsShortcut" prüfen.

Gruß Jens

stewag · 23. Februar 2012

Hallo Jens,

du hast Recht, ein physischer Ordner würde ebenfalls als Gruppenkalender eingeordnet.

Leider klappt die Abfrage mit oArchive.IsShortcut zumindest so aber nicht:

Code

for m := 0 to oArchive.Archives.Count - 1 do
if oArchive.IsShortcut then
        ComboBox1.Items.Add(oArchive.Archives.Item(m).DisplayName

Es wird gar kein Eintrag in die Combobox exportiert.

Kannst du sagen warum nicht?

Gruß,
Steffen

stewag · 23. Februar 2012

... so gehts:

Code

for m := 0 to oArchive.Archives.Count - 1 do
      if oArchive.Archives.Item(m).IsShortcut then
        ComboBox1.Items.Add(oArchive.Archives.Item(m).DisplayName

Gruß,
Steffen

eingebundene Gruppenkalender auslesen

Jetzt mitmachen!

Teilen