Pregunta Actualice de MS Outlook 2003 a MS Outlook 2013: ¿cómo migrar vistas personalizadas y barras de menú?


Actualmente estoy trabajando con Microsoft Outlook 2003 y desea actualizar a MS Outlook 2013``.

He hecho algunos modificaciones que era importante para mi trabajo y me pregunto ¿Cuál es la forma más fácil de incluirlos en el nuevo Outlook 2013:

  • vistas personalizadas: estoy trabajando con vistas personalizadas (principalmente tablas) en correos electrónicos y calendarios
  • menús personalizados: he creado 2 menús adicionales en la barra de menú que me permiten iniciar makros directamente (también con atajos de teclado)
  • carpetas de búsqueda: estoy trabajando con algunas carpetas de búsqueda personalizadas que usan vistas personalizadas y he creado algunas de las macros VBA mencionadas anteriormente para saltar directamente a esas vistas con ciertos atajos de teclado

1


origen


Debería volver a crear estas vistas, menús y etc. en Outlook 2013. Deberá asegurarse de que las macros aún funcionen, y si usan una función de depreciación, actualícelas. - Ramhound
hm, ¿podría al menos dejar que VBA imprima una lista de las entradas del menú con su nombre y la macro vba vinculada en mis menús personalizados para facilitar el proceso de recreación? - MostlyHarmless


Respuestas:


esta es solo una respuesta parcial, pero la ampliaré si es posible

Exportar menús personalizados en Outlook 2007 a través de VBA

Hice una captura de pantalla de los menús personalizados para documentar el status quo en Office 2007.
Con el siguiente código VBA, al menos era posible exportar el nombre y el procedimiento macro utilizado para cada entrada de menú (imprimirlos en la Ventana de salida en VBA), lo que me ahorró mucho clics y copias:

Observación: debe ingresar el nombre del menú personalizado, en el ejemplo que se describe a continuación, se llama &Especial .

Sub ListMenuItems()
    Dim oCBmnuTools As Office.CommandBarPopup
    Dim oCBmnuSaveMe As Office.CommandBarButton

    Set oCBmnuTools = Application.ActiveExplorer.CommandBars("Menu Bar").Controls("&Special")

Dim i As Integer
For i = 1 To oCBmnuTools.Controls.Count
    With oCBmnuTools.Controls.Item(i)
        Debug.Print .Caption & vbCr & .Parameter & vbCr
    End With
Next i
End Sub

1