Office: (Office 2000) via Access-VBA Kalender in einem Öffentlichen Ordner von Outlook auslesen

Wally · 15. Oktober 2007

Hallo,

mit folgendem Code greife ich auf den Outlook-Kalender zu.
Code:

Public Sub TermineImportieren()
Dim objAppointment As Outlook.AppointmentItem
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim objUserProperty As Outlook.UserProperty
Dim lngTerminID As Long
Set db = CurrentDb
Set rst = db.OpenRecordset("tblTermine", dbOpenDynaset)
For Each objAppointment In GetAppointmentFolder.Items
With objAppointment
lngTerminID = 0
On Error Resume Next
lngTerminID = .UserProperties.Item("TerminID").Value
On Error GoTo 0
If lngTerminID > 0 Then
rst.FindFirst "TerminID = " & lngTerminID
If rst.NoMatch Then
rst.AddNew
rst!Betreff = .Subject
rst!Inhalt = .Body
rst!BeginntAm = .Start
rst!EndetAm = .End
rst!GeaendertAm = .LastModificationTime
Set objUserProperty = .UserProperties.Add("TerminID", olText)
objUserProperty.Value = rst!TerminID
.Save
rst.Update
Else
If Not rst!GeaendertAm = .LastModificationTime Then
rst.Edit
rst!Betreff = .Subject
rst!Inhalt = .Body
rst!BeginntAm = .Start
rst!EndetAm = .End
rst!GeaendertAm = .LastModificationTime
rst.Update
End If
End If
Else
rst.AddNew
rst!Betreff = .Subject
rst!Inhalt = .Body
rst!BeginntAm = .Start
rst!EndetAm = .End
rst!GeaendertAm = .LastModificationTime
Set objUserProperty = .UserProperties.Add("TerminID", olText)
objUserProperty.Value = rst!TerminID
.Save
rst.Update
End If
End With
Next objAppointment
rst.Close
Set rst = Nothing
Set db = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Leider ist das immer der Standardterminkalender (also der private).
Wie kann ich diesen Code so anpassen, dass ich einen Kalender auch in öffentlichen Ordnern ansprechen kann?

:)

CptChaos · 17. Oktober 2007

Ich verwende folgenden Funktionen zum schreiben bzw. löschen eines öffentlichen Ordners:
Code:

Wally · 17. Oktober 2007

Hallo,

Dank Deiner Hilfe hab ich das erst einmal so gelöst:
Code:

Private Sub btnEinlesen_Click()
On Error Resume Next
Dim objNameSpace As Outlook.NameSpace
Dim objOutlook As Outlook.Application
Dim objFolder As Outlook.MAPIFolder
Dim objKalenderOrdner As Outlook.MAPIFolder
Dim objKalender As Outlook.MAPIFolder
Dim Kalendereintrag As Outlook.AppointmentItem
Dim i As Long

Set objOutlook = New Outlook.Application
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNameSpace.Folders.Item("Öffentliche Ordner")
Set objKalenderOrdner = objFolder.Folders.Item("Alle öffentlichen Ordner")
Set objKalender = objKalenderOrdner.Folders("Kalender_XY")

'* Lesen aller Termine
For i = objKalender.Items.Count - 1 To 0 Step -1 '* Vom aktuellsten zum ältetsten Termin
With objKalender.Items(i)

MsgBox "Betreff: " & .Subject & vbCr & "Beginn: " & .Start & " Ende: " & .End & vbCr & "Inhalt: " & .Body

End With
Next i

MsgBox "Alle Termine gelesen ..."
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist vielleicht etwas holprig, besonders hier:

Set objFolder = objNameSpace.Folders.Item("Öffentliche Ordner")
Set objKalenderOrdner = objFolder.Folders.Item("Alle öffentlichen Ordner")
Set objKalender = objKalenderOrdner.Folders("Kalender_XY")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aber, funktioniert.

Nun möchte ich aber noch einen bestimmten Zeitraum auslesen.

Wie geht das??

Wally · 17. Oktober 2007

Hallo,

mit diesem Code:

Code:

Private Sub btnEinlesen_Click()
On Error Resume Next
Dim objNameSpace As Outlook.NameSpace
Dim objOutlook As Outlook.Application
Dim objFolder As Outlook.MAPIFolder
Dim objKalenderOrdner As Outlook.MAPIFolder
Dim objKalender As Outlook.MAPIFolder
Dim Kalendereintrag As Outlook.AppointmentItem
Dim i As Long

Set objOutlook = New Outlook.Application
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNameSpace.Folders.Item("Öffentliche Ordner")
Set objKalenderOrdner = objFolder.Folders.Item("Alle öffentlichen Ordner")
Set objKalender = objKalenderOrdner.Folders("Kalender_XY")

'* Lesen aller Termine
For i = objKalender.Items.Count - 1 To 0 Step -1 '* Vom aktuellsten zum ältetsten Termin
With objKalender.Items(i)

MsgBox "Betreff: " & .Subject & vbCr & "Beginn: " & .Start & " Ende: " & .End & vbCr & "Inhalt: " & .Body

End With
Next i

MsgBox "Alle Termine gelesen ..."
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

lese ich alle Termine eines Outlook-Kalenders aus.
Nun möchte ich aber, parametrisiert, die Termine eines bestimmten Zeitraumes auslesen.

Wie geht das???

[Edit] Mof-Team AD: Aus Thread #2 zu diesem Problem. [/Edit]

Arne Dieckmann · 17. Oktober 2007

Hallo Wally,

bitte erstelle immer nur einen Thread pro Problem.
S. dazu auch unsere Netiquette..

Threads wurden zusammengeführt.

Kleiner Tipp: Um dein Anliegen im Forum erneut ins Blickfeld zu bringen, kannst du eine Antwort (z.B. mit dem Inhalt "on top") in dem alten Thema erstellen. Durch die chronologische Sortierung anhand des Beitragsdatums wandert der Thread damit -zumindest für eine gewisse Zeit- wieder auf die 1. Seite. Bitte mache aber von dieser Möglichkeit keinen exzessiven Gebrauch.

Das alte Thema findest du -sofern du registrierter Benutzer dieses Forums bist und den Thread nicht als Gast geführt hast- z.B unter deinen abonnierten Themen im Kontrollzentrum oder über das Beitragsmenü im oberen Bereich des Forums (s. Screenshot).

CptChaos · 17. Oktober 2007

Entweder prüfst Du in der For-Schleife ob .Beginn und .Ende im entsprechenden Zeitraum liegen oder Du liest Dir erstmal alle Termine z.B. in eine Tabelle oder ein Recordset ein und machst die Eingrenzung anschliessend über eine simple SQL-Abfrage (was ich bevorzugen würde).

Was soll an den Objektzuweisungen "holprig" sein?

Wally · 17. Oktober 2007

Na, das hier:

Set objPublicFolder = objNameSpace.Folders("Öffentliche Ordner").Folders("Alle Öffentlichen Ordner") 'Alle öffentlichen Ordner
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

*tongue.gif*
ist doch viel eleganter.

Prima Idee, das mit der Tabelle.

Danke für die Hilfe.

Office: (Office 2000) via Access-VBA Kalender in einem Öffentlichen Ordner von Outlook auslesen

via Access-VBA Kalender in einem Öffentlichen Ordner von Outlook auslesen

via Access-VBA Kalender in einem Öffentlichen Ordner von Outlook auslesen

via Access-VBA Kalender in einem Öffentlichen Ordner von Outlook auslesen

via Access-VBA Kalender in einem Öffentlichen Ordner von Outlook auslesen - Similar Threads - via Access VBA

Access 2013; VBA; Unterformular via ADODB

Access-Abfrage aus DB importieren und in Tabelle umwandeln via VBA

Drucker via VBA in Access 2000 und Access 2003 wechseln

PDF via VBA-Code im Access öffnen

Variabler speicherort Excelimport in Access via Button (VBA)

Mails via Access "schreiben"

Kein Zugriff von mehreren Nutzern auf eine Access-DB via LAN