Discussion :

[hugo7]

Bonjour voila mon problème :

J'ai une page ou l'utilisateur peut donner son avis sur le site , pour cela il marque son avis dans une textbox et l'envoie ensuite.
Son avis est ensuite envoyer via email sur mon adresse email.
Voici le code:

Dans ma page Avis.aspx.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
23
24
25
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        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 = "monadresse@yahoo.fr"
        email.To = "monadresse@yahoo.fr"
        email.Subject = "Avis site"
        email.Body = " Votre Avis : " & VotreAvis.text
        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
        End Try
 
    End Sub

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.mail.yahoo.fr" />
    <add key="SmtpUtilisateur" value="monadresse@yahoo.fr" />
    <add key="SmtpPassword" value="******" />
  </appSettings>

Ce code marche je reçoit l'émail lorsque j'essaye en déboguage sous visual studio 2008 mais je ne reçoit pas l'émail lorsque je test en ligne : pourquoi est comment résoudre le problème?

D'avance merci pour vos réponses

[Quatre_Couleurs]

Affiche le message d'erreur qui doit se trouver la:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Try
SmtpMail.Send(email)
Catch ex As Exception
End Try

ca donnera quelques idees pour savoir ce qui marche pas

[Redouane]

Bonjour,

il faut utiliser un NetworkCredential, par exemple :

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
imports System.Net.Mail;
 
Dim message As New MailMessage("senderID@domainName.com",_
    "receiverID@domainName.com","subject of the Message ",_
    "body fo the message ")
/* create and add the attachment(s) */
Attachment attachment = new Attachment("sample.doc",
                        MediaTypeNames.Application.Octet)
  message.Attachments.Add(attachment)
 
/* create SMTP Client and add credentials */
Dim emailClient As New new SmtpClient("Your SMTP Server")
 
  /* Email with Authentication */
Dim SMTPUserInfo As New new NetworkCredential("userID", "password", "domainName")
emailClient.UseDefaultCredentials = False
emailClient.Credentials = SMTPUserInfo
 
/*Send the message */
emailClient.Send(message)

Dans le Web.Config :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
<?xml version="1.0"?>
  <CONFIGURATION> 
   <SYSTEM.NET> 
        <MAILSETTINGS>
          <SMTP from="authicationEmailID@yourdomain.com"> 
           <NETWORK password="password" 
                 userName="UserID" port="25" 
                 host="smtp.yourdomain.com"/>   
          </SMTP> 
        </MAILSETTINGS> 
     </SYSTEM.NET> 
  </CONFIGURATION>

Bonne courage

[hugo7]

Merci pour vos réponses.
Je vais essayer ce code que tu ma donné Redouane.
Quatre_Couleurs , merci pour ta réponse mais en faite il n'y a pas d'erreur , pas de bug , sauf que je ne reçoit pas l'email