Bonjours a tous et merci pour tout dans le passer certains m'ont déjà beaucoup aider.
j'apprends maintenant le vb.net
et je suis confronter a un problème qui me bloque pour le reste du programme..
J'ai beau chercher encore et encore sur des forum, je n'arrive pas a trouver pourquoi je ne peux pas envoyer de mail, alors j'ai l'espoir que vous pourriez m'aider
Email utiliser existe et son a moi,
j'ai bien rentrer mon mot de passe ect
Donc si vous pourriez m'expliquer ce qui ne vas pas, je vous en remercie d'avance ;)Code:
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 Imports System.Net Imports System.Net.Mail Public Class MAILEXP Shared Sub SendMail(ByVal name As String) Dim client As New System.Net.Mail.SmtpClient Dim message As New System.Net.Mail.MailMessage Dim expediteur As String = "@gmail.com" client.UseDefaultCredentials = False client.Credentials = New System.Net.NetworkCredential(expediteur, "*******") Try client.Port = 465 client.Host = "smtp.gmail.com" client.EnableSsl = True message.From = New System.Net.Mail.MailAddress(expediteur) message.To.Add("@gmail.com") Dim item As New System.Net.Mail.Attachment("c:\....") message.Attachments.Add(item) message.Subject = "SUJET" message.Body = "MESSAGE" client.Send(message) Catch ex As Exception MsgBox(ex.ToString) End Try End Sub End Class