[OL-2016] Insérer un PDF en automatique à chaque nouveau mail

J'ai réussi à coder un bout de programme qui fonctionne avec l'aide d'autres discussions^^ :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim obj As Object
    Dim Oitem As Outlook.MailItem
    Set Oitem = Application.ActiveExplorer.ActiveInlineResponse
    If Oitem Is Nothing Then
        Set obj = Application.ActiveWindow
        If TypeOf obj Is Outlook.Inspector Then
            Set obj = obj.CurrentItem
            If obj.Class = olMail Then
                Set Oitem = obj
            End If
        End If
    End If
 
    If Oitem Is Nothing Then End
 
        Dim MaPJ
        MaPJ = "C:\xxxxx.pdf"
        If Dir(MaPJ) <> "" Then
            Oitem.Attachments.Add MaPJ
Else
MsgBox "Pas de Pièce Jointe"
End If
 
End Sub

Le seul problème est que l'envoi du mail n'est pas généré par Outlook directement...
En fait c'est un logiciel tiers qui effectue une connexion et lance l'édition du mail , du coup ma macro ne marche pas..., elle ne se lance pas du tout..
Si quelqu'un a une solution ?