PHP Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Dim text As String
text = RichTextBox1.Text + vbLf
Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
myClient.Credentials = New NetworkCredential(TextBox2.Text, TextBox1.Text)
myClient.Send(TextBox2.Text, "TextBox2.Text, TextBox3.Text", TextBox4.Text, text)
MFG
Vaas™