Problème envoie emailRésolu

Question

Voici le code
   Dim Mail As New MailMessage
        Mail.Subject = combobox1.text
        Mail.To.Add("antoine2tt@gmail.com")
        Mail.From = New MailAddress("antoine2tt@gmail.com")
        Mail.Body = textbox1.text

        Dim SMTP As New SmtpClient("smtp.gmail.com")
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential("monpseudo", "monmotdepasse")
        SMTP.Port = "587"
        SMTP.Send(Mail)
        MsgBox("Message envoyer", MsgBoxStyle.Information)

Merci

linebados · Accepted Answer

Option Explicit On
Imports System.Net.Mail
Imports System.Net
Imports Microsoft.VisualBasic
Imports System.IO.Stream
Imports System.IO

Public Class Form1

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strMailFrom As String = "antoine2tt@gmail.com"
        Dim strMailTo As String = "antoine2tt@gmail.com"
        Dim strObjet As String = combobox1.text
        Dim strSMTP As String = "smtp.gmail.com"
        Dim strBody As String = textbox1.text
        'MsgBox(strBody)   

        Call SendMyMail(strMailFrom, strMailTo, strObjet, strBody, strSMTP)

        MessageBox.Show("Message Envoyé")
    End Sub
    Public Sub SendMyMail(ByVal strMailFrom As String, ByVal strMailTo As String, ByVal strObjet As String, ByVal strBody As String, ByVal strSMTP As String)

        Dim objMailMsg As MailMessage = New MailMessage(strMailFrom, strMailTo)

        objMailMsg.Subject = strObjet
        objMailMsg.Body = strBody
        objMailMsg.Priority = MailPriority.High
        objMailMsg.IsBodyHtml = True

        Dim objSMTPClient As Net.Mail.SmtpClient = New Net.Mail.SmtpClient()

        objSMTPClient.Host = strSMTP
        objSMTPClient.EnableSsl = True
        objSMTPClient.Credentials = New System.Net.NetworkCredential("monpseudo", "monmotdepasse")
        objSMTPClient.Port = "587"
        objSMTPClient.Send(objMailMsg)

    End Sub



End Class

Utilisateur anonyme · Answer

Salut,
Sujet déjà traité ici
A toi de changer les paramètres pour gmail.
A bientôt

cs_antoine2tt · Answer

Je suis debutant ... je ne comprend rien :s

Merci

Utilisateur anonyme · Answer

Si tu as besoin d'un coup de main on est là

cs_antoine2tt · Answer

Ba j'aimerais envoyer un emai en utilisent gmail =) 

Merci

cs_antoine2tt · Answer

Désolé du double poste, mais je ne voie toujours pas comment le lien que tu m'as envoyer peut m'aider ... je ne comprend pas ... Tu pourais me faire un code (si possible) 

Merci

cs_antoine2tt · Answer

Et en plus tu ma redirigé vers un probléme de récéption , alors que moi c'est un problème d'envoie  

Merci

cs_antoine2tt · Answer

Non , toujours pas -_- 

Merci

linebados · Answer

Pourtant ça marche chez moi , utilise le même code et tu remplis juste les paramètres de "monpseudo" et "monmotdepasse"

sn

linebados · Answer

surtout tu oublie pas de mettre en place le bouton de test.
sn

cs_antoine2tt · Answer

C'est ce que j'ai fais , rien ne ce passe 

Merci

cs_antoine2tt · Answer

up :s

Merci

cs_antoine2tt · Answer

allo Oo 

Merci

cs_antoine2tt · Answer

JTMMMMMMMMMMMMMMMMMMMMMMMMMM
XD
Je te remercie ça fonctionne :D 

Merci

Problème envoie email

14 réponses

Votre réponse

Discussions similaires