Outlook

如何找出使用者附加到其 Outlook 帳戶的 PST 文件?

  • August 19, 2009

我們有一些以前員工留下的相當大的 Outlook PST 文件。其中一些連接到企業中的 Outlook(2003 和 2007)帳戶,並且似乎被標記為備份,即使內容沒有改變(據我所知,無論如何。)

現在我可以**詢問網路上的每個使用者他們是否正在這樣做,或者我可以通過網路以某種方式找出答案。如果我想做後者,我將如何完成它?

嘗試以下腳本作為登錄腳本。

它是來自以下頁面的腳本的混合

http://blogs.msdn.com/brijs/archive/2009/05/06/remove-all-pst-from-the-outlook-mailbox-using-vbscript.aspx

http://www.visualbasicscript.com/m44947.aspx

Set objOL = CreateObject("Outlook.Application")
Set objFolders = objOL.Session.Folders

For j = objFolders.Count To 1 Step -1
   Set objFolder = objFolders.Item(j)

   If (InStr(1, objFolder.Name, "Mailbox") = 0) And (InStr(1, objFolder.Name, "Public Folders") = 0) Then
   WScript.Echo objFolder.Name
   WScript.Echo GetPSTPath(objFolder.storeid)

End If
Next

Function GetPSTPath(input)
For i = 1 To Len(input) Step 2
   strSubString = Mid(input,i,2)
   If Not strSubString = "00" Then
       strPath = strPath & ChrW("&H" & strSubString)
   End If
Next

Select Case True
Case InStr(strPath,":\") > 0
   GetPSTPath = Mid(strPath,InStr(strPath,":\")-1)
Case InStr(strPath,"\\") > 0
   GetPSTPath = Mid(strPath,InStr(strPath,"\\"))
End Select
End Function

引用自:https://serverfault.com/questions/55893