Envoi d'email

Signaler
Messages postés
91
Date d'inscription
samedi 18 novembre 2006
Statut
Membre
Dernière intervention
13 novembre 2009
-
Messages postés
119
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
28 novembre 2008
-
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

1 réponse

Messages postés
119
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
28 novembre 2008

    ''' <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>