Imports System
Imports System.Web
Imports System.Net
Imports System.Web.Mail

Public Class Mail
  Inherits System.Windows.Forms.Form

Vom Windows Form Designer generierter Code

  Private Sub btnSenden_Click(ByVal sender As Object, _
          ByVal e As System.EventArgs) Handles btnSenden.Click
    Dim oMail As New MailMessage
    With oMail
      .To = txtEmpfänger.Text
      .Subject = txtBetreff.Text
      .Body = txtNachricht.Text
    End With
    SmtpMail.SmtpServer = txtSmtp.text
    Try
      SmtpMail.Send(oMail)
      MessageBox.Show("Nachricht wurde verschickt.", _
             "Erfolgreich abgeschickt!", _
             MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As Exception
      MessageBox.Show("FEHLER: " & ex.Message, "Error", _
             MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    End Try
  End Sub

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