papiona
Messages postés91Date d'inscriptionsamedi 18 novembre 2006StatutMembreDernière intervention13 novembre 2009
-
23 avril 2008 à 13:31
stefsoft
Messages postés119Date d'inscriptionlundi 15 avril 2002StatutMembreDernière intervention28 novembre 2008
-
24 avril 2008 à 16:16
saluut
je veux integrer une procédure d'envoi d'email dans mon application,le probléme c'est quand j'exécute la tâche j'ai obtenue un message : Failure sending mail. tout le temps et je ne sais pas pourquoi.voila mon code :
Sub envoi(ByVal To_ As String, ByVal sujet As String, ByVal message As String)
Dim monmail As New MailMessage
monmail.From = New MailAddress("xx@hotmail.ma")
monmail.To.Add(New MailAddress(To_))
monmail.Subject = sujet
monmail.Body = message
Dim client As SmtpClient = New SmtpClient()
'définition du serveur smtp
client.Host = "smtp.menara.ma"
Try
client.Send(monmail)
lblResult.Text = "Mail Sent"
Catch ex As Exception
lblResult.Text = ex.Message
End Try
End Sub
a l'attends de votre réponse.merci
stefsoft
Messages postés119Date d'inscriptionlundi 15 avril 2002StatutMembreDernière intervention28 novembre 2008 24 avril 2008 à 16:16
''' <summary>
''' Fonction d'envoi de mail
''' </summary>
'''
'''
'''
''' <remarks></remarks>
Sub SendMail(ByVal body As String, ByVal subject As String, ByVal mailto As String)
Dim MailMsg As New MailMessage
Dim config As System.Configuration.Configuration = System.Web.Configuration.WebConfigurationManager.OpenWebConfiguration(HttpContext.Current.Request.ApplicationPath)
Dim setting As System.Net.Configuration.MailSettingsSectionGroup = CType(config.GetSectionGroup("system.net/mailSettings"), System.Net.Configuration.MailSettingsSectionGroup)
Dim emailClient As New SmtpClient(setting.Smtp.Network.Host, setting.Smtp.Network.Port)
MailMsg.Subject = subject
MailMsg.Body = body
MailMsg.Sender = New MailAddress(setting.Smtp.From)
MailMsg.From = New MailAddress(setting.Smtp.From)
MailMsg.ReplyTo = New MailAddress(setting.Smtp.From)
MailMsg.Priority = MailPriority.High
MailMsg.IsBodyHtml = True
MailMsg.BodyEncoding = System.Text.Encoding.Default
MailMsg.Headers.Add("Errors-To", setting.Smtp.From) 'si le mail est éronné
MailMsg.To.Add(New MailAddress(mailto)) 'Je ne vois pas cela dans ton code
emailClient.Send(MailMsg)
End Sub
Dans le cas présent le serveur smtp est déclaré dans le webconfig
<system.net>
<mailSettings>
<smtp from=[mailto:emetteur@mondomaine.com emetteur@mondomaine.com]>
<network host="smtp.serveur.fr" password="" port="25" userName=""/>
</smtp>
</mailSettings>
</system.net>