[XL-2007] échange entre outlook et excel via vba

[pyloupylou]

Bonjour à tous et bonne année

p'tite question, j'ai un bout de vba excel qui construit et envoi des mails dans outlook, mais j'ai du mal à capturer ensuite le retour de outlook pour savoir si le mail a été réellement envoyé ou pas
exemple : l'utilisateur clique sur le bouton fermer du mail sans envoi

j'ai bien positionné un semblant de gestion d'erreur mais visiblement je m'y prend comme un manche

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
26
27
28
Private Function Mail(Destinataire As String, Titre As String, Texte As String, Optional destinataire_principal As Variant) As Retour_mail
    Dim ObjApp, ObjMail, ObjAttachement, colonne_date, ligne_date
 
    Dim temp As Retour_mail
 
    On Error GoTo Erreur
    Set ObjApp = CreateObject("Outlook.Application")
    Set ObjMail = ObjApp.CreateItem(olMailItem)
    Set ObjAttachement = ObjMail.Attachments
    If IsMissing(destinataire_principal) Then
            ObjMail.To = Destinataire
    Else
            ObjMail.CC = Destinataire
            ObjMail.To = destinataire_principal
    End If
    ObjMail.Subject = Titre
    ObjMail.Body = Texte
    ObjMail.Display
 
    temp.utilisateur = ObjMail.session.currentuser.Name
    temp.VraiFaux = True
 
    GoTo fin
Erreur:
    temp.VraiFaux = False
fin:
    Mail = temp
End Function

y aurait-il une âme charitable pour me donner une piste ?
merci.