Suche VB Code für "e-mail versenden"

Imports System.Net.Mail
Public Class Form1

Sub Abschicken()
        Dim smtpserver As New SmtpClient
        Dim email As New MailMessage
        smtpserver.Credentials = New Net.NetworkCredential("[Only registered and activated users can see links. Click Here To Register...]", "Passwort")  AUF GROSS UND KLEINSCHREIBUNG DER E-MAIL UND DES PASSWORTES ACHTEN !
        smtpserver.Port = 25
        smtpserver.Host = "[I]smtp.web.de[/I]"  AUF GROSS UND KLEINSCHREIBUNG ACHTEN !                     wäre für web.de
        email = New MailMessage
        email.From = New MailAddress("[Only registered and activated users can see links. Click Here To Register...]")  AUF GROSS UND KLEINSCHREIBUNG ACHTEN !
        email.To.Add("[Only registered and activated users can see links. Click Here To Register...]")  AUF GROSS UND KLEINSCHREIBUNG ACHTEN !
        email.Subject = "Email Betreff"
        email.Body = TextBox1.Text & " " & TextBox2.Text & "   " & Me.Text
        smtpserver.Send(email)
    End Sub