删除添加到Outlook功能区的宏中的部分字符串

Question

我有模板，我正在尝试添加到用户的PC，并在功能区中易于访问这些模板。除了每个宏的名称太长之外，我一直很成功。

是project1.thisoutlooksession.opentemplate1。我意识到最后一部分是打开特定模板的子名称。然后我意识到我可以将" Project1"更改为任何东西，从而缩短字符串。

我想知道如何更改ThisOutlookSession的部分，甚至更好，删除" Project1.thisoutlooksession"部分，只剩下我们命名为子(这是模板名称(。我的代码：

'https://www.slipstick.com/outlook/hyperlink-templates/
Dim template As String
Sub OpenTemplate1()
template =     "...MicrosoftTemplatesFollowUpOnOrgSurvey.oft"
MakeItem
End Sub
Sub OpenTemplate2()
template = "...MicrosoftTemplatesHow Are We Doing.oft"
MakeItem
End Sub
Sub OpenTemplate3()
template =     "...MicrosoftTemplatesOption1.oft"
MakeItem
End Sub
Sub OpenTemplate4()
template = "...MicrosoftTemplatesOption2.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宏。它们专门设计用于在多台机器上分发基于办公室的解决方案。VBA宏不是为在多台机器上分发的设计。请参阅演练：创建您的第一个VSTO加载项，以使Outlook快速入门。

您也可能会发现将Microsoft Outlook VBA代码分发给其他用户的文章有帮助。