Как получить событие отправки в VBA MS outlook 2016

Question

Здравствуйте ребят, есть такая задачка, я хочу через скрипт VBA удалять все префиксы  RE и FW при пересылке сообщений, нашел данный скрипт, прочитал, вроде написано все четко, в ВБА не силен, модуль сохранил, 
отправляю тестовые письма но диалоговое окно не  отрывается, 
в коде увидел что данный скрипт не связан с событием отправки письма, из инета узнал что это собите OnMessageSend()
но я не знаю какие аргументы передавать в метод  Application_ItemSend
помогите плиз, я не могу найти решения, я офисный клерк)
скрипт на данный момент выглядит так 
Function OnMessageSend()
Application_ItemSend()
End Function
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strSubject As String
    If InStr(Item.Subject, &#34;RE&#34;) > 0 Then
       'If you don't want the prompt,
       'You can remove the MsgBox line and its correspoding &#34;Else … End If&#34; lines.
       If MsgBox(&#34;Do you want to remove the prefix 'RE'?&#34;, vbYesNo) = vbYes Then
          strSubject = Replace(Item.Subject, &#34;RE:&#34;, &#34;&#34;, vbTextCompare)
       Else
          strSubject = Item.Subject
       End If
    End If
    If InStr(Item.Subject, &#34;FW&#34;) > 0 Then
       If MsgBox(&#34;Do you want to remove the prefix 'FW'?&#34;, vbYesNo) = vbYes Then
          strSubject = Replace(Item.Subject, &#34;FW:&#34;, &#34;&#34;, vbTextCompare)
       Else
          strSubject = Item.Subject
       End If
    End If
    Item.Subject = Trim(strSubject)
    Item.Save
End Sub