从桌面快捷方式运行Outlook宏

Question

我正在尝试从我已经制作并且运行良好的桌面运行Outlook 2013宏。我希望能够将此快捷方式复制到其他同事的计算机上。

自从不再支持自动运行功能以来，有什么想法吗？

Answer 1

创建使用Office COM Automation API运行宏的桌面VBScript（*.vbs）。

这样的事情：

Option Explicit
Dim outlook
Set outlook = CreateObject("Outlook.Application")
outlook.Run "MacroName"

您可能需要使用GetObject代替CreateObject，并将Outlook窗口置于前台。