Question

我正在尝试使用Outlook中的Microsoft Visual Basic编写宏，但是当按下发送按钮时我无法使其工作。（更具体地说，我想在使用“attach”一词时检查附件。）

我已经编写了代码来检查附件，但由于我遇到了触发器事件的困难，我只使用一个MsgBox来测试更简单的代码。

我正在使用的代码（ThisOutlookSession - ＆gt; Application - ＆gt; ItemSend）：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

MsgBox "Try msgbox"

End Sub

此外，当有触发事件时，如何部分执行我的代码以检查其正确性？

Answer 1

您可以编写一个小子例程来测试所有当前选定邮件的事件处理程序。

Private Sub MyTest()
    Dim objItem As Object
    Dim Cancel As Boolean

    Cancel = False

    For Each objItem In Application.ActiveExplorer.Selection
        If TypeName(objItem) = "MailItem" Then                
            Call Application_ItemSend(item, Cancel)
        End If
    Next
End Sub

与具有非空参数列表的子例程不同，当您点击start按钮时，此例程将列为宏。因此，您可以使用VBA Debugger。

进行操作

每当我点击发送按钮时，我都无法在Outlook中写入一个宏来激活

1 个答案: