Imports System.Net
Imports System.Net.Mail
        Dim smtp As New SmtpClient("mail.gmx.net")
        Dim cred As New NetworkCredential("test@gmx.de", "test") ' für 
        ' Authentifizierung
        smtp.Credentials = cred
        Dim m As New MailMessage("test@gmx.de", "test@gmx.de", "Betreff", _
          "Nachricht")
        'Dim a As New Attachment("C:\Testfile.txt")
        'm.Attachments.Add(a)
        Try
            smtp.Send(m)
        Catch ex As Exception
            MsgBox(ex.InnerException.ToString)
            'Debug.Print(ex.InnerException.ToString)
        End Try