winapi - localizar - ¿Cómo encontrar la ruta completa del archivo.pst de Outlook?

outlook.pst no existe

Question

¿Hay alguna manera de encontrar mediante programación la ubicación de los archivos .pst de Outlook del usuario actual a través de una llamada API o una entrada de registro?

Answer 1

El camino debe estar en algún lugar debajo de:

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

Tal vez esto ayude un poco.

Answer 2

Con el canje de Outlook , puede iterar los almacenes de mensajes en VBA utilizando la colección RDOStores , accesible a través de la propiedad RDOSession.Stores .

Estoy buscando la posibilidad de hacer algo similar en VBA listo para usar ...

EDITAR:

Obviamente, la ruta al PST está codificada en la cadena StoreId. Google apareció esto :

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

Recién probado, funciona según lo diseñado.