无法在 Office Outlook 2021 中导入工具栏

Question

所以我在 Outlook 2021 中制作了一个自定义工具栏按钮，并将其完全导出。 但是当我尝试通过 VBA 或手动导入它时，outlook 似乎并不关心它。 在 Office 2016 中，工具栏的工作方式完全不同，没有任何问题。 根本没有显示任何错误消息。

这是负责导入 UI 的 vba 代码。

Dim olApp As Object
Set olApp = Createobject("Outlook.Application")
Dim exportedUIPath As String
exportedUIPath "path\to\UI\0ffice2022.exportedUI"
olApp.Application.LoadCustomUI(exportedUIPath)
olApp-Application.SaveustomUI
Set olApp - Nothing
rem pause

UI本身就是这样构建的

<mso:cmd app="olkexplorer" dt="0" slr="0" />
<mso:customUI xmlns:xl="http://schemas.microsoft.com/office/2009/07/customui/macro" xmlns:mso="http://schemas.microsoft.com/office/2009/07/customui">
<mso:ribbon>
<mso:qat>
<mso:sharedControls>
<mso:control idQ-"mso:FilePrint" visible="false"/>
<mso:control idQ-"mso:FileSaveAs" visible-"false"/>
<mso:control idQ="mso:SendReceiveAll" visible="true"/>
<mso:control idQ="mso:UpdateFolder" visible="false"/>
<mso:control idQ="mso:Reply" visible="false"/>
<mso:control idQ="mso:ReplyAll" visible="false"/>
<mso:control idQ="mso:Forward" visible="false"/>
<mso:control idQ="mso:Delete" visible="false"/>
<mso:control idQ="mso:Undo" visible="true"/>
<mso:control idQ="mso:EmptyTrash" visible="false"/>
<mso:control idQ-"mso:PointerModeOptions" visible="false"/>
<mso:control idQ="mso:FindContactCombo" visible="false"/>
<mso:control idQ="mso:MinimizeRibbon" visible="false"/>
<mso:control idQ="mso:NavBack" visible="false"/>
<mso:control idQ="mso:NavForward" visible="false"/>
</mso:sharedControls>
</mso:qat>
<mso:tabs>

这个构建的其余部分是我的自定义按钮，太多了，无法复制到这里（整个项目在我工作场所的另一个网络上，传输代码示例并不容易）

Answer 1

所以，显然问题一直在 .exportedUI 文件中。 在文件片段的第一行。 具体来说，我必须将“slr”值从 0 更改为 1。 由于我更改了该值，VBScript 代码工作得非常好。