Bonjour

Pour envoyer des mails automatiquement en utilisant Outlook - VBA, j'ai utilisé la fonction suivante:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim i As Boolean
            Dim olApp   As outlook.Application
            Dim objMail As MailItem
            Set olApp = outlook.Application
            Set objMail = olApp.CreateItem(OlMailItem)
 
            With objMail
                    .BodyFormat = olFormatHTML
                    .To = Destinataire
                    .Subject = Subject
                    .Body = text
                    .Attachments.Add cFile
                    .Cc = listeCC
                    .Send ' Envoie la mail
 
             End With
          Set objMail = Nothing
Je veux m'assurer que mon mail est bien envoyé. Il existe pour MailItem la propriété "sent" qui renvoie boolean , mais je n'arrive pas à l'utiliser dans mon code. Avez vous une idée SVP