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

Debus · 7. Oktober 2010

Hallo Rainer,

danke, aber das Ergebnis ist das gleiche, er macht eine Endlosschleife daraus und nimmt aller Termine wieder X Mal. Er hört auch nicht auf.

Hast du noch eine Idee?

Holger

raist10 · 8. Oktober 2010

\@ Debus

Okay, jetzt habe ich mich doch mal dran gesetzt ... kopiere den nachfolgenden Code und lass ihn mal bei Dir durchlaufen.

Code:

Private Sub CheckOlCalendarAccess()

Dim olNameSpace As Object
Dim olApp As Object
Dim olFolder As Object
Dim olItem As Object
Dim dteStart As Date
Dim dteEnd As Date

Set olApp = CreateObject("Outlook.Application")
Set olNameSpace = olApp.GetNamespace("MAPI")

Set olFolder = olNameSpace.GetDefaultFolder(9)

dteStart = VBA.Format(Now, "Short Date")
dteEnd = DateAdd("d", 1, dteStart)

' [IsRecurring] = False ignoriert Termin-Serien wie Geburtstage und Jahrestage
' [Start] ... Startdatum allerdings mit Uhrzeit
' [End] ... Enddatum mit Uhrzeit
Set olItem = olFolder.Items.Find("[IsRecurring] = False AND [Start]>""" & dteStart & """ AND [End]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Debus · 8. Oktober 2010

Hallo Rainer,

auch mit dem Code kommt leider wieder der Fehler objektvariable or with-.........

Mit vorletzten Code von Dir geht es auf einem lokalen Rechner. Nur auf meinem Netzrechner von der Arbeit geht es halt nicht.

Da ich nun aber erstmal zwei Wochen in Urlaub fahre (in die nähe von Dir) werde ich mich danach wieder mit dem Ticket melden

Danke nochmal bis hierhin für Deine /Eure Unterstützung

Holger

raist10 · 8. Oktober 2010

Dann viel Spaß im Urlaub. *wink.gif*

Gruß

Rainer

Debus · 9. Oktober 2010

Hallo Rainer,

es funzt nun, war einfach nur zu blöd Deinen Vorletzten Code sauber umzusetzen. Nun kann ich in Urlaub fahren

Danke nochmal für Deine Unterstützung

Holger

PS muss es nur noch meinem Urlaub auf den Arbeitsrechner testen

raist10 · 9. Oktober 2010

es funzt nun ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Na geht doch. *wink.gif*

Freut mich.

Gruß

Rainer

Sayus · 21. Februar 2011

- Habe neuen Thread gestartet -
(-Hier zu finden-)

Brauni · 24. März 2012

hy

ich habe eben versucht den Code unter Office 2010 zu verwenden.
Leider wird mir immer nur ein Termin angezeigt und nicht alle von diesem Tag.

Hat jemand eine Idee?

greets
brauni

Anne Berg · 24. März 2012

Hallo,

auf welchen Code beziehst du dich da? *confused.gif*

Es ist vielleicht nicht die beste Idee, sich an einen älteren, mehrseitigen Thread anzuhängen, ohne den Bezug zu seinem eigenen Problem konkret zu benennen. Oder erwartest du, man sollte sich erst alle Beiträge und Querverweise durchlesen, um drauf zu kommen was du evtl. meinen könntest?

Brauni · 25. März 2012

sorry ich meinte diesen Code hier:

Code:

Private Sub CheckOlCalendarAccess()

Dim olNameSpace As Object
Dim olApp As Object
Dim olFolder As Object
Dim olItem As Object
Dim dteStart As Date
Dim dteEnd As Date

Set olApp = CreateObject("Outlook.Application")
Set olNameSpace = olApp.GetNamespace("MAPI")

Set olFolder = olNameSpace.GetDefaultFolder(9)

dteStart = VBA.Format(Now, "Short Date")
dteEnd = DateAdd("d", 1, dteStart)

' [IsRecurring] = False ignoriert Termin-Serien wie Geburtstage und Jahrestage
' [Start] ... Startdatum allerdings mit Uhrzeit
' [End] ... Enddatum mit Uhrzeit
Set olItem = olFolder.Items.Find("[IsRecurring] = False AND [Start]>""" & dteStart & """ AND [End]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Scorefun · 25. März 2012

So sollte es funktionieren, wenn man eine explizite Items-Auflistung des Folders deklariert (fett markiert), auf die sich die Suche dann bezieht

Code:

Private Sub CheckOlCalendarAccess()

Dim olNameSpace As Object
Dim olApp As Object
Dim olFolder As Object
Dim olItems As Object
Dim olItem As Object
Dim dteStart As Date
Dim dteEnd As Date

Set olApp = CreateObject("Outlook.Application")
Set olNameSpace = olApp.GetNamespace("MAPI")

Set olFolder = olNameSpace.GetDefaultFolder(9)

dteStart = VBA.Format(Now, "Short Date")
dteEnd = DateAdd("d", 1, dteStart)

' [IsRecurring] = False ignoriert Termin-Serien wie Geburtstage und Jahrestage
' [Start] ... Startdatum allerdings mit Uhrzeit
' [End] ... Enddatum mit Uhrzeit
Set olItems = olFolder.items
Set olItem = olItems.Find("[IsRecurring] = False AND [Start]>""" & dteStart & """ AND [End]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Brauni · 26. März 2012

wow super danke funktioniert super!!

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

Outlook Kalenderdaten auslesen und in eine Tabelle schreiben.

Outlook Kalenderdaten auslesen und in eine Tabelle schreiben.

Outlook Kalenderdaten auslesen und in eine Tabelle schreiben.

Outlook Kalenderdaten auslesen und in eine Tabelle schreiben.

Outlook Kalenderdaten auslesen und in eine Tabelle schreiben. - Similar Threads - Outlook Kalenderdaten auslesen

PDF-Problem bei outlook

Mails in Outlook farblich markieren wenn Zeichen hinter Wort

Outlook (Classic) synchronisiert GMail sehr langsam – immer kompletter Abruf?

Outlook synchronisiert Gmail-Ordner nicht vollständig (Office 2021 zu M365)

Synch zwischen MS Outlook und Strato nicht vollständig

Outlook-Kontakte verknüpfen und Filtern

Kann kein csv importieren in Outlook Kontakte