Envoi d'email

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

1 réponse

stefsoft Messages postés 119 Date d'inscription lundi 15 avril 2002 Statut Membre Dernière intervention 28 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>
0
Rejoignez-nous