Outlook VBA脚本将无法运行

Question

我在Outlook 2010中创建了一个VBA脚本，但它运行的唯一方法是在Outlook VBA中单击播放按钮，如下图所示：

当我从菜单中选择VBA脚本时，为什么它不会运行，如下图所示？我已经使用“SelfCert.exe”签署了VBA脚本。

列表中的其他两个VBA脚本在从菜单中选择时会运行。下面是未运行的VBA脚本的代码：

Sub ReplaceIPs()
    Dim Insp As Inspector
    Dim obj As Object

    Set Insp = Application.ActiveInspector
    Set obj = Insp.CurrentItem

    obj.HTMLBody = Replace(obj.HTMLBody, "192.168.1", "255.255.255")

    Set obj = Nothing
    Set Insp = Nothing
End Sub

上述VBA脚本应该在正在编写的电子邮件正文中查找并替换“192.168.1”的所有实例和“255.255.255”。

Answer 1

模块名称不能包含同名的宏。将模块 ReplaceIPs重命名为其他内容，或者使用其他内容将宏 /子例程ReplaceIPs重命名。如果它们都是相同的，它将无法正确解决

Answer 2

万一它对任何人都有用，那么我的Outlook VBA模块中的任何方法都无法控制，因为整个模块无法预编译，因为我有一个额外的“”。在“ Sub”语句前

尝试运行任意方法（“ F8”）显示了问题。