Imports System.Web.Mail
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ' Neues MailMessage-Objekt
        Dim oMail As New MailMessage()
 
        ' SMTP-Server
        SmtpMail.SmtpServer = "mail.gmx.net"
 
        With oMail
            ' Absender
            .From = "test@gmx.de"
 
            ' Empfänger
            .To = "test@gmx.de"
 
            ' Betreff
            .Subject = "Test-Nachricht"
 
            ' Nachricht
            .Body = "Dies ist eine Test-Nachricht"
 
            ' Anlagen hinzufügen
            '.Attachments.Add(New MailAttachment("pfad_und_dateiname"))
 
            ' Erweiterte Mail-Einstellungen
            With .Fields
                ' SMTP-AUTH aktivieren
                .Add( _
                  "http://schemas.microsoft.com/cdo/configuration/smtpauthenti" & _
                  "ate", 1)
 
                ' Benutzername und Kennwort festlegen
                .Add( _
                  "http://schemas.microsoft.com/cdo/configuration/sendusername"_
                  , "test@gmx.de")
                .Add( _
                "http://schemas.microsoft.com/cdo/configuration/sendpassword", _
                "DasPasswort")
 
                ' ggf. noch Server-Port festlegen
                .Add( _
                  "http://schemas.microsoft.com/cdo/configuration/smtpserverpo" & _
                  "t", 25)
            End With
        End With
 
        Try
            ' Nachricht senden
            SmtpMail.Send(oMail)
            MsgBox("Nachricht wurde versandt.")
 
        Catch oEx As Exception
            MsgBox("Fehler: " & oEx.Message.ToString)
        End Try
 
    End Sub
 
 
End Class
 
Vieleicht hilt dir der Code weiter.
Viel Erfolg!
MFG
IP-MAN

---------------
VB.NET macht Spaß!