Bonjour
Je cherche à poster un email depuis un formulaire
J'ai trouvé sur le forum le code suivant :
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
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
cause une erreur. Effectivement je ne sais pas comment remplir la variable sSmtp
Code : Sélectionner tout - Visualiser dans une fenêtre à part Dim oSmtpMail As New System.Net.Mail.SmtpClient(sSmtp)
Merci d'avance de vos conseils
Partager