Bonjour

Je cherche à poster un email depuis un formulaire
J'ai trouvé sur le forum le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
              Dim sAdOrigine As String = ""
                Dim sAdDestination As String = ""
                Dim sSmtp As String = ""
 
                If sAdOrigine <> System.String.Empty And sAdDestination <> System.String.Empty And sSmtp <> System.String.Empty Then
                    Dim oMessage As New System.Net.Mail.MailMessage(sAdOrigine, sAdDestination)
                    Dim oEncodage As System.Text.Encoding = System.Text.Encoding.GetEncoding("iso-8859-1")
                    oMessage.Body = strContenu.ToString & vbCrLf
                    oMessage.Body &= "*************************" & vbCrLf
                    oMessage.Body &= "le : " & System.DateTime.Now.ToString & vbCrLf
                    oMessage.BodyEncoding = oEncodage
                    oMessage.Subject = strSujet
                    Dim oSmtpMail As New System.Net.Mail.SmtpClient(sSmtp)
                    oSmtpMail.Send(oMessage)
                    Return True
                End If
Il ne me pose pas d'erreur de compilation mais à l'exécution la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim oSmtpMail As New System.Net.Mail.SmtpClient(sSmtp)
cause une erreur. Effectivement je ne sais pas comment remplir la variable sSmtp

Merci d'avance de vos conseils