1 pièce(s) jointe(s)
Envoyer un mail avec vb.net
Bonjour,
je débute dans le vb.net et je veux faire un programme qui permet d'envoyer un email avec :
- Une solution avec 2 projets ( une pour les forms et l'autre pour le code )
- Utiliser un thread
- Utiliser un delegate
- Les instructions à utiliser :
* thread ( adress of ... )
* Addhandler
* Me.invokerequired
Mon code :
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
31
32
33
| Imports System.Net.Mail
Imports System.Threading
Public Class SendMail
Dim Thread1 As New Thread(AddressOf Exe)
Delegate Sub Exec()
Private Sub Exe()
Try
Dim Smtp_Server As New SmtpClient()
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential("chamekhyassine009@gmail.com", "")
Smtp_Server.Port = 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = "smtp.gmail.com"
e_mail = New MailMessage()
e_mail.From = New MailAddress(TXTFROM.Text)
e_mail.To.Add(TXTTO.Text)
e_mail.IsBodyHtml = False
e_mail.Subject = TXTSUBJECT.Text
e_mail.Body = TXTMESSAGE.Text
Smtp_Server.Send(e_mail)
MsgBox("Mail Sended")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs)
Thread1 = New Thread(New ThreadStart(AddressOf Exe))
Me.Invoke(New Exec(AddressOf Exe))
Thread1.Start()
End Sub
End Class |
La problème que j'ai tout fait dans un même form
Merci d'avance
