Code:
Do
Dim text As String
text = TextBox1.Text & vbLf
Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
myClient.Credentials = New NetworkCredential("SENDeMAIL", "PW")
myClient.Send("SENDeMAIL", "Zielmail", "Betreff", text)
Loop
Wer mit dem Code nichts anfangen kann und ein Spammer braucht-Schreib ich euch in 30 sekunden kostenlos :O