Imports System.Web.Mail
 
Public Class frmDruckenTEST
    Inherits System.Windows.Forms.Form
 
    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.btx.dtag.de"
 
        With oMail
            ' Absender
            .From = "Ihre EMail-Adresse"
 
            ' Empfänger
            .To = "Empfänger EMail-Adresse"
 
            ' Betreff
            .Subject = "Test-Nachricht"
 
            ' Nachricht
            .Body = "Dies ist eine Test-Nachricht"
 
            ' 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