Bonjour
Après avoir fait de l’info il y a quelques années je me remet au vb , mais j’ai besoin d’aide ,votre forum est super, et m’aide beaucoup, longue vie à celui-ci
J’ai créé un formulaire de saisie , et le but est d’envoyer un compte rendu par mail
mais lors de l’envoie après clic sur bouton envoie , j’ai une erreur , (le message n’a pu être envoyer)
et vb m indique la ligne avec : SMTPServer.Send(MyMailMessage) 'Envoi
si vous pouvez m’aider
je peux vous envoyer le projet si vous le désirer
merci d’avance
voici le code
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 Imports System.Net.Mail Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dossier = tbdossier.Text Dim tech = tbtech.Text Dim nom = tbnom.Text Dim prenom = tbprenom.Text Dim adresse = tbadresse.Text Dim ville = tbville.Text Dim cp = tbcp.Text Dim tel1 = tbtel1.Text Dim tel2 = tbtel2.Text Dim type = tbtype.Text Dim model = tbmodele.Text Dim codeusine = tbcu.Text Dim serie = tbserie.Text Dim panne = tbpanne.Text Dim codeiris = tbiris.Text Dim commentaire = tbcommande.Text Dim autre = tbautre.Text Dim montant = tbmontant.Text Dim message As String = "------------" Dim MyMailMessage As New MailMessage() Dim SMTPServer As New SmtpClient("smtp.gmail.com") MyMailMessage.From = New MailAddress("mail@gmail.com") MyMailMessage.To.Add("mail@gmail.com") MyMailMessage.Subject = ("Objet") MyMailMessage.Body = ("Message") SMTPServer.Port = ("587") 'Port SMTPServer.Credentials = New System.Net.NetworkCredential("mail@gmail.com", "sarl") SMTPServer.EnableSsl = True SMTPServer.Send(MyMailMessage) 'Envoi End Sub End Class
Partager