Как найти полный путь к файлу Outlook .pst?
Вопрос
Есть ли способ программно определить местоположение файлов Outlook .pst текущего пользователя с помощью вызова API или записи в реестре?
Решение
С Погашение перспективы, вы можете перебирать хранилища сообщений в VBA с помощью RDOStores
коллекция, доступная через RDOSession.Stores
собственность.
Я изучаю возможность сделать что-то подобное в готовом VBA...
Редактировать:
Очевидно, что путь к 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
Только что протестирован, работает так, как задумано.
Другие советы
Путь должен быть где-то под:
[HKEY_CURRENT_USER\Программное обеспечение\Microsoft\ Windows NT\ CurrentVersion \ Сообщения Windows Подсистема \Профили \ Outlook]
Может быть, это немного поможет.
Не связан с StackOverflow