Try body = Me.txtSujet.Text.ToString If NomPieceJointe <> "" Then mail = New MailMessage(Me.txtFrom.Text.ToString, Me.txtTo.Text.ToString) mail.Subject = Me.txtObjet.Text.ToString mail.Body = body at = New Attachment(NomPieceJointe) mail.Attachments.Add(at) mail.IsBodyHtml = True smtp = New SmtpClient("smtp.orange.fr") 'je choisis le serveur smtp.orange.fr smtp.Send(mail) MsgBox("Message envoyé le " & (Format(My.Computer.Clock.LocalTime, "dd/mm/yyyy")) & " à " & System.DateTime.Now.TimeOfDay.ToString.Substring(0, 8), MsgBoxStyle.Information) Else MsgBox("Veuillez sélectionner une pièce jointe ! ", MsgBoxStyle.Critical, "ERREUR") End If Catch ex As Exception MsgBox(ex.Message) End Try