Thank you Erel for your response.
My application was OK for 5 years until 01/08/2025
The code is :
Sub SendMessage (SMTP As SMTP, Ademail As String, Corpsmail As String)
    SMTP.Initialize("smtp.free.fr", 465, "***************@free.fr", "**********", "SMTP")
    SMTP.UseSSL = True
    SMTP.To.Add(Ademail)
    SMTP.CC.Add("****************@gmail.com")
    SMTP.Subject = "Facture"
    SMTP.Body = Corpsmail
    SMTP.AddAttachment(File.DirRootExternal , "Facture.pdf")
    ToastMessageShow("Envoi de la facture en cours", True)
    SMTP.Send
End Sub
Sub SMTP_MessageSent(Success As Boolean)
        If Success=True Then
        ToastMessageShow("Email transmis", True)
        Timer1.Enabled = True
    Else
        ToastMessageShow("Email non transmis", True)
        Log(LastException.Message)
    End If
End Sub
Now : java.lang.RuntimeException: Error sending message: 550 5.0.0 message does not have exactly one Date field
I have the last version of Net Library
If you have an idea perhaps to change the smtp server for a test ?
Thank you