Erreur Thread [VB.NET]

Je te saurais gré de ne pas publier inutilement dans ton propre sujet. Pour rappel : d’une part c’est un forum et non une salle de chat, les réponses ne sont pas immédiates et, d’autre part, si tu n’as pas de réponses c’est probablement parce que personne n’a de solution pour l’instant, inutile de relancer toute les heures ou demi-heures.

28/08/18 à 20h59
Modifié

#JeSuisArius

+3 -0

LeGeek57510, mardi 28 août 2018 à 23h47

Bonjour LeGeek57510,

Je te saurais gré de ne pas publier inutilement dans ton propre sujet. Pour rappel : d’une part c’est un forum et non une salle de chat, les réponses ne sont pas immédiates et, d’autre part, si tu n’as pas de réponses c’est probablement parce que personne n’a de solution pour l’instant, inutile de relancer toute les heures ou demi-heures.

Taurre

Très bien, de toute façon je m’en doutait un peu, trop complexe mon problème Je vais attendre une réponse venant de la part d’une personne qui aurais éventuellement un bout de chemin menant à la victoire ! Merci

28/08/18 à 23h47

+0 -0

anonyme, mercredi 29 août 2018 à 12h32

Si tu postais ton code en entier ça nous aiderais beaucoup pour t’aider.

29/08/18 à 12h32

+1 -0

LeGeek57510, mercredi 29 août 2018 à 12h50
Modifié

Très bien,

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        If Not TextBox1.Text = "" Then
            If Not TextBox2.Text = "" Then
                If Not TextBox3.Text = "" Then
                    If Not TextBox5.Text = "" Then
                        If Not ComboBox1.Text = "" Then
                            If CheckBox1.Checked = True Then
                                If CheckBox3.Checked = True Then

                                    Dim Thread1Start As New ThreadStart(AddressOf sendMail)
                                    Dim Thread1 As New Thread(Thread1Start)
                                    Thread1.IsBackground = True
                                    Thread1.Start()
                                End If
                            End If
                        Else
                            errChamp()
                        End If
                    Else
                        errChamp()
                    End If
                Else
                    errChamp()
                End If
            Else
                errChamp()
            End If
        Else
            errChamp()
        End If
    End Sub

Voilà, c’était pour le bouton et le reste:

Sub errChamp()
        MessageBox.Show("Erreur, tout les champs ne sont pas complétés", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Sub

Sub sendMail()
     Invoke(New MethodInvoker(Sub()
                                     While My.Settings.mailSend = 0
                                         Try
                                             Dim mail As New MailMessage
                                             Dim SMTP As New SmtpClient


                                             If ComboBox1.SelectedItem = ComboBox1.Items(0) Then
                                                 SMTP = New SmtpClient("smtp.gmail.com")
                                                 SMTP.Port = "587"
                                             End If

                                             mail.From = New MailAddress(TextBox1.Text) ' De
                                             mail.To.Add(TextBox3.Text)                 ' Pour
                                             mail.Subject = TextBox5.Text
                                             mail.Body = RichTextBox1.Text

                                             If Not TextBox7.Text = "" Then
                                                 Try
                                                     Dim mailAtt = New Net.Mail.Attachment(TextBox7.Text)
                                                     mail.Attachments.Add(mailAtt)
                                                 Catch ex As Exception
                                                     MessageBox.Show("Erreur, " & ex.ToString, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
                                                 End Try
                                             End If

                                             SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
                                             SMTP.EnableSsl = True

                                             SMTP.Send(mail)

                                             My.Settings.mailSend = 1
                                             My.Settings.Save()

                                             if My.Settings.mailSend = 1 Then
                                                   MsgBox("Mail envoyer !")
                                             End If

                                             Me.Refresh()
                                         Catch ex As Exception
                                             MessageBox.Show("Erreur, " & ex.ToString, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
                                         End Try
                                     End While
                                 End Sub))
End Sub

29/08/18 à 12h50
Modifié

+0 -0

Erreur Thread [VB.NET]

Pas encore membre ?