Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Access2010 - Outlook2010 Zugriff auf den Kalender funktioniert nicht mehr

Frage Entwicklung VB for Applications

Mitglied: RDiller

RDiller (Level 1) - Jetzt verbinden

15.06.2012 um 10:15 Uhr, 4053 Aufrufe, 4 Kommentare

Lieb Kollegen,

folgendes Problem:
Nach und nach werden alle Office Versionen von 2007 auf 2010 umgestellt.
Bei einer Access Anwendung wird auf einen öffentlichen Kalender zugegriffen un desses Inhalt ausgelesen. Mit der 2007'er Version funktioniert das problemlos, aber bei der 2010'er Version erscheint die Fehlermeldung: "Der versuchte Vorgang konnte nicht ausgeführt werden. Ein Objekt wurde nicht gefunden."

Der Fehler wird durch den Befehl "Set objPublicFolder = objNameSpace.Folders("Öffentliche Ordner")....) hervorgerufen.

Kompletter Code:
Set objOutlook = New Outlook.Application
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objPublicFolder = objNameSpace.Folders("Öffentliche Ordner").Folders("Alle Öffentlichen Ordner").Folders("DE").Folders("Change Kalender AW-Germany").Folders("Changekalender AW Frankfurt/Aachen")
Set fldPublicCalender = objPublicFolder

Die Verweise auf die Object Libraries (14'er) sind korrekt und das Kompilieren erzeugt keine Fehler.

Ich hoffe Ihr könnt mir Helfen.

Danke

Ralf

Mitglied: NetWolf
15.06.2012 um 10:19 Uhr
Moin Moin,

erst mal im Einzelschritt den Code ausführen und herausfinden, in welcher Zeile der Fehler entsteht.

Da 2010 die Öffentlichen Ordner geändert hat auf "USERNAME.ÖffenlicherOrdnerName" könnte das dein Problem sein.

Grüße aus Rostock
Wolfgang
(Netwolf)
Bitte warten ..
Mitglied: RDiller
15.06.2012 um 11:25 Uhr
Das sieht wirkilch so aus.
Der Fehler erscheint bei:
Set objPublicFolder = objNameSpace.Folders("Öffentliche Ordner").Folders("Alle Öffentlichen Ordner").Folders("DE").Folders("Change Kalender AW-Germany").Folders("Changekalender AW Frankfurt/Aachen")

Ich habe verschiedene Varianten versucht, aber keine funktioniert.
z.B.:
Set objPublicFolder = objNameSpace.Folders("user@domain").Folders("Öffentliche Ordner").Folders("Alle Öffentlichen Ordner").Folders("DE").Folders("Change Kalender AW-Germany").Folders("Changekalender AW Frankfurt/Aachen")
Bitte warten ..
Mitglied: NetWolf
15.06.2012 um 12:38 Uhr
Ich denke du hast mich noch nicht verstanden:

objNameSpace.Folders("user@domain").Folders("Öffentliche Ordner")

Die Bezeichnung "Öffentliche Ordner" gibt es so nicht mehr!
diese werden nun wie folgt benannt: "USERNAME.Öffentliche Ordner"

Keine Ahnung warum MS das so geändert hat, aber es bereitet nicht nur dir Probleme.

Grüße aus Rostock
Wolfgang
(Netwolf)
Bitte warten ..
Mitglied: RDiller
15.06.2012 um 14:16 Uhr
OK hier die Lösung:

Aus irgend einem Grund muss man erst eine Referenz zu der Root des Öffentlich Ordners erstellen und kann danach zum eigentlichen Ziel referenzieren.


Hier der Code, der erst abprüft, welche Outlook Version genutzt wird und dann die Emailadresse des Nutzers ermittelt.

Set objOutlook = New Outlook.Application
Set objNameSpace = objOutlook.GetNamespace("MAPI")

If InStr(objOutlook.Application.Version, "14") Then
Set accs = objNameSpace.Accounts
For Each Account In accs
If Account.AccountType = olExchange And Account.SmtpAddress = objNameSpace.Session.DefaultStore Then
pupfldr = "Öffentliche Ordner - " & Account.SmtpAddress
Set pub = objNameSpace.Folders(pupfldr)
objPublicFolder = pub.Folders.Item("Alle Öffentlichen Ordner").Folders.Item("XX").Folders.Item("YYY").Folders.Item("ZZZ")
)
End If
Next
Else
Set objPublicFolder = objNameSpace.Folders("Öffentliche Ordner").Folders("Alle Öffentlichen Ordner").Folders("XXX").Folders("YYY").Folders("ZZZ")

End If
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
gelöst Outlook Kalender freigeben funktioniert nicht (1)

Frage von Zippo97 zum Thema Outlook & Mail ...

Windows Netzwerk
RDP-Verbindung funktioniert nicht über Fritz!Box-VPN (7)

Frage von MIlexx zum Thema Windows Netzwerk ...

Windows Netzwerk
Domain Master Browsing funktioniert nicht in verschiedenen VLans

Frage von drewsho zum Thema Windows Netzwerk ...

Neue Wissensbeiträge
Windows 10

Windows 8.x oder 10 Lizenz-Key aus dem ROM auslesen mit Linux

(6)

Tipp von Lochkartenstanzer zum Thema Windows 10 ...

Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(40)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Heiß diskutierte Inhalte
Windows 10
gelöst Windows 10 Home "Netzlaufwerk nicht bereit" (19)

Frage von Oggy01 zum Thema Windows 10 ...

Exchange Server
gelöst RU 17 Exchange 2010 . Erfahrungen? (10)

Frage von keine-ahnung zum Thema Exchange Server ...

Datenbanken
gelöst MySQL Zeiterfassungs-Problematik (wer ist eingecheckt) (9)

Frage von NativeMode zum Thema Datenbanken ...

Windows Server
Festplatten Ruhezustand Windows Server 2016 (8)

Frage von ahaeuser zum Thema Windows Server ...