Bonjour à tous,

Je voudrais inséré une confirmation de lecture a mon code existant mais je n'y arrive pas.
J'ai regarder mon outlook permet bien cette manipulation.

Voici le code existant.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub SendMailData()
 
Dim Fichier As String
Dim MonOutlook As Object
Dim MonMessage As Object
Dim MyBench As String
Dim NumberOfIntervention As String
 
 
Fichier = "H:\SERVICE\MAINTENANCE PREVENTIVE\Archivage fiche d'intervention maintenance\Fichier excel\Archivage fiche d'intervention maintenance"
ThisWorkbook.SaveAs Fichier
 
MyBench = Sheets("Fiche d'intervention").Range("I10").Value
NumberOfIntervention = Sheets("Fiche d'intervention").Range("N1").Value
 
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)
  MonMessage.BodyFormat = 2
       corps = "<HTML><BODY>"
         MonMessage.To = "xxxxxxxx"
  MonMessage.cc = ""
 MonMessage.Subject = "Demande d'intervention maintenance"
  ' Le corps du message est divisé en 2 lignes :
corps = corps & "Bonjour Christophe,"
  ' <p> = Touche ENTER
corps = corps & "<p>"
   corps = corps & "<p> Voici la demande d'intervention pour le " & "<b>" & MyBench & "</b>" & " ainsi que le numéro d'intervention " & "<b>" & NumberOfIntervention & "</b></p>"
  corps = corps & "<p><a href=""H:\SERVICE\MAINTENANCE PREVENTIVE\Archivage fiche d'intervention maintenance\Fichier excel\Archivage fiche d'intervention maintenance.xlsm"">lien vers l'interface maintenance</a></p>"
  corps = corps & "</BODY></HTML>"
  MonMessage.HTMLBody = corps
  MonMessage.Display
 
  ReadReceiptRequested = True
  Set MonOutlook = Nothing
 
 
Workbooks("Archivage fiche d'intervention maintenance").Close False
 
End Sub
Cordialement
Romain