Question

我有以下代码在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)
    '-----------------------------//-----------------------------

从Project到Outlook的自定义XML功能区

0 个答案: