none
Envoie de mail. RRS feed

  • Question

  • Bonjour à tous.

    Voila mon probleme.

    J'aimerai si possible envoyé un mail à partir de mon application.

    Voici une partit de code trouver sur MSND remanier à ma sauce mais sa n'a pas l'aire de marcher

    Peut t'on me dire pourquoi ?

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            Dim Message As New System.Net.Mail.MailMessage

            Message.Subject = "probleme pompe 1"


            With Message.To
                .Add(New Net.Mail.MailAddress("adresse1@gmail.com", "motdepass1"))
            End With

            Dim Smtp As New System.Net.Mail.SmtpClient("smtp.gmail.com", 587)

            Smtp.EnableSsl = True
            Smtp.Credentials = New Net.NetworkCredential("adress2@gmail.com", "motsdepass2")
            Smtp.Send(Message)

        End Sub
    End Class

     

    Merci d'avance je comprend pas!

    jeudi 20 mai 2010 16:07

Réponses

  • Bonjour,

    Ajouter la ligne suivante en haut de votre code :

    Imports System.Net.Mail

    Cordialement


    Gilles TOURREAU - MVP C# - Architecte .NET/Consultant/Formateur
    • Marqué comme réponse nini06700 jeudi 20 mai 2010 21:20
    jeudi 20 mai 2010 20:44
    Modérateur

Toutes les réponses

  • Bonjour,

    Vous devez spécifier une adresse d'expéditeur :

    Message.From = New MailAddress("expediteur@gmail.com")

    Cordialement


    Gilles TOURREAU - MVP C# - Architecte .NET/Consultant/Formateur
    • Marqué comme réponse nini06700 jeudi 20 mai 2010 21:20
    • Non marqué comme réponse nini06700 jeudi 20 mai 2010 21:20
    jeudi 20 mai 2010 19:18
    Modérateur
  • Bonjour,

    Tu écris : "... envoyé un mail à partir de mon application ..."

    Voici du testé :

    Option Explicit On
    Public Class Form1
     Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     Dim titulus As String
     Dim animus As String
     Dim corpus As String
     titulus = "irolog@free.fr"
     animus = "Logiciel Poker"
     corpus = "Merci de spécifier votre demande"
     System.Diagnostics.Process.Start("mailto:" & titulus & "?subject=" & animus & "&body=" & corpus)
     'System.Diagnostics.Process.Start("mailto:irolog@free.fr" & "?subject=Logiciel Poker" & "&body=Préciser votre demande")
     'System.Diagnostics.Process.Start("mailto:" & "irolog@free.fr" & "?subject=" & "Logiciel Poker" & "&body=" & "Préciser votre demande")
     End Sub
    End Class

    Cordialement.

     


    Joe ___ Romans et Logiciels ___ http://irolog.free.fr
    jeudi 20 mai 2010 19:21
  • Merci pour les elements mais sa ne marche toujour pas.

    Pour la premiere solution a parament il ne reconnait pas New MailAddress il le surligne

    ou doit'je imcorporer ces lignes?

     

    Pour la deuxieme solution c'est bien sauf que le mail ne s'envoie pas automatiquement je doit appuyer sur Envoyé et je suis obliger de passer par windaws mail

    C'est deja sa mais c'est pas ausi automatique que sa.

     

    Merci pour les elements.

    jeudi 20 mai 2010 20:36
  • Bonjour,

    Ajouter la ligne suivante en haut de votre code :

    Imports System.Net.Mail

    Cordialement


    Gilles TOURREAU - MVP C# - Architecte .NET/Consultant/Formateur
    • Marqué comme réponse nini06700 jeudi 20 mai 2010 21:20
    jeudi 20 mai 2010 20:44
    Modérateur
  • Merci au top du top :D
    jeudi 20 mai 2010 21:21