Access 2013 abfrage zum Pfad der Outlook pst

Question

Hallo

ich versuche mit folgendem Code den oder die Pfade zur Outlook PST aufzulisten

nur bekomme ich diesen nicht ausgegeben - anstelle dessen ""

Dim objOutl As Object
Dim oNameSpace As Object
Dim oStore As Object
Dim oStores As Object

Set objOutl = CreateObject("outlook.application")
Set oNameSpace = objOutl.GetNamespace("MAPI")

Set oStores = oNameSpace.Stores

For Each oStore In oStores
    Debug.Print "Pfad :" & oStore.FilePath & vbCrLf
Next oStore

Answer 1

Bei mir listet das die PSTs richtig, nicht aber OSTs. Versuchs mal mit

Debug.Print oStore.DisplayName & ": " & "Pfad: " & oStore.FilePath

Matthias Kläy, Kläy Computing AG

Answer 2

Hmm - Stimmt das sind OSTs

wie komme ich den da ran?

Answer 3

Die OST's liegen nicht in Deinem Filesystem.

Das sind Container z.B. auf dem Exchange Server.

Ich liste meine Ordner so auf:

Set oNameSpace = objOutl.GetNamespace("MAPI")

For Each myFolder In oNameSpace.Folders
    Debug.Print myFolder.Name
    If myFolder.Store.IsDataFileStore Then
        Debug.Print "   " + myFolder.Store.FilePath
    Else
        Debug.Print "   ***Ordner ist ein Exchange Ordner***"
    End If
Next myFolder

Anhand von der Eigenschaft "IsDataFileStore" erkenne ich, ob der Container des Ordners im Filesystem liegt.

Grüße

Roland

Answer 4

Falls Du bestimmte Ordner im Filesystem benötigst, kannst Du Dir ja zunächst unter:

"Neue Elemente" -> "Weitere Elemente" -> "Outlook-datendatei.."  eine neue Outlook-Datendatei anlegen, und anschliesend die gewünschten Ordner in Diese datendatei kopieren, oder verschieben.

Grüße

Roland

Answer 5

Danke erst einmal

Outlook 13 legt bei mir OSTs auf dem System an - ich verstehe aber das es auch -das diese "extern" liegen können

ich bin eh ganz falsch an die Sache heran gegangen

ich muss über ein Connection String (.SetDataProvider "Provider=MAPI;")

eine Verbindung zu Outlook aufbauen und wollte über die PST den richtigen Kalender zuweisen

was aber so überhaupt nicht geht

finde nicht wie dieser Connection String sich zusammensetzt - wenn ich diesen so übergebe greift er immer auf den Standard Kalender zu was ich heraus gefunden habe das ich noch das Profil mitgeben kann

.SetDataProvider "Provider=MAPI;mapiProfileName = Outlook;"

aber wie gesagt Danke erst mal - ich suche erst mal weiter