[Beliy.IV]

РЕШЕНО: помогло

команда

Код:

@echo off
set TMPOutlookFolder=c:\Outlook\
if exist %LocalAppData%\Microsoft\Outlook (set outlook_a=%LocalAppData%\Microsoft\Outlook) else (set outlook_a=%AppData%\..\Local Settings\Application Data\Microsoft\Outlook)
set outlook_r=%AppData%\Microsoft\Outlook
set o15=HKCU\Software\Microsoft\Office\15.0\Outlook\Profiles
set o14=HKCU\Software\Microsoft\Office\14.0\Outlook\Profiles
set o_all="HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles"
taskkill /im "outlook.exe" /f
if not exist %TMPOutlookFolder% md %TMPOutlookFolder%
for /f %%a in ('dir /b %outlook_a%\*.pst') do (move %outlook_a%\%%a %TMPOutlookFolder%)
for /f %%a in ('dir /b %outlook_r%\*.pst') do (move %outlook_a%\%%a %TMPOutlookFolder%)
rd /s /q %outlook_a%
rd /s /q %outlook_r%
reg query %o15%>nul
if %errorlevel%==0 (
    reg export %o15% %TMPOutlookFolder%\o15_backup.reg /y
    reg export %o_all% %TMPOutlookFolder%\o_all_backup.reg /y
    reg delete %o_all% /f
    reg delete %o15% /f
    reg add %o15%\Outlook
    reg add %o_all%\Outlook
    goto :CreateNewConfig
)
reg query %o14%>nul
if %errorlevel%==0 (
    reg export %o15% %TMPOutlookFolder%\o15_backup.reg /y
    reg export %o_all% %TMPOutlookFolder%\o_all_backup.reg /y
    reg delete %o_all% /f
    reg delete %o14% /f
    reg add %o14%\Outlook
    reg add %o_all%\Outlook
) else (
    reg export %o_all% %TMPOutlookFolder%\o_all_backup.reg /y
    reg delete %o_all% /f
    reg add %o_all%\Outlook
)
:CreateNewConfig
shutdown /l

И руками почистить ОБЯЗАТЕЛЬНО ..\AppData\Local\Microsoft\Outlook и ..\Documents\Файлы Outlook