Office: (Office 2003) GetNamespace: Fehler-Meldung, Verweis vorhanden

Hallo,

ich bin verzweifelt, daher bitte Hiiilfe!!!

Ich lese mit Access meinen Outlook-Kalender aus. Der Code hat Funktioniert.
Die Betonung liegt auf hat.

Code:

Dim objApp As Application
Dim objNS As NameSpace
Dim objCalendar As MAPIFolder
Dim objItem As AppointmentItem
Dim strSubject As String
Dim ObjRecipient As Recipient
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objCalendar = objNS.GetDefaultFolder(olFolderCalendar)

Jetzt kommt die Fehlermeldung:

Methode oder Datenobjekt nicht gefunden.

Mein erster Gedanke war der Verweis auf die Outlook-Objekt Libary 11 ist abhanden gekommen.

Dem war nicht so. Versuche sie herauszunehmen und erneut zu verbinden blieben genauso erfolglos wie es mit VB-Code das Problem zu lösen mit
folgendem Code:

Application.References.AddFromFile "C:\Programme\Microsoft Office\OFFICE11\msoutl.olb

Wie gesagt, Fehler bleibt weiterhin bestehen und bin am Ende mit meinem Latein, da es am Anfang funktioniert hat.

Bitte helft mir

:)

 

Hallo goblin25,

also ich arbeite ganz ohne den Outlook-Verweis und benutze

Dim myOutlApp As Object
Dim myCal As Object
Set myOutlApp = CreateObject("Outlook.Application")
Set myCal = myOutlApp.GetDefaultFolder(olFolderCalendar)

***ungetestet - zumindest keine Fehlermeldung. Den Rest bitte selber ergänzen...
Ich nehme das zum Versenden von Emails, habs nur mal für den Kalender umgeschrieben. Durch den nicht benötigten Verweis ist es unabhängig von der Outlook-Version.

Gruß,
Jan

 

Danke Jan für deine Antwort,

ich habs dank deines Denkanstoßes hinbekommen.