Discussion :

[yassine ben chamekh]

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 :

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
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