Sub SendMailData()
Dim Fichier As String
Dim MonOutlook As Object
Dim MonMessage As Object
Dim MyBench 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
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.BodyFormat = 2
corps = "<HTML><BODY>"
MonMessage.To = "romain.dehan@poclain.com"
MonMessage.cc = ""
' MonMessage.Attachments.Add "H:\SERVICE\MAINTENANCE PREVENTIVE\Archivage fiche d'intervention maintenance\Fichier excel\Archivage fiche d'intervention maintenance.xlsm"
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> Ci-joint la demande d'intervention pour le banc : " & MyBench & ".</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 le document</a></p>"
corps = corps & "</BODY></HTML>"
MonMessage.htmlbody = corps
MonMessage.display
Set MonOutlook = Nothing
Workbooks("Archivage fiche d'intervention maintenance").Close False
End Sub