Удалить частичную строку из макроса, добавленного на ленту Outlook

Question

У меня есть шаблоны, которые я пытаюсь добавить на компьютеры пользователей, и эти шаблоны легко доступны на ленте. Я был в основном успешным, за исключением того, что имя каждого макроса слишком длинное.

Это был Project1.ThisOutlookSession.OpenTemplate1. Я понял, что последняя часть была именем сабвуфера для открытия этого конкретного шаблона. Затем я понял, что могу изменить «Project1» на что угодно, что приведет к сокращению строки.

Мне было интересно, как я могу изменить часть ThisOutlookSession или, что еще лучше, удалить часть «Project1.ThisOutlookSession» в целом, оставив нам только то, что мы называем подпрограммой (которая будет именем шаблона). Мой код:

'https://www.slipstick.com/outlook/hyperlink-templates/

Dim template As String

Sub OpenTemplate1()
template =     "...Microsoft\Templates\FollowUpOnOrgSurvey.oft"
MakeItem
End Sub

Sub OpenTemplate2()
template = "...Microsoft\Templates\How Are We Doing.oft"
MakeItem
End Sub

Sub OpenTemplate3()
template =     "...Microsoft\Templates\Option1.oft"
MakeItem
End Sub

Sub OpenTemplate4()
template = "...Microsoft\Templates\Option2.oft"
MakeItem
End Sub

Private Sub MakeItem()
Set newItem = Application.CreateItemFromTemplate(template)
newItem.Display
Set newItem = Nothing
End Sub

Answer 1

ThisOutlookSession - это имя модуля по умолчанию, в котором находится ваш макрос VBA. Если вы удалите эту часть из имени макроса, то изменение VBA не будет найдено вообще.

Я бы рекомендовал создать надстройку COM вместо макросов VBA. Они были разработаны специально для распространения вашего решения на базе Office на нескольких компьютерах. Макросы VBA не предназначены для распространения на нескольких компьютерах. См. Пошаговое руководство. Создание первой надстройки VSTO для Outlook , чтобы быстро начать работу.

Также вам может пригодиться Чтобы распространять код Microsoft Outlook VBA среди других пользователей Статья полезна.