如何查找Outlook .pst文件的完整路径?

时间:2008-10-12 18:57:17

标签: winapi vba outlook registry pst

有没有办法通过API调用或注册表项以编程方式查找当前用户的Outlook .pst文件的位置?

2 个答案:

答案 0 :(得分:5)

使用Outlook Redemption,您可以使用RDOStores集合在VBA中迭代邮件存储,可以通过RDOSession.Stores属性访问。

我正在研究在开箱即用的VBA中做类似事情的可能性......

编辑:

显然,PST的路径是在StoreId字符串中编码的。 Google出现了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

刚刚测试过,按设计工作。

答案 1 :(得分:0)

路径应该在以下某处:

  

[HKEY_CURRENT_USER \软件\微软\的Windows   NT \ CurrentVersion \ Windows Messaging   子系统\概况\展望]

也许这有点帮助。