hilfe bei email send tool

Imports System.Net.Mail

Public Class Form1

    Public Sub sendmail()
        Dim emailmessage As MailMessage = New MailMessage
        emailmessage.From = New MailAddress("[Only registered and activated users can see links. Click Here To Register...]")
        emailmessage.To.Add(TextBox2.Text)
        emailmessage.Subject = TextBox3.Text
        emailmessage.Body = TextBox4.Text
        emailmessage.Priority = MailPriority.Normal


        Dim smtp As New SmtpClient("imap.web.de")
        Dim basicauthentificationinfo As New System.Net.NetworkCredential("[Only registered and activated users can see links. Click Here To Register...]", "bekommt ihr nich")

        smtp.Credentials = basicauthentificationinfo


        Try
            smtp.Send(emailmessage)
        Catch ex As Exception
            MsgBox("Fehler beim Senden", MsgBoxStyle.Critical, "Fehler")
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sendmail()
    End Sub
End Class