Outlook Intercept電子メールの前にPastelを送信

Question

Sage Pastel EvolutionはHTML形式の電子メールを送信できないため、電子メールを送信する前に傍受し、必要な情報をHTML形式の件名と本文に追加してからそれを送ってください。

それはこれをやろうとしている私の最初の時間ですので、私はThisOutlookSessionモジュールに次の簡単なコードを配置：残念ながら、何も私は電子メールを送信する際に起こっているように見えるん

Option Explicit 

Public WithEvents myOlApp As Outlook.Application 

Public Sub Initialize_Handler() 
    Set myOlApp = Outlook.Application 
End Sub 

Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean) 
    Dim sPrompt As String 

    sPrompt = "Are you sure you want to send " & Item.Subject & "?" 
    If MsgBox(sPrompt, vbYesNo + vbQuestion, "Sample") = vbNo Then 
    Cancel = True 
    End If 
End Sub 

、どちらの進化によっても通過見通し。私は何が欠けていますか？

Answer 1

すべてを削除し、ちょうど次のコードを試してみてください、あなたはこの形式を使用する場合は、Initialize_Handlerを実行する必要が

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

    prompt = "Are you sure you want to send " & Item.subject & "?" 

    If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbNo Then 
     Cancel = True 
    End If 
End Sub 

Answer 2

をテストする前に、Outlookを再起動してください。

手動で実行するのではなく、Outlookを起動するときに実行できます。

ThisOutlookSessionモジュール。

Private Sub Application_Startup 
    Initialize_Handler 
End Sub