Bonjour,
j'ai créer ce code dans une SUB sur ma page .VB:
dans mon "web.config" :
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
le probleme c'est que j'ai un message d'erreur:
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 code en lui meme fonctionne car je l'utilise deja dans une aplication windows...Le transport a échoué dans sa connexion au serveur.
voici mon site, heberger chez SOMEE
Partager