IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Contribuez .NET Discussion :

[VB.Net]envois de email SMTP


Sujet :

Contribuez .NET

  1. #1
    Membre habitué
    Profil pro
    Développeur informatique
    Inscrit en
    Mars 2003
    Messages
    201
    Détails du profil
    Informations personnelles :
    Âge : 45
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : Mars 2003
    Messages : 201
    Points : 182
    Points
    182
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    Cloud Architect
    Inscrit en
    Mars 2003
    Messages
    10 839
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

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

    Informations forums :
    Inscription : Mars 2003
    Messages : 10 839
    Points : 28 252
    Points
    28 252
    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
    moi c'est Louis-Guillaume, ni Louis, ni Guillaume mais Louis-Guillaume et je n'aide pas ceux qui écorchent mon nom

  3. #3
    Rédacteur/Modérateur


    Homme Profil pro
    Développeur .NET
    Inscrit en
    Février 2004
    Messages
    19 875
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    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 875
    Points : 39 749
    Points
    39 749
    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 régulier
    Homme Profil pro
    apprenti
    Inscrit en
    Décembre 2011
    Messages
    212
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

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

    Informations forums :
    Inscription : Décembre 2011
    Messages : 212
    Points : 100
    Points
    100
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 expérimenté Avatar de hunteshiva
    Homme Profil pro
    Chef de projet en SSII
    Inscrit en
    Février 2010
    Messages
    1 069
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gironde (Aquitaine)

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

    Informations forums :
    Inscription : Février 2010
    Messages : 1 069
    Points : 1 455
    Points
    1 455
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    661
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juin 2006
    Messages : 661
    Points : 244
    Points
    244
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    661
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juin 2006
    Messages : 661
    Points : 244
    Points
    244
    Par défaut
    Je rencontre toujours des problèmes quand je veux envoyer un mail avec un fichier attaché

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    661
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juin 2006
    Messages : 661
    Points : 244
    Points
    244
    Par défaut
    Voila ça fonctionne:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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

Discussions similaires

  1. Envoi d'email par smtp avec C++ (Dev-Cpp)
    Par zeleyou dans le forum Dev-C++
    Réponses: 6
    Dernier message: 20/04/2015, 13h21
  2. [Source] Composant Client Smtp pour envoi d'Emails
    Par Delbeke dans le forum Vos contributions VB6
    Réponses: 11
    Dernier message: 09/12/2010, 11h08
  3. envoi d'email SMTP
    Par mariooma dans le forum ASP.NET
    Réponses: 4
    Dernier message: 12/05/2009, 13h36
  4. [C#] pb avec l'envoie d'Email avec SMTP
    Par hassanibi dans le forum Windows Forms
    Réponses: 22
    Dernier message: 16/04/2007, 17h22
  5. [vb.net] envoi email
    Par roxanne dans le forum Windows Forms
    Réponses: 8
    Dernier message: 10/08/2006, 15h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo