Outlook Intercept Email Avant Envoyé par Pastel

Question

Sage Pastel Evolution est incapable d'envoyer des e-mails au format HTML, donc j'essaie d'intercepter l'e-mail avant qu'il ne soit envoyé, ajouter les informations nécessaires à l'objet et le corps au format HTML, puis envoyez-le.

Il est la première fois en essayant de le faire, donc je place le code simple suivant dans le module 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 

Malheureusement, rien ne semble se passer quand j'envoyer un e-mail, ni par l'évolution, ni par Perspective. Qu'est-ce que je rate?

Answer 1

Retirez tout et juste essayer le code suivant, assurez-vous de redémarrer Outlook avant de tester

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

Si vous utilisez ce format, vous devez exécuter Initialize_Handler. Si vous le souhaitez, au lieu de l'exécuter manuellement, vous pouvez le faire au démarrage d'Outlook.

Dans le module ThisOutlookSession.

Private Sub Application_Startup 
    Initialize_Handler 
End Sub