Обновление с MS Outlook 2003 до MS Outlook 2013 - как перенести пользовательские представления и строки меню?

413
MostlyHarmless

В настоящее время я работаю с Microsoft Outlook 2003и хочу перейти на MS Outlook 2013`.

Я сделал несколько модификаций, которые важны для моей работы, и мне интересно, как проще всего внедрить их в новоеOutlook 2013 :

  • настраиваемые представления - я работаю с настраиваемыми представлениями (в основном таблицами) в сообщениях электронной почты и календаре
  • пользовательские меню - я создал 2 дополнительных меню в строке меню, которые позволяют мне запускать макросы напрямую (также с помощью сочетаний клавиш)
  • папки поиска - я работаю с некоторыми пользовательскими папками поиска, которые используют собственные представления и создали некоторые из вышеупомянутых макросов VBA для прямого перехода к этим представлениям с помощью определенных сочетаний клавиш.
1
Вам нужно будет воссоздать эти представления, меню и т. Д. В Outlook 2013. Необходимо убедиться, что макросы все еще работают, и, если они используют функцию устаревания, обновите их. Ramhound 9 лет назад 0
хм, могу ли я хотя бы позволить VBA напечатать список пунктов меню с их именем и связанным макросом vba в моих пользовательских меню, чтобы упростить процесс их воссоздания? MostlyHarmless 9 лет назад 0

1 ответ на вопрос

1
MostlyHarmless

this is only a partial answer, but I'll extend it if possible

Export custom menus in Outlook 2007 via VBA

I made a screenshot of the custom menus to document the status quo in Office 2007.
With the following VBA code, it was at least possible to export the name and the used macro procedure for each menu entry (print them to the output Window in VBA) which saved me a lot of clicking and copying:

Remark: you have to enter the name of the custom menu, in the below described example, it is called &Special .

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

Похожие вопросы