After Outlook 2013 Widows Update (KB2817630) Outlook Folder Pane displays as empty

After applying the Outlook 2013 Widows Update  (KB2817630) released on Sept. 10, 2013 your Outlook Folder Pane displays as empty.

To resolve the issue close out of Outlook and go to Control Panel > Programs and Features >View installed Updates and remove all instances of KB2817630 I had two versions installed and removed both.  After re-launching Outlook the folder pane was back to normal.

Open Outlook 2003, 2007, 2010 or 2013 secure temp olk folderlocation.vbs script

A useful script, especially for those high maintenance users who insist on editing excel or word documents they open from Outlook and then frantically calling your help desk complaining they can't locate files they saved while working in Outlook. Place the script on their desktop and have them run it first before calling your help desk.. Works with Outlook 2003, 2007, 2010 and now also with Outlook 2013.

 ' This script will open the Outlook Secure Temp folder location for Outlook   
  ' 2003, 2007, 2010 and 2013   
  Dim WshShell, strValue, openlocation   
  Set WshShell = WScript.CreateObject(“WScript.Shell”)   
  const HKEY_CURRENT_USER = &H80000001   
  on error resume next   
  strComputer = “.”   
  Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\” &_   
  strComputer & “rootdefault:StdRegProv”)   
  strKeyPath = “SoftwareMicrosoftOffice11.0OutlookSecurity”   
  strValueName = “OutlookSecureTempFolder”   
  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue   
  If IsNull(dwValue) Then   
  Else   
  strKeyPath = “SoftwareMicrosoftOffice11.0OutlookSecurity”   
  strValueName = “OutlookSecureTempFolder”   
  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue   
  openlocation = “EXPLORER.exe /e,” & strValue   
  wShshell.Run openlocation   
  End If   
  strKeyPath = “SoftwareMicrosoftOffice12.0OutlookSecurity”   
  strValueName = “OutlookSecureTempFolder”   
  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue   
  If IsNull(dwValue) Then   
  Else   
  strKeyPath = “SoftwareMicrosoftOffice12.0OutlookSecurity”   
  strValueName = “OutlookSecureTempFolder”   
  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue   
  openlocation = “EXPLORER.exe /e,” & strValue   
  wShshell.Run openlocation   
  End If   
  strKeyPath = “SoftwareMicrosoftOffice14.0OutlookSecurity”   
  strValueName = “OutlookSecureTempFolder”   
  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue   
  If IsNull(dwValue) Then   
  Else   
  strKeyPath = “SoftwareMicrosoftOffice14.0OutlookSecurity”   
  strValueName = “OutlookSecureTempFolder”   
  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue   
  openlocation = “EXPLORER.exe /e,” & strValue   
  wShshell.Run openlocation   
  End If   
  strKeyPath = “SoftwareMicrosoftOffice15.0OutlookSecurity”   
  strValueName = “OutlookSecureTempFolder”   
  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue   
  If IsNull(dwValue) Then   
  Else   
  strKeyPath = “SoftwareMicrosoftOffice15.0OutlookSecurity”   
  strValueName = “OutlookSecureTempFolder”   
  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue   
  openlocation = “EXPLORER.exe /e,” & strValue   
  wShshell.Run openlocation   
  End If   
  WScript.Quit