Imports System.Web.Mail
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
*********
Windows Code.............
********
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim oMail As New MailMessage
 
        ' SMTP-Server (z.B. T-Online)
        SmtpMail.SmtpServer = "mailto.t-online.de"
 
        With oMail
            ' Absender
            .From = txtabsender.Text
 
            ' Empfänger
            .To = txtEmpfänger.Text
 
            ' Betreff
            .Subject = txtBetreff.Text
 
            ' Nachricht
            .Body = txtText.Text
 
            ' Anlagen?
            ' .Attachments.Add(New MailAttachment("Dateiname"))
        End With
 
        Try
            SmtpMail.Send(oMail)
            MsgBox("Nachricht wurde versandt.")
 
        Catch oEx As Exception
            MsgBox("Fehler: " & oEx.Message.ToString)
 
        End Try
    End Sub
End Class