我有以下代码在Project 2016中创建自定义功能区。我想在Outlook 2013中创建相同的功能区。当我尝试在Outlook模块中运行代码时，它会在ActiveProject.SetCustomUI (ribbonXml)处抛出错误
Outlook的正确表达是什么？
Sub PNtab()
'v1'-----------------------------//-----------------------------
'ACTIVA O SEPARADOR DO MÓDULO DE PRODUTOS NOVOS
Dim ribbonXml As String
ribbonXml = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">"
ribbonXml = ribbonXml + "<mso:ribbon>"
ribbonXml = ribbonXml + "<mso:tabs>"
'Título do módulo
ribbonXml = ribbonXml + "<mso:tab id=""produtos_novos"" label=""Produtos Novos"">"
ribbonXml = ribbonXml + "<mso:group id=""newProject"" label=""New Project"" autoScale=""true"">"
'New Project
ribbonXml = ribbonXml + "<mso:button id=""new"" enabled=""true"" label=""New Project"" imageMso=""SourceControlAddObjects"" size=""large"" screentip=""Novo Projeto"" supertip=""Cria novo projeto baseado no APQP disponível na documentação de suporte."" onAction=""newProjectForm"" visible=""true"" />"
ribbonXml = ribbonXml + "</mso:group>"
'Rótulo do primeiro separador - New Product
ribbonXml = ribbonXml + "<mso:group id=""new_product"" label=""New Product"" autoScale=""true"">"
'Presentation Meeting
ribbonXml = ribbonXml + "<mso:button id=""newProjectPN"" enabled=""true"" label=""Presentation Meeting"" imageMso=""MeetingsWorkspace"" size=""large"" screentip=""Apresentação Produto Novo"" supertip=""Cria apresentação em PowerPoint baseada nos dados inseridos em Dados do Projeto."" onAction=""newProjectPN"" visible=""true"" />"
ribbonXml = ribbonXml + "</mso:group>"
ribbonXml = ribbonXml + "</mso:tab>"
ribbonXml = ribbonXml + "</mso:tabs>"
ribbonXml = ribbonXml + "</mso:ribbon>"
ribbonXml = ribbonXml + "</mso:customUI>"
ActiveProject.SetCustomUI (ribbonXml)
'-----------------------------//-----------------------------