VOici mon code
Sub SendASPeMail (LeDest as String,Expediteur as String,MonSujet as String,MonMsg as String)
Dim ErrMail As New MailMessage()
With ErrMail
.From = LeDest
.To = Expediteur
.Subject = MonSujet
.BodyFormat = MailFormat.Text
.Priority = MailPriority.Normal
.Body = MonMsg
End With
SmtpMail.Send(ErrMail)
End Sub
et voici l'erreur
Détails de l'exception: System.Runtime.InteropServices.COMException: La
valeur de configuration "SendUsing" est non valide. pour la ligne ( SmtpMail.Send(ErrMail))
mici d'avance pour votre aide