Как найти полный путь к Outlook .pst файла?

Question

Есть ли способ программно найти расположение PST-файлов Outlook текущего пользователя с помощью вызова API или записи в реестре?

Answer 1

С помощью Outlook Redemption вы можете перебирать хранилища сообщений в VBA, используя коллекцию RDOStores, доступную через свойство RDOSession.Stores.

Я изучаю возможность сделать что-то подобное в готовом VBA ...

EDIT:

Очевидно, что путь к PST кодируется в строке StoreId. Google обнаружил это :

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

Только что протестировано, работает как задумано.

Answer 2

Путь должен быть где-то под:

[HKEY_CURRENT_USER \ Software \ Microsoft \ Windows NT \ CurrentVersion \ Windows Messaging Subsystem \ Profiles \ Outlook]

Может быть, это немного помогает.