Dim oMail As New MailMessage
        Dim Username As String = System.Environment.UserName
        Dim Datei As Object = "C:\Dokumente und Einstellungen\" & Username & _
          "\Desktop\123\"
 
 
        Dim sPath As String = Datei
        If sPath.EndsWith("\") And sPath.Length > 3 Then
            sPath = sPath.Substring(0, sPath.Length - 1)
        End If
 
 
 
        If System.IO.Directory.Exists(Datei) Then
            System.Web.Mail.SmtpMail.SmtpServer = "mailto.t-online.de"
 
            Dim sFiles() As String = System.IO.Directory.GetFiles(sPath, _
              "*.txt")
            With oMail
                .From = "Test@Test.de"
                .To = "test@test.de"
                .Subject = "Test"
                .Body = "Test"
                Dim sFile As String
                For Each sFile In sFiles
                    .Attachments.Add(New MailAttachment(sFile))
                Next
            End With
            Try
                SmtpMail.Send(oMail)
                End
            Catch oEx As Exception
                MsgBox("Fehler: " & oEx.Message.ToString)
            End Try
        Else
            MsgBox("Fehler:")
        End If