有没有办法通过API调用或注册表项以编程方式查找当前用户的Outlook .pst文件的位置?
答案 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 子系统\概况\展望]
也许这有点帮助。