Discussion :

[Kimim]

bonjour a tous,

voila j'ai créé un logiciel et le code d’envoi de mail ne marche pas sa me met

pour vous aider voila les erreurs :

Avertissement 3 Variable locale inutilisée*: 'Adresse'. C:\Users\Ulric\Desktop\VB\WindowsApplication1\WindowsApplication1\Form3.vb 14 13 WindowsApplication1
Avertissement 4 Variable locale inutilisée*: 'message'. C:\Users\Ulric\Desktop\VB\WindowsApplication1\WindowsApplication1\Form3.vb 16 13 WindowsApplication1
Avertissement 5 Variable locale inutilisée*: 'MyMailMessage'. C:\Users\Ulric\Desktop\VB\WindowsApplication1\WindowsApplication1\Form3.vb 18 13 WindowsApplication1
Avertissement 1 Variable locale inutilisée*: 'probleme'. C:\Users\Ulric\Desktop\VB\WindowsApplication1\WindowsApplication1\Form3.vb 12 13 WindowsApplication1
Avertissement 2 Variable locale inutilisée*: 'raconte'. C:\Users\Ulric\Desktop\VB\WindowsApplication1\WindowsApplication1\Form3.vb 13 13 WindowsApplication1
Avertissement 6 Variable locale inutilisée*: 'SMTPServer'. C:\Users\Ulric\Desktop\VB\WindowsApplication1\WindowsApplication1\Form3.vb 19 13 WindowsApplication1

et voila le code d’envoi de mail :

Dim probleme= demande.Text
Dim raconte = expliquations.Text
Dim Adresse = send.Text

Dim message As String = " Un problème avec quoi" & demande.Text & vbNewLine & "blabla" & expliquations.Text & vbNewLine & "adresse_mail" & send.Text

Dim MyMailMessage As New MailMessage()
Dim SMTPServer As New SmtpClient("smtp.gmail.com")

MyMailMessage.From = New MailAddress("petit.ulric@gmail.com")
MyMailMessage.To.Add("petit.ulric@gmail.com")
MyMailMessage.Subject = ("Ep bug")
MyMailMessage.Body = ("------------------ ")

SMTPServer.Port = ("587") 'Port

s'ilvouplait aidez moi

[hunteshiva]

Bonjour,

être étudiant ne t'autorise pas a faire du code a l'arrache

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim probleme= demande.Text
Dim raconte = expliquations.Text
Dim Adresse = send.Text

Ils sont ou les types de variables? (genre As String)


Ce ne sont pas des erreurs mais des Warning,
rien qui ne devrait t’empêcher de faire tourner ton appli.
Ce qui et bizarre, c'est que c'est pas normale qu'il te le dise au vue de ton code ...
cette ligne de code a mon avis est fausse:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SMTPServer.Port = ("587") 'Port

ce serait plus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SMTPServer.Port = 587 'Port

sachant que le port 587 est pour l'envoie de mail sécurisé, options SSL à paramétrer en plus je crois.
Alors que le Port 25 lui est pour l'envoie de mails simples

Troisième point, les sujet sont nombreux sur les envoi de mail.
Une recherche sur Google suffit pour trouver des exemples:
http://www.developpez.net/forums/d54...is-email-smtp/

J'avais laissé ce code à l'époque,
un peu compréssé mais il marchait.

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

[Pol63]

Ils sont ou les types de variables? (genre As String)

les types sont implicites quand la variable est settée
Text étant un string le compilateur "rajoute" le As String automatiquement

[hunteshiva]

Je sais bien, mais je trouve que c'est une "mauvaise habitude",
c'est pas au compilateur de trouver le type de tes variables.

[Savak]

Bonjour!

Si tu veux absolument utiliser l'envoie de mail sécurisé, tu peux utiliser le code ci-dessous (port 587) :

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
Imports System.Net.Mail
 
Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
 
    Try
        SmtpServer.Credentials = New Net.NetworkCredential("adresse.emettrice@gmail.com", "motDePasseMessagerie")
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True
        mail.To.Clear()
        mail.To.Add("adresse.réceptrice@toto.fr")
        mail.From = New MailAddress("adresse.emettrice@gmail.com", "Nom de l'émetteur du message")
        mail.Subject = "Objet du message"
        mail.Body = "Corps du message"
        SmtpServer.Send(mail)
        MsgBox("Message envoyé avec succès.")
    Catch ex As Exception
        MsgBox("Erreur lors de l'envoie du mail.")
    End Try

N'oublie surtout pas la ligne SmtpServer.EnableSsl = True!
Sinon, ton mail ne partira pas...