Take the 2-minute tour ×
Super User is a question and answer site for computer enthusiasts and power users. It's 100% free, no registration required.

At my current workplace we are upgrading various users from XP to Windows 7. Frequently the users have anywhere from 10 to 30 or so .pst files opened within their installation of Microsoft Outlook 2007. These users are particularly helpless without these files.

I know how to view the list of currently opened PST files, and would like to know if there is an easy way to capture that information other than taking screenshots of the Options -> Data Files window.

Does migwiz.exe transfer this information? Is that the only way?

Would there happen to be a tool that will let you capture and restore that information?

I don't want to export or move the actual .pst's themselves (yes, some of them are on network locations, very terrible, I know), just reopen ones in a new installation of Outlook that used to be opened in a previous installation.

share|improve this question
    
i've got a similar issue now, i need to go from '03 to '10. USMT won't migrate outlook, need to figure out how to export and import mounted pst's on the new machine automatically –  acme64 Jun 7 '12 at 15:54
1  
Please don't create new tags when it's not necessary. –  Daniel Beck Jun 7 '12 at 21:18
1  
I have a vbscript that is capable of that, will that do ? –  peter Jun 7 '12 at 21:37
    
@Peter: Bring it on. –  ultrasawblade Jun 8 '12 at 0:13
add comment

1 Answer

up vote 2 down vote accepted

Here a vbscript that lists the PST's in the users profile

set objOutlook = createObject("Outlook.Application")
set objMAPI = objOutlook.GetNamespace("MAPI")
for each PSTFolder In objMAPI.Folders
  pstPath = GetPath(PSTFolder.StoreID)
  if pstPath <> "" then
    wscript.echo PSTFolder.name & " : " & pstPath
  end if
next

function GetPath(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
    GetPath = Mid(strPath,InStr(strPath,":\")-1)
  case InStr(strPath,"\\") > 0
    GetPath = Mid(strPath,InStr(strPath,"\\"))
  end Select
end Function
share|improve this answer
add comment

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.