如何正确调试静默失败?

时间:2014-08-22 10:49:52

标签: vba outlook

我自己写了一个小消息过滤器,为简单起见假设

Sub MyFilter(Item As Outlook.MailItem)
    MsgBog ("MyFilter: " & Item.Subject)
End Sub

,我想通过宏

进行测试
Sub TestMyFilter()
    Dim objItem As Outlook.MailItem
    For Each objItem In Application.ActiveExplorer.Selection
        MsgBox ("objItem: " & objItem.Subject)
        MyFilter (objItem)
        MsgBox ("done")
    Next
End Sub

分配给一个按钮。当我选择一个(或多个)邮件并让按钮运行TestMyFilter时,我会看到第一个选中邮件的消息框,但之后没有其他任何事情发生。在调试模式下,最后执行的行是MyFilter (objItem),之后按F8只会导致执行结束而没有任何输出或错误。

如何确定问题?我同时想通了我忘记了Call Sub MyFilter,但是我应该想出来吗?

1 个答案:

答案 0 :(得分:1)

VBE中有一个选项可以“打破所有错误”。没有其他工作可行的方法: - )