échange entre outlook et excel via vba
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 :calim2:
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.
