none
Cherche Code pour envoyer formulaire par email RRS feed

  • Question

  • Bonjour, j'ai crée un petit logiciel interne pour mon ecole avec un formulaire et je cherche le code que l'on met sur un boutton comme 'envoyer' est que je recoit les donnés sur mon e-mail.

    Merci de votre compréhension, A bientôt.

    vendredi 11 juin 2010 21:39

Réponses

  • Imports System.Net.Mail
    
    Public Class Form1
      Public MonEmail As New MailMessage
      Private Sub SendMail(ByVal smtpclient As String, ByVal sender As String, ByVal receiver As String, ByVal body As String, ByVal subject As String)
        Try
          Dim MySMTPClient As New SmtpClient(smtpclient)
          MonEmail.From = New MailAddress(sender)
          MonEmail.ReplyTo = New MailAddress(sender)
          MonEmail.To.Add(New MailAddress(receiver))
          MonEmail.Body = body
          MonEmail.Priority = MailPriority.High
          MonEmail.Subject = subject
          MySMTPClient.Send(MonEmail)
          MsgBox("E-Mail bien envoyé !", MsgBoxStyle.Information, "Envoi de l'E-Mail")
          MonEmail.To.Clear()
        Catch ex As Exception
          MsgBox("Impossible d'envoyer l'E-Mail : " & ex.ToString, MsgBoxStyle.Critical, "Envoi de l'E-Mail")
          MonEmail.To.Clear()
        End Try
      End Sub
    End Class
    dimanche 13 juin 2010 10:21

Toutes les réponses

  • Imports System.Net.Mail
    
    Public Class Form1
      Public MonEmail As New MailMessage
      Private Sub SendMail(ByVal smtpclient As String, ByVal sender As String, ByVal receiver As String, ByVal body As String, ByVal subject As String)
        Try
          Dim MySMTPClient As New SmtpClient(smtpclient)
          MonEmail.From = New MailAddress(sender)
          MonEmail.ReplyTo = New MailAddress(sender)
          MonEmail.To.Add(New MailAddress(receiver))
          MonEmail.Body = body
          MonEmail.Priority = MailPriority.High
          MonEmail.Subject = subject
          MySMTPClient.Send(MonEmail)
          MsgBox("E-Mail bien envoyé !", MsgBoxStyle.Information, "Envoi de l'E-Mail")
          MonEmail.To.Clear()
        Catch ex As Exception
          MsgBox("Impossible d'envoyer l'E-Mail : " & ex.ToString, MsgBoxStyle.Critical, "Envoi de l'E-Mail")
          MonEmail.To.Clear()
        End Try
      End Sub
    End Class
    dimanche 13 juin 2010 10:21
  • Bonjour,

    Vous pouvez utilisé le code precedent pour l'envoie de l'émail en changeant le body par le contenu d'une page HTML contenant le formulaire.

    La page HTML doit evidement contient un bouton de validation qui collecte les données et l'envoyer à votre émail.

    <INPUT TYPE=BUTTON OnClick="EvoyerMethod();" VALUE="Envoyer">

    Les js et les scripts d'envoie doivent étre hebergés quelque par dans votre site et referencé dans la source de la page HTML à envoyer.

    dimanche 13 juin 2010 17:40
  • Bonjour,

     

    Merci à tous pour les réponses. MagicFans91, avez-vous réussi d’implémenter la fonctionnalité à partir de ces conseils ? Je vous prie aussi de clarifier s’il s’agit d’une application web ou d’une application Windows.

     

    Cordialement,

    Alex

     

    __________________________________________________________________________________________

    Publiez un article sur une de ces technologies : Visual Basic, C#, C++, .NET, ASP.NET, SQL Server, Silverlight, SharePoint 2010, SharePoint 2007

     

    Astuces pour Visual Studio 2010

    Didacticiels et astuces : VB.NET, C#, ASP.NET, .NET Framework, Workflow Foundation

     

    Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

     

     

    mardi 15 juin 2010 11:59