Bonjour,

j'ai créer ce code dans une SUB sur ma page .VB:

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
17
18
19
20
21
22
Dim email As New MailMessage()
        Dim utilisateur, password, serveur As String
 
        utilisateur = ConfigurationSettings.AppSettings("SmtpUtilisateur")
        password = ConfigurationSettings.AppSettings("SmtpPassword")
        serveur = ConfigurationSettings.AppSettings("SmtpServeur")
 
        email.From = "mail@free.fr"
        email.To = "mail@free.fr"
        email.Subject = "TEST ENVOY DE MAIL"
        email.Body = "Bonjour" & Convert.ToChar(10) & "" + "Ceci est le contenu du mail" & Convert.ToChar(10) & "" + "A bientôt"
        SmtpMail.SmtpServer = serveur
 
        email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
        email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", utilisateur)
        email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", password)
 
        Try
            SmtpMail.Send(email)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
dans mon "web.config" :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
  <appSettings>
    <add key="SmtpServeur" value="smtp.free.fr" />
    <add key="SmtpUtilisateur" value="name" />
    <add key="SmtpPassword" value="serial" />
  </appSettings>
le probleme c'est que j'ai un message d'erreur:
Le transport a échoué dans sa connexion au serveur.
le code en lui meme fonctionne car je l'utilise deja dans une aplication windows...

voici mon site, heberger chez SOMEE