MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Outlook (Express), sonst. Mailprogramme
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 13.04.2019, 14:25   #1
rk17
Neuer Benutzer
Neuer Benutzer
Standard OL 2010 - unterschiedliche Zugriffszeiten bei gleichem Appointment/verschiedene Variablen

Hallo zusammen,

ich versuche aus einem Gruppenkalender über einen langen Zeitraum die Appointments in einem Array zu sammeln, um danach Auswertungen vorzunehmen. Dabei fiel mir auf, das trotz gleichem Item und "benachbarter Variablen" die Zugriffszeiten permanent sehr unterschiedlich sind (immer gleiche Anzahl definierter Items). Ich kann es mir nicht erklären und suche nach einer Lösung die Laufzeiten zu reduzieren.
Nachfolgend die wesentlichen Statements.
Wäre toll, wenn ihr einen Hinweis für mich habt. (am aufnehmenden Array kann nicht liegen, denke ich)
Ich habe die Übernahme ins Array jeder einzelnen Variablen mehrfach getestet
und alle anderen (Übernahme)-Anweisungen auskommentiert.
Dabei sind dann die im Kommentar genannten Zeiten nach ca. 1400 durchlaufenen Items gemessen worden.

Set Items = myOlFolder.Items.Restrict("[Start] >= '" & mystart & "' and [end] <= & '" & myend + 1 & "'")
Items.IncludeRecurrences = False
Items.Sort "Start", True
Dim arr2d As Variant

ReDim arr2d(1 To Items.Count, 1 To 20) As Variant
For i = Items.Count To 1 Step -1
Set Appt = Items(i)

arr2d(x, 1) = Appt.Start 'Date, 1,56 Sek.
arr2d(x, 2) = Appt.End 'Date, 1,50 Sek.
arr2d(x, 3) = Appt.AllDayEvent 'Boolean, 1,56 Sek.
arr2d(x, 4) = Appt.BusyStatus 'Long, 1,52 Sek.
arr2d(x, 5) = Appt.Categories 'String, 71,20 Sek.
arr2d(x, 6) = Appt.CreationTime 'Date, 71,64 Sek.
arr2d(x, 7) = Appt.Duration 'Long, 1,53 Sek.
arr2d(x, 8) = Appt.LastModificationTime 'Date, 69,91 Sek.
arr2d(x, 9) = Appt.Location 'String, 1,52 Sek.
arr2d(x, 10) = Appt.MeetingStatus 'Long, 1,48 Sek.
arr2d(x, 11) = Appt.RecurrenceState 'Long, 71,06 Sek.
arr2d(x, 12) = Appt.ReminderMinutesBeforeStart 'Long, 71,98 Sek.
arr2d(x, 13) = Appt.Subject 'String 1,81 Sek.
Next i
......
end sub

Danke für jeden Hinweis
Rainer
rk17 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.04.2019, 17:45   #2
markusxy
MOF Meister
MOF Meister
Standard

Zitat: von rk17 Beitrag anzeigen

Ich kann es mir nicht erklären und suche nach einer Lösung die Laufzeiten zu reduzieren.

Ich gehöre auch nicht zum Office Entwicklerteam, daher kann ich nichts dazu sagen.

Wenn das ein interner Exchange Server ist, würde ich direkt am Server abfragen.
Das wäre dann ein Thema für ein Exchange Forum.

Ansonsten würde ich für solche Zwecke auf Redemption zurückgreifen.
Da gibt es auch die Möglichkeit via ADODB Recordset Daten per SQL aus einem Outlook MapiTable abzufragen.

Da dauert dann die Abfrage mit Überführung der Daten in ein Array einen Sekundenbruchteil für lächerliche 1400 Datensätze.
markusxy ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.04.2019, 12:26   #3
rk17
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

"Ich gehöre auch nicht zum Office Entwicklerteam"
Naja, eigentliche schade.

Redemption und CDO sind für mich (auf Grund der aktuellen Situation) außen vor.
Hatte gehofft, dennoch etwas tun zu können.

Vielleicht ging es jemand ja mal ähnlich und hat noch etwas herausgefunden...
??
Rainer
rk17 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.04.2019, 17:37   #4
markusxy
MOF Meister
MOF Meister
Standard

Was ist mit meinem ersten Vorschlag?
markusxy ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.04.2019, 16:48   #5
rk17
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ja danke für dein nochmaliges erinnern.
Ich glaube eher nicht daran Berechtigungen zu erhalten.
Werde es aber prüfen/angehen.

Danke & Gruß
rk17 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:04 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.