Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 8 sur 8
  1. #1
    Membre habitué
    Développeur informatique
    Inscrit en
    mars 2003
    Messages
    201
    Détails du profil
    Informations personnelles :
    Âge : 35

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : mars 2003
    Messages : 201
    Points : 138
    Points
    138

    Par défaut [VB.Net]envois de email SMTP

    Bonjour à tous,

    Non pas de question aujourd'hui mais des réponse, je cherchais à envoyer un message simple via vb.net et voila

    Prenez note que ca ne fonctionne pas avec .net CF mais bien avec le .net normal (alors coté mobile on oubli ca...tk pour le 2.0).

    il faut avant tout le Imports System.Net.Mail

    Code vb :
    1
    2
    3
    4
    5
    Dim message As String = "message a envoyer par mail"
    Dim email As New MailMessage("mailde@blabla.ca","maila@blabla.ca" , "titre", message)
                Dim postier As New SmtpClient
                postier.Host = "serveur a qui envoyer (serveur.domaine.local.ca oubien ip)"
                postier.Send(email)
    Comme vous pouvez le voir...simple comme bonjour
    et sur ce...bonjour
    \|/ que la force soit avec vous

  2. #2
    Rédacteur

    Avatar de Louis-Guillaume Morand
    Homme Profil pro Louis-Guillaume MORAND
    Consultant
    Inscrit en
    mars 2003
    Messages
    10 842
    Détails du profil
    Informations personnelles :
    Nom : Homme Louis-Guillaume MORAND
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Consultant
    Secteur : Conseil

    Informations forums :
    Inscription : mars 2003
    Messages : 10 842
    Points : 23 010
    Points
    23 010

    Par défaut

    http://faqvbnet.developpez.com/?page=netw#netw_sendmail

    bon on a déjà un article complet qui parle de l'envoi de mail en 2.0 mais c'est vrai que la QR n'a pas été mise à jour.

    merci

  3. #3
    Rédacteur/Modérateur



    Homme Profil pro Thomas Levesque
    Développeur .NET
    Inscrit en
    février 2004
    Messages
    19 191
    Détails du profil
    Informations personnelles :
    Nom : Homme Thomas Levesque
    Âge : 32
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : février 2004
    Messages : 19 191
    Points : 36 628
    Points
    36 628

    Par défaut

    Citation Envoyé par FAQ
    Il faut ajouter à son projet la référence System.Web.Mail (qui aurait dû s'appeler System.Net.Mail à mon avis).
    Il aurait tellement dû s'appeler comme ça que c'est maintenant le cas
    D'ailleurs le namespace System.Web.Mail est obsolète d'après la doc...

  4. #4
    Membre à l'essai
    Homme Profil pro benjamin
    apprenti
    Inscrit en
    décembre 2011
    Messages
    92
    Détails du profil
    Informations personnelles :
    Nom : Homme benjamin
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : apprenti
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : décembre 2011
    Messages : 92
    Points : 24
    Points
    24

    Par défaut

    J'a essayé la fonction qu'il y a en FAQ, mais cela ne fonctionne pas. L'appli reste bloquée sur la page d'envoi de mail... La page dans laquelle j'appelle ma focntion mail.

    Voila ce que j'ai noté :

    Code :
    1
    2
    3
    4
    5
    6
    7
     
        Sub envoimail(ByVal mail As String, ByVal sujet As String, ByVal message As String)
            Dim email As New MailMessage("webmasterbzh@sfr.fr", mail, sujet, message)
            Dim postier As New SmtpClient
            postier.Host = "smtp.sfr.fr"
            postier.Send(email)
        End Sub
    Je récupère ensuite cette fonction dans les pages qui en ont besoin, mais cela ne marche pas (alors que j'ai bien rentré en paramètre toutes les options ....)

  5. #5
    Membre Expert Avatar de hunteshiva
    Homme Profil pro eric Maitre
    Chef de projet en SSII
    Inscrit en
    février 2010
    Messages
    1 056
    Détails du profil
    Informations personnelles :
    Nom : Homme eric Maitre
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Chef de projet en SSII
    Secteur : Industrie

    Informations forums :
    Inscription : février 2010
    Messages : 1 056
    Points : 1 283
    Points
    1 283

    Par défaut

    Bonjour,
    j'ai également galéré pour faire un envoi de mail. *ce matin*
    Les sources sont erronées à mon gout

    je te laisse le code qui va bien chez moi

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    Imports System.Net.Mail
     
    Public Class Form1
     
        Private Sub btEnvoyer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btEnvoyer_V1.Click
            'Dim email As New System.Web
     
            Dim email As New MailMessage("toto@toto.net", "Adresse_Mail_Valide", "Sujet", "Body")
            Dim smtpMail As New System.Net.Mail.SmtpClient("smtp.wanadoo.fr", 25) 'vérifier avec "telnet smtp.wanadoo.fr 25" dans cmd.exe
     
            Try
                smtpMail.Send(email)
            Catch ex As Exception
                MsgBox("erreur lors de l'envoie du mail")
                MsgBox(ex.ToString)
            End Try
        End Sub
     
    End Class
    System.Web.Mail est obsolète d'après la doc...
    Entièrement d'accord, j'ai cherché de ce coté aussi.
    J'ai pas réussi à faire un mail avec System.Web.Mail *sous VS2010*
    A vrai dire elle existe pas dans VS2010, je suis passé par System.Net.Mail

  6. #6
    Membre actif
    Inscrit en
    juin 2006
    Messages
    594
    Détails du profil
    Informations forums :
    Inscription : juin 2006
    Messages : 594
    Points : 150
    Points
    150

    Par défaut

    Ok ici j'ai réussi a envoyer un mail via ce code a partir d'un serveur de mail en interne .

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
     
     
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            Dim objMessage As System.Net.Mail.MailMessage
            Dim objAdrExp As System.Net.Mail.MailAddress
            Dim objAdrRec As System.Net.Mail.MailAddress
            Dim objSMTPClient As System.Net.Mail.SmtpClient
     
     
            Try
                objMessage = New System.Net.Mail.MailMessage()
     
                objAdrExp = New System.Net.Mail.MailAddress("Adresse mail")
     
                objAdrRec = New System.Net.Mail.MailAddress("Adresse mail")
     
                ' ADRESSE MAIL DE L EXPEDITEUR
                objMessage.From = objAdrExp
     
                ' ADRESSE MAIL DU DESTINATAIRE
                objMessage.To.Add(objAdrRec)
     
                objMessage.Subject = "test christophe"
                objMessage.IsBodyHtml = False
     
                objSMTPClient = New System.Net.Mail.SmtpClient("mailsrv2.local", 25)
                objSMTPClient.EnableSsl = False
                objSMTPClient.Credentials = New NetworkCredential("Adresse mail", "******")
                objSMTPClient.Send(objMessage)
                MsgBox("Ok")
     
            Catch ex As Exception
                MsgBox("Exception : " & ex.Message)
            End Try
        End Sub

  7. #7
    Membre actif
    Inscrit en
    juin 2006
    Messages
    594
    Détails du profil
    Informations forums :
    Inscription : juin 2006
    Messages : 594
    Points : 150
    Points
    150

    Par défaut

    Je rencontre toujours des problèmes quand je veux envoyer un mail avec un fichier attaché

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
     
     
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            Dim objMessage As System.Net.Mail.MailMessage
            Dim objAdrExp As System.Net.Mail.MailAddress
            Dim objAdrRec As System.Net.Mail.MailAddress
            Dim objSMTPClient As System.Net.Mail.SmtpClient
     
            Dim file As String = "C:\test.txt"
            ' Create  the file attachment for this e-mail message.
            Dim data As New Attachment(file, MediaTypeNames.Application.Octet)
     
            Try
                objMessage = New System.Net.Mail.MailMessage()
     
                objAdrExp = New System.Net.Mail.MailAddress("adresse mail")
     
                objAdrRec = New System.Net.Mail.MailAddress("adresse mail")
     
                ' ADRESSE MAIL DE L EXPEDITEUR
                objMessage.From = objAdrExp
     
                ' ADRESSE MAIL DU DESTINATAIRE
                objMessage.To.Add(objAdrRec)
     
                objMessage.Subject = "test christophe"
                objMessage.IsBodyHtml = False
                '*******************************************************************************************
                ' Add time stamp information for the file.
                Dim disposition As ContentDisposition = data.ContentDisposition
                disposition.CreationDate = IO.File.GetCreationTime(file)
                disposition.ModificationDate = IO.File.GetLastWriteTime(file)
                disposition.ReadDate = IO.File.GetLastAccessTime(file)
                ' Add the file attachment to this e-mail message.
                objMessage.Attachments.Add(data)
                '*********************************************************************************************
                objSMTPClient = New System.Net.Mail.SmtpClient("mailsrv2.local", 25)
                objSMTPClient.EnableSsl = False
                objSMTPClient.Credentials = New NetworkCredential("adresse mail", "****")
                objSMTPClient.Send(objMessage)
                MsgBox("Ok")
     
            Catch ex As Exception
                MsgBox("Exception : " & ex.Message)
            End Try
        End Sub
    D'avance merci

  8. #8
    Membre actif
    Inscrit en
    juin 2006
    Messages
    594
    Détails du profil
    Informations forums :
    Inscription : juin 2006
    Messages : 594
    Points : 150
    Points
    150

    Par défaut

    Voila ça fonctionne:

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
     
     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            Dim objMessage As System.Net.Mail.MailMessage
            Dim objAdrExp As System.Net.Mail.MailAddress
            Dim objAdrRec As System.Net.Mail.MailAddress
            Dim objSMTPClient As System.Net.Mail.SmtpClient
     
            Dim file As String = "C:\test.txt"
     
     
            Try
                objMessage = New System.Net.Mail.MailMessage()
     
                objAdrExp = New System.Net.Mail.MailAddress("adresse_mail")
     
                objAdrRec = New System.Net.Mail.MailAddress("adresse_mail")
     
                ' ADRESSE MAIL DE L EXPEDITEUR
                objMessage.From = objAdrExp
     
                ' ADRESSE MAIL DU DESTINATAIRE
                objMessage.To.Add(objAdrRec)
     
                objMessage.Subject = "test christophe"
                objMessage.IsBodyHtml = True
                objMessage.Body = "test"
     
                '*******************************************************************************************
                objMessage.Attachments.Add(New Mail.Attachment(file))
                '*********************************************************************************************
                objSMTPClient = New System.Net.Mail.SmtpClient("mailsrv1.local", 25)
                objSMTPClient.EnableSsl = False
                objSMTPClient.Credentials = New NetworkCredential("adresse_mail", "*****")
                objSMTPClient.Send(objMessage)
                MsgBox("Ok")
     
            Catch ex As Exception
                MsgBox("Exception : " & ex.Message)
            End Try
        End Sub

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •