Как вызвать функцию при отправке электронного письма?Закрытый Sub Application_ItemSend () не работает

Question

У меня есть функция Sub Read () в VBA outlook. Я хочу выполнять его каждый раз, когда отправляю электронное письмо.

Я пытался вызвать его как часть 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

Вызов процедур Sub и Function