Office: (Office 2007) Löschen von Termineinträgen in Outlook

Hallo VBA- Gemeinde

Ich habe mit Access eine kleine Auftrags- und Terminverwaltung für einen Freund erstellt. Soweit funktioniert alles super. Bisher bin ich noch immer ohne VBA ausgekommen. Jetzt sollen die Termine aber an den Outlookkalender übergeben werden. Dafür gibt es im Internet ja genug Beispiele in VBA. Bei mir werden jetzt also die Termine in Access in einer Tabelle "tblTermine" angelegt und bearbeitet und über VBA in Outlook angelegt bzw. aktualisiert. Leider fehlt mir ein Teil, welcher die Termine in Outlook wieder löscht, wenn sie in der Access- Tabelle nicht mehr vorhanden sind. Die Termine können über einen Autowert in meiner Tabelle "TerminID" und dem Wert "EntryID" in Outlook identifiziert werden. Wie mache ich das, das alle Outlooktermine, welche in der Accesstabelle keine passende "TerminID" haben, gelöscht werden. Ich hoffe, das mir hier jemand helfen kann.

:)

 

Hallo!
Du mußt alle Items im Kalender Folder absuchen.
Alle jene deren EntryID nicht in deiner Access-Tabelle vorkommen mit der Mehode .Delete löschen.
Dazu suchst Du jede EntryID der KaldenderItems beginnend vom letzten Eintrag mittels DCount aus Deiner Tabelle ab. Ist DCount = 0, kannst Du den Item löschen.

Code:

Luftcode!
Achtung: Löscht alle Termine ohne Bezug zu den EntryID in den DB-Daten in allen Kalenderfolder.

Wolfgang

 

Hallo Wolfgang,
Danke für deine schnelle Antwort. Leider bin ich in Sachen VBA totaler Anfänger. Ich habe mal versucht deinen Code hinter einer Schaltfläche zu hinterlegen. Es kommt sofort zu einer Fehlermeldung, Variable erforderlich. Zuweisung an diesem Ausdruck nicht möglich. Auch das mit dem Luftcode habe ich nicht so richtig verstanden. Vielleicht kannst du ja noch mal darüber schauen. Den globalen Code hänge ich mal hinten dran. Vielleicht hilft das ja schon weiter. Code:

 

Hallo!

Viel zu kompliziert.
Dein Code ist für ein Klassenmodul bestimmt.
Darüber würde ich mich an Deiner Stelle erst wagen, wenn Du VBA sehr gut beherrschst.

Lösche all den bisherigen Code.
Am besten das gesamte Klassenmodul, soferne Du ihn in ein solches geschrieben hast.

Für Deinen Zweck genügt ein allgemeines Modul
in welches Du folgenden Code einfügst:

Code:

Die auskommentierte Zeile "oder wenn in einem bestimmten Ordner ...." mußt Du verwenden, wenn in einem bestimmten Outlookfolder ein bestimmter Kalender zu bearbeiten wäre.
Andernfalls wird der Standard-Kalender bearbeitet.
Die Löschung selbst ist bis zum fertigen Austesten Deinerseits auskommentiert.
Die Zeile mit DCount mußt Du natürlich Deiner Tabellensituation anpassen.
Vielleicht ist es so, daß Du gar nicht weißt, wohin Du die Termine in Outlook eigentlich gespeichert hast. Jedenfalls mußt Du das vorher verifizieren.

Nicht vergessen
Option Compare Database
Option Explicit
am Beginn des allgemeinen Moduls einzufügen. Damit wird geprüft, ob alle verwendeten Variablen dimensioniert sind. Auf diese Weise entdeckt man
Schreibfehler schon beim Kompilieren des Codes.

Aber eines rate ich Dir dringend: eine intensive Beschäftigung, auch aus Büchern, mit VBA. Da Du ja gar nicht genau wußtest, was Dein Code, den Du von irgendwoher kopiert und eingefügt hast, eigentlich tut, kamen diese Properties vielleicht sogar in ein allgemeines Modul hinein.

Wolfgang

 

Hallo Wolfgang,

vielen Dank für deine schnelle Antwort. Das mit dem löschen des alten Code ist nicht so einfach. Daran hängen schon mein Im- und Exportmodul der Termine für Outlook. Das funktioniert tadellos. Die Termine die ich bearbeiten möchte, liegen in einem Kalender Namens Geschäftlich. Das hast du ja schon bemerkt. Könnte man deinen Code nicht so anpassen, das er den schon vorhandenen Code mit benutzt, bzw. toleriert. Wie ich das sehe, sind in dem schon vorhandenen Code bereits Variablen definiert wurden. Mit der Aussage das ich mich mit VBA beschäftigen müsste, liegst du völlig richtig. Leider habe ich noch nicht die richtige Literatur dazu gefunden. Ich denke mal das meine wenigen Erfahrungen mit ATARI Basic von vor 20 Jahren keine vernünftige Grundlage sind. Vielleicht kannst du mir da etwas vernünftiges für Anfänger empfehlen.

Frank*Smilie

 

Hallo Frank!

Mein Codeetwurf stellt ein eigenständiges SUB dar. das mit keinem anderen kollidieren kann. Du kannst es verwenden as it is.

Code:

So müßte es funktionieren.
Das SUB in ein allg. Modul einfügen.

Du hast aber meine Frage nicht beantwortet:
Ist Dein Code in einem Klassenmodul enthalten oder in einem allg. Modul?

Was Literatur betrifft, kann ich Dir deswegen nichts empfehlen, da ich meine DB-Kenntnisse im Rahmen einer halbjährigen, ganztägigen, firmeninternen Ausbildung bei IBM (DB-System DB2) mit Abschlußzertifikat erwarb.
Aber ich kann mich schlau machen, wenn Du das willst.

Wolfgang

 

Hallo Wolfgang,

ich kenne wie gesagt den Unterschied nicht so genau. Aber oben im Editor steht Allgemein. Es ist ein Modul, welches "mdlGlobal" heißt und ist im Navigationsbereich unter Module zu finden. Ein weiteres Modul heißt "mdlOutlook" und enthält die Teile für Terminimport und Terminexport. Ich habe aber die Teilcodes direkt als Ereignisprozedur an die Schaltflächen angebunden. So der momentane Stand. Ich hoffe du kannst damit etwas anfangen. Ich werde nachher gleich mal deinen Code ausprobieren und berichten. Es wäre echt cool, wenn ich das Ganze noch dieses Jahr zum Laufen bekomme. Zum Thema Literatur würde ich mich freuen, wenn du oder ein anderer im Forum einen guten Tipp hättest. Es sollte aber, wie du aus meinen Fragen und Antworten erkennen kannst, ganz weit vorn anfangen.

Frank*wink.gif*

 

Hier bspw. könnte man anfangen zu suchen ... Eins der Grundlagen-Bücher nehmen, die Feiertage nutzen, und dann die Aufgabenstellung "Outlook" durchbeissen.

In dem Sinne: Guten Rutsch allen! *wink.gif*

 

Hallo Wolfgang,

Ich habe deinen Code ausprobiert. Es kommt eine Fehlermeldung. Meine Accesstabelle heißt tblTermine und das Feld mit dem Autowert heißt TerminID. Ich hoffe Ich habe alles richtig eingetragen. Ich habe mal einen Schnappschuß von dem Fehler gemacht. Ich hoffe es hilft weiter.
http://www.ms-office-forum.net/forum...1&d=1388495788

 

Hallo,

wenn TerminID ein Autowert (=Long) ist, dann gehören die Hochkommata weg.

 

O.K. aber welche?
könntest du das ganze mal genauer sagen, oder den Code editieren? *eek.gif*

 

Sorry,

editieren geht schlecht bei einem Snapshot.

Und: Ich sehe nur zwei Hochkammata.

 

Hat nichts gebracht. Dann kommt ein anderer Fehler.

Ich lege den Code von der Fehlerhaften Zeile nochmal rein. Code:

 

Und welcher *rolleyes.gif* ?
Ohne das Ganze jetzt groß nachverfolgt zu haben:
Code:

scheint mir eher sinnfrei.
maike

 

Hallo Maike
Also im jetzigen Zustand sind die Datentypen im Kriterienausdruck unverträglich. Zum Sinn des Ganzen, es sollen alle Datensätze aus den Terminen von Outlook gelöscht werden, deren Wert in EntryID nicht mit einem Wert in meiner Tabelle tblTermine, Feld TermineID übereinstimmt.