Distribute Outlook Macro Batch

<mso:customUI xmlns:x1="http://schemas.microsoft.com/office/2009/07/customui/macro" xmlns:mso="http://schemas.microsoft.com/office/2009/07/customui"><mso:ribbon><mso:qat/><mso:tabs><mso:tab id="mso_c2.1F230174" label="MACROS" insertBeforeQ="mso:TabCalendarTableView"><mso:group id="mso_c3.1F230174" label="SORT" imageMso="ListMacros" autoScale="true"><mso:button idQ="x1:Project1.Sort_AllInboxItems_0_AA90361" label="Sort Folder" imageMso="ListMacros" onAction="Project1.Sort_AllInboxItems" visible="true"/></mso:group><mso:group id="mso_c2.1F8388B2" label="FILTER" autoScale="true"><mso:button idQ="x1:Project1.ShowExtraFilters_UserForm_0_A1F97D0" label="Extra Filters" imageMso="ListMacros" onAction="Project1.ShowExtraFilters_UserForm" visible="true"/><mso:button idQ="x1:Project1.Backup_ExtraFiltersDic_0_AAB299C" label="Backup ExtraFilters" imageMso="ListMacros" onAction="Project1.Backup_ExtraFiltersDic" visible="true"/></mso:group></mso:tab></mso:tabs></mso:ribbon></mso:customUI>

@echo off
pushd %~dp0
cls
::FreeSoftwareServers.com

set OUTLOOK=%appdata%\Microsoft\Outlook
set OFFICEUI=%userprofile%\AppData\Local\Microsoft\Office

IF EXIST "%OUTLOOK%" GOTO FOUNDOL
md "%OUTLOOK%"
:FOUNDOL

IF EXIST "%OFFICEUI%" GOTO FOUNDOUI
md "%OFFICEUI%"
:FOUNDOUI

::Outlook
CALL "%~dp0\..\Certs\Import_Cer_CurrentUser_TrustedRoot-TrustedPub-Personal.cmd"
tskill outlook
del "%OUTLOOK%\VbaProject.OTM" /s /f /q
copy "%~dp0VbaProject.OTM" "%OUTLOOK%"
del "%OFFICEUI%\olkexplorer.officeUI" /s /f /q
copy "%~dp0olkexplorer.officeUI" "%OFFICEUI%"
del "%OFFICEUI%\ExtraFiltersDicCSV.csv" /s /f /q
copy "%~dp0ExtraFiltersDicCSV.csv" "%OFFICEUI%"

::PAUSE

@echo off
pushd %~dp0
cls
::FreeSoftwareServers.com

set OUTLOOK=%appdata%\Microsoft\Outlook
set OFFICEUI=%userprofile%\AppData\Local\Microsoft\Office
set TEMP=%TEMP%
set PROJDIR=path\Outlook\Macros
Set ONEDRIVE=%ONEDRIVE%\Outlook\

::Outlook

del "%PROJDIR%\VbaProject.OTM"  /s /f /q
copy "%OUTLOOK%\VbaProject.OTM" "%PROJDIR%\VbaProject.OTM"
copy "%OUTLOOK%\VbaProject.OTM" "%ONEDRIVE%\VbaProject.OTM"


del "%PROJDIR%\olkexplorer.officeUI" /s /f /q
copy "%OFFICEUI%\olkexplorer.officeUI" "%PROJDIR%"
copy "%OFFICEUI%\olkexplorer.officeUI" "%ONEDRIVE%"

del "%PROJDIR%\ExtraFiltersDicCSV.csv" /s /f /q
copy "%OFFICEUI%\ExtraFiltersDicCSV.csv" "%PROJDIR%"

PAUSE