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

一个模块名不能包含一个同名的Macro。重新命名 模块 ReplaceIPs 改名为其他东西，或者重命名为 宏观子程序 ReplaceIPs 与其他东西。如果它们都是一样的，那就不能正常解决了

Answer 2

如果对大家有帮助的话，我的Outlook VBA模块中的所有方法都没有得到控制，因为整个模块都无法预编译，因为我在 "Sub "前面多了一个"."。

试图运行一个任意方法（"F8"），显示出问题。