Comment trouver le chemin complet du fichier Outlook .pst?

Question

Existe-t-il un moyen de rechercher par programme l'emplacement du (des) fichier (s) Outlook Outlook de l'utilisateur actuel via un appel API ou une entrée de registre?

Answer 1

Avec Outlook Redemption, vous pouvez itérer les banques de messages dans VBA à l'aide de la collection RDOStores, accessible via la propriété RDOSession.Stores.

Je cherche la possibilité de faire quelque chose de similaire dans hors-the-box VBA ...

EDIT:

De toute évidence, le chemin du PST est codé dans la chaîne de StoreID. Google se place this:

Sub PstFiles() 
    Dim f As MAPIFolder 

    For Each f In Session.Folders 
    Debug.Print f.StoreID 
    Debug.Print GetPathFromStoreID(f.StoreID) 
    Next f 
End Sub 

Public Function GetPathFromStoreID(sStoreID As String) As String 
    On Error Resume Next 
    Dim i As Long 
    Dim lPos As Long 
    Dim sRes As String 

    For i = 1 To Len(sStoreID) Step 2 
    sRes = sRes & Chr("&h" & Mid$(sStoreID, i, 2)) 
    Next 

    sRes = Replace(sRes, Chr(0), vbNullString) 
    lPos = InStr(sRes, ":\") 

    If lPos Then 
    GetPathFromStoreID = Right$(sRes, (Len(sRes)) - (lPos - 2)) 
    End If 
End Function 

testé Juste, fonctionne comme prévu.

Answer 2

Le chemin doit être quelque part sous:

[HKEY_CURRENT_USER \ Software \ Microsoft \ Windows NT \ CurrentVersion \ Windows Messaging Sous-système \ Profiles \ Outlook]

Peut-être que cela aide un peu .