我自己写了一个小消息过滤器,为简单起见假设
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
,但是我应该想出来吗?
答案 0 :(得分:1)
VBE中有一个选项可以“打破所有错误”。没有其他工作可行的方法: - )