Private Function Send_Mail()
On Error Resume Next
With CreateObject("Outlook.Application").CreateItem(0)
.To = "mon adresse"
.Subject = "Fin de validité"
.Body = "Bonjour La date de validité du contrôle technique arrive à terme, n'oubliez pas de l'actualiser"
.Send
End With
On Error GoTo 0
End Function