Dim oMail As New MailMessage
        With oMail
            .From = "semueller@uvw.de"
            .To = "semueller@uvw.de"
            .Subject = "Test-Nachricht"
            .Body = "Dies ist eine Test-Nachricht"
        End With
        Try
            SmtpMail.Send(oMail)
            MsgBox("Nachricht wurde versandt.")
        Catch oEx As Exception
            MsgBox("Fehler: " & oEx.Message.ToString)
        End Try

Gru?,

Sebastian M?ller

www.ComOnShop.de