Office: (Office 2003) Outlook Kalenderdaten auslesen und in eine Tabelle schreiben.

Hallo,

ich habe hier schon einige Threads gefunden, wie man Kalenderdaten auslesen kann und auch in eine Tabelle schreiben kann. Nur leider hatte schon einige den Ansatz das nur für einen bestimmten Tag zu machen, aber dafür gab es noch keine Lösung.

Hat das schon jemand gemacht und kann mir was zur Verfügung stellen?


Danke
Holger

:)

 

Hallo Holger,

schau mal bitte bei www.donkarl.com auf die Doanloadseiten zur 10. AEK. Dort hat Mark Dörbandt einen Vortrag mit dem Ttitel "Access und Outlook" gehalten.

Vielleicht findest Du im Vortragsscript einige Anregungen.

HTH

 

Es gibt in Outlook die beiden Methoden Item.Find und Item.FindNext.

Mit diesen beiden Methoden kannst Du systematisch den Folder für Kalender (dort sind ja die Termineinträge) nach alle Terminen für einen bestimmten Tag durchsuchen ... aber vorsicht, meines Wissens nach versagt die Methode bei Serien-Terminen wenn an dem gesuchten Tag nicht das Appointment-Objekt liegt sondern nur die Serien-Instanz des eigentlichen Appointment-Objektes (normalerweise sollte man den Programmierer der diese Handling von Serien-Terminen verbrochen hat teeren und federn ^^).

In der VBA-Hilfe zu Outlook findest Du unter Items.FindNext auch ein einfaches aber aussagekräftiges Beispiel für die Anwendung dieser beiden Methoden.

Gruß

Rainer

 

Hallo Thomas, hallo Rainer,

leider hilft mir das noch nicht so weiter, werde es aber weiter versuchen un dhoffen, ob noch jemand eine Idee hat


Holger

 

Willst Du eine fertige Lösung in Form eines Codes oder Hilfe zur Selbsthilfe?
Ich habe hier im Forum irgendwo mal eine Prozedur gepostet zum Auslesen des persönlichen Kalenders und Abgleich mit einem öffentlichem Kalender.

Die dort verwendeten Aufrufe sollten als Ansatz reichen. Es ist hier natürlich auch möglich, dediziert auf ein bestimmtes Element zu zugreifen.

 

Wieso nicht? War das nicht die Fragestellung aus Deinem Eröffnungsthread ... Kalendereinträge für ein bestimmtes Datum auszulesen? Und genau das kannst Du mit Find und FindNext machen.

Wenn es das war, dann ist das eh mehr oder weniger die einzige Lösung ... ausser Du durchläufst alle Appointment-Items im Ordner und prüfst bei jedem einzeln das Datum. Was aber wohl die deutlich schlechtere Variante wäre weil deutlich langsamer.

Bei beiden hast Du aber das Problem mit Serienterminen so oder so, da die nicht als Item im Folder liegen.

Gruß

Rainer

 

Moin,

vielleicht verstehe ich das ja falsch, aber bei mir lässt sich der Kalender über Externe Daten-Verknüpfen-Exchange bzw Outlook einbinden. Dann würde doch eine Abfrage mit den entsprechenden Parametern reichen, oder?

 

Theoretisch ja ... praktisch nein. *g*

Nein ... weil bei dieser Verknüpfung weder Termin-Datum noch Start-/End-Uhrzeit des Appointment-Item übernommen wird. Und was taugt die Information über einen Termin wenn man nicht weiss wann der ist. ^^

Gruß

Rainer

 

Hallo Rainer,

da hast du wahr *wink.gif*. Solche unwichtigen Attribute haben ja auch nix in der Tabelle verloren ... *frown.gif*

Fragt sich Mensch doch - warum legt MS die nicht hier mit ab???

 

Keine Ahnung nehme an es liegt daran das der Tabellenaufbau (also die Argumente) für alle Items identisch ist, also egal ob Mail-Item oder Appointment-Item es ist überall der gleiche Aufbau.

Nehme an das ist der Unterschiedlichkeit geschuldet das Outlook rein Objekt-orientiert arbeitet und Access eben wie eine Datenbank. Das passt von Haus auf mal gar nicht zusammen. Daher wird ja eine Verknüpfung auch nicht direkt über Access zu Outlook-Datei geregelt, sondern der Umweg über den Folder C:\User\Username\AppData\Local\Temp gegangen.

Dort wird jeder Outlook Eintrag als separate tmp-Datei abgelegt und dann von Access in eine Tabelle eingelesen. Ich finde das gelinde formuliert idiotisch. ^^

Vermutlich wollte sich MS den Aufwand sparen da eine saubere und gut funktionierende Schnittstelle einzubauen/anzubieten ... frei nach dem Motto wer mehr will soll die Mapi nehmen aber eine schöne saubere Schnittstelle für unser hauseigenes Access ist uns zuviel Aufwand. Für mich ist diese Verknüpfungsmöglichkeit zu Outlook eher eine Alibi-Funktion ohne wirklichen Nutzen.

Beim Mail-Items wird ja noch nicht mal die Emfpänger-/Absenderemail mit übergeben, sondern nur der Anzeigename ... was unheimlich sinnvoll ist. ^^

Gruß

Rainer

 

Hallo nochmal,

habe nun Benny´s Code genommen und versuche mich daran ihn für mich anzupassen.

Nur läuft der Code nicht durch

Code:

Der Code bleibt immer bei With kalendereintrag stehen. Es kommt auch keine Fehlermeldung.

Woran kann das liegen


Holger

 

Du denkst aber schon dran das Du u.U. erstmal die Sicherheitsabfrage von Outlook ob der Zugriff erlaubt ist bestätigen musst?

Ansonsten würde mir jetzt bei dem Code kein Grund einfallen wieso er da stehen bleiben sollte ... sieht alles richtig aus auf den ersten Blick.

Gruß

Rainer

 

Hallo Rainer,

die Abfrage kommt leider erst gar nicht.

Hat mich auch schon gewundert.

Holger

 

Der Code an sich funktioniert bei mir einwandfrei.
Was mir auffällt ist, dass er sofort auf das Exit Sub in der For Each landet.
Und zwar weil natürlich alle Elemente verwendet werden und diese durchaus vor "Date" liegen können...
Wenn ich diese If-Anweisung entferne erhalte ich alle Einträge.

 

\@ Debus

Aber Du bist Dir sicher das er den richtigen Folder aus PickFolder übernimmt?

Probiere mal in der Deklaration AppointmentItem und MAPIFolder beide als Object zu deklarieren.

Geht es dann?

Gruß

Rainer