Imports System.Net.mail
Module Module1
    Public Sub mailsenden()
        Dim SmtpObj As New System.Net.Mail.SmtpClient
        Dim MailMessage As New System.Net.Mail.MailMessage()
        Try
            SmtpObj.Host = Form1.TextBox1.Text
            SmtpObj.Port = Form1.TextBox2.Text
            MailMessage.From = New System.Net.Mail.MailAddress( _
              Form1.TextBox3.Text)
            MailMessage.To.Add(Form1.TextBox4.Text)
            MailMessage.Subject = Form1.TextBox5.Text
            MailMessage.IsBodyHtml = False
            MailMessage.Body = Form1.TextBox6.Text
            MailMessage.Priority = MailPriority.High
            SmtpObj.Send(MailMessage)
            MsgBox("Nachricht erfolgreich gesendet")
        Catch err As Exception
            MsgBox("EXCEPTION " + err.Message + vbCrLf)
        End Try
    End Sub
End Module