Bonsoir
Après avoir fiat de l info il y a quelques années je me remet au vb6 , mais j ai beaucoup oublier , et oui
le poid des années est bien la . votre forum est super , et m aide beaucoup , longue vie a celui ci
J ai crée un formulaire de saisie , et le but est d envoyer un compte rendu par mail
mais lors de l envoie apres clic sur bouton envoie , j ai une erreur , (le message n a pu etre envoyer)
et vb m indique la ligne avec : SMTPServer.Send(MyMailMessage) 'Envoi
si vous pouvez m aider
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
41
42 ******************************************************************************************** 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