Question

我在VBA Outlook中有一个名为Sub Read（）的函数。我想在每次发送电子邮件时执行它。

我试图将其作为Application_ItemSend（）的一部分来调用，但它什么也没做。

Private Sub Application_ItemSend() 'calls the first function when you send a mail
Read
End Sub

应该使用“读取”功能读取除收件箱之外的每个文件夹中的所有项目，因为在我的已发送邮件箱中有未读的电子邮件很烦人。它可以工作，但是我希望在发送电子邮件时执行。

Answer 1

应该是

Option Explicit
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Call Read
End Sub

Public Sub Read()
        Debug.Print "success"
End Sub

Calling Sub and Function procedures

发送电子邮件时如何调用函数？私人子Application_ItemSend（）不起作用

1 个答案: