在Outlook 2010 VBA中运行一个宏，该宏的名称作为参数传递 [英] In Outlook 2010 VBA run a macro whose name was passed as a parameter

问题描述

我在Windows 7中用VBA编写的Windows 7中的Outlook 2010，想要将宏(或子例程)的名称作为字符串变量传递给另一个子例程，并让该例程运行宏.在Word中，您可以使用 Application.Run宏名称:= strMacroName 其中strMacroName是带有宏名称的字符串变量.该方法在Outlook 2010中不起作用.如何完成同一件事? 我尝试过

I am in Outlook 2010 in Windows 7 writing in VBA and want to pass the name of a macro (or sub routine) as a string variable to another sub routine and have that routine run the macro. In Word you can do this with Application.Run MacroName:=strMacroName Where strMacroName is a string variable with the name of the macro. That approach does not work in Outlook 2010. How can I accomplish the same thing? I tried

1. Call Application.strMacroName
2. Call strMacroName
3. strMacroName单独一行
4. Outlook.Application.strMacroName

1. Call Application.strMacroName
2. Call strMacroName
3. strMacroName on its own line
4. Outlook.Application.strMacroName

这些都不起作用.

我刚刚升级到Outlook 2010，因此不能再使用键盘快捷键来运行用于处理电子邮件的自定义代码.因此，为了还原该功能的某些版本，我创建了代码以显示一个包含我最常用的宏的对话框.随着时间的流逝并传递我想要运行的宏的名称，该代码相当干净，可以修改，但是我过去能够用一个命令(Application.Run MacroName:=strMacroName)运行该例程.

I just upgraded to Outlook 2010 and so can no longer use keyboard shortcuts to run custom code for handling email. So to restore some version of that functionality I have created code to present a dialog box with my most common macros. The code is fairly clean to modify as time goes along and pass along the name of the macro I want to run but I used to be able to run that routine in one command (Application.Run MacroName:=strMacroName).

现在我必须包含一个很长的switch语句才能完成同样的事情.没有那么简单.

Now I have to include a long switch statement to accomplish the same thing. Not nearly as simple.

谢谢！

推荐答案

CallByName似乎是唯一的方法.

在ThisOutlookSession中使用以下代码:

Public Sub TestFoo()
    Dim testClass As New TestClass1
    CallByName testClass, "TestMethod1", VbMethod
End Sub

TestClass1中的这段代码:

Public Sub TestMethod1()
    MsgBox "huzzah!"
End Sub

呼叫ThisOutlookSession.TestFoo给您期望的消息框.

Calling ThisOutlookSession.TestFoo gives you the expected message box.

这篇关于在Outlook 2010 VBA中运行一个宏，该宏的名称作为参数传递的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！