Mails kommen nicht an

[x BoooM x]

Hi.

Kann mir mal wer sagen wieso mit dem Code keine Mails ankommen?

Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress(TextBox1.Text)
MyMailMessage.To.Add(TextBox4.Text)
MyMailMessage.Subject = (TextBox3.Text)
MyMailMessage.Body = TextBox5.Text
Dim SMTPServer As New SmtpClient("smtp.web.de")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
SMTPServer.EnableSsl = True
Label6.Text = Val(Label6.Text + 1)
SMTPServer.Send(MyMailMessage)

TextBox1 = Meine Mail-Adresse
TextBox2 = Mein Mail-Passwort
TextBox3 = Betreff
TextBox4 = Empfänger Mail-Adresse
TextBox5 = Text

Möchte das mit einem Timer machen,
beim Label6 wird auch nichts hinzugezählt, es passiert
einfach nichts..

Port stimmt, soll an web.de gehen.

[DnL]

versuch es mal nicht mit nem timer sonder mit thread.

[x BoooM x]

Keine Ahnung was das sein soll.
Na dann erklär mal..

[DnL]

Keine Ahnung was das sein soll.
Na dann erklär mal..

so ungefair

Dim Thread As New Threading.Thread(AddressOf Zählen)
  Thread.Start() 

aus hand geschrieben.