كيفية العثور على المسار الكامل لملف توقعات الباسيفيكي؟

Question

هل هناك طريقة للعثور على برمجيا موقع ملف المستخدم الحالي توقعات الباسيفيكي (ق) من خلال إدخال دعوة API أو التسجيل؟

Answer 1

توقعات الخلاص ، يمكنك تكرار مخازن الرسالة في VBA باستخدام RDOStorescollection، يمكن الوصول إليها عبر RDOSession.Stores الممتلكات.

وأنا أبحث في إمكانية القيام بشيء مماثل في الخروج من مربع-VBA ...

وتحرير:

ومن الواضح أن يتم ترميز المسار إلى PST في سلسلة StoreId. تحولت جوجل تصل هذا :

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 \ مايكروسوفت \ ويندوز   NT \ كرنتفرسون \ Windows المراسلة   الفرعي \ الملامح \ توقعات]

وربما هذا يساعد قليلا.