ОК, я выполнил это с помощью SmartPST (Freeware) и AutoIT (Freeware.)
С SmartPST я могу массово добавлять файлы PST в мой профиль Outlook. Перетащите.
И следующий скрипт AutoIT, который я выкопал, повторяет каждый и сокращает. Запустите его на виртуальной машине, чтобы избежать текущей работы.
Это оказалось лучшим, что я мог просить. Перетащите, а затем нажмите решение. :) ИТ-автоматизация не становится лучше, чем это.
#include <GUIListView.au3> SplashTextOn("Compacting now", "This may take hours...", 250, 40) ;//Runs the mail application that is in control panel. $Path = FileGetShortName(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Control Panel\Cpls", "mlcfg32.cpl")) Run(@SystemDir & "\control.exe " & $Path) Opt("WinTitleMatchMode", 4) WinWait("Mail Setup - Outlook", "Setup e-mail accounts and dire") ControlClick("Mail Setup - Outlook", "Setup e-mail accounts and dire", "Button2") WinWait("Account Settings", "AcctMgr Tab") ;//Gets list of data files listed $sTitle = "Account Settings" $hWnd = WinGetHandle($sTitle) If @error Then MsgBox(0, "Error", "Unable to find window") EndIf WinActivate($hWnd) $hlist = ControlGetHandle($hWnd, "", "[CLASS:SysListView32; INSTANCE:2]") If @error Then Exit $arraycount = _GUICtrlListView_GetItemCount($hlist) Local $ltext[$arraycount] $i = 0 Do $ltext[$i] = _GUICtrlListView_GetItemText($hlist, $i) $i = $i + 1 Until $i = $arraycount ;//Goes into each listed Data file and compresses them $b = 0 Do _GUICtrlListView_ClickItem($hlist, $b, "left", False, 2) Sleep(1000) WinWaitActive("Outlook Data File") ControlClick("Outlook Data File", "", "[CLASS:Button; INSTANCE:2]") ; click Compact Now Sleep(1200) If WinExists("Compact Now") Then WinWaitClose("Compact Now") WinClose("Outlook Data File") $b = $b + 1 Until $b = $arraycount WinClose("Outlook Data Files") WinClose("Account Settings") WinClose("Mail Setup - Outlook") SplashOff() MsgBox(64, "Outlook", "All accounts were processed." & @CRLF & "Closing in 5 seconds...", 5) Exit