Try
            Dim m As New MailMessage("Von", "An", "Betreff", _
             "Text")
            Dim sc As New SmtpClient("Smtp-Server")
             Dim cred As New NetworkCredential("E-Mail des Absenders", _
               "Passwort")
            sc.Credentials = cred
                m.Attachments.Add(New Net.Mail.Attachment("Anhang"))
            sc.Send(m)
         Catch ex As Exception
             MessageBox.Show(ex.Message, "Fehler")
         End Try