Dim oOutlookApp As Object
Dim oNamespace As Object
Dim oFolder As Microsoft.Office.Interop.Outlook.Folder
Dim oSubFolder As Microsoft.Office.Interop.Outlook.Folder
Dim oMessage As Object
Dim foldername As String
'Textbox1 wird mit dem ordnerpfad gefüllt was der Benutzer ausgewählt hat
 
oOutlookApp = CreateObject("Outlook.Application")
oNamespace = oOutlookApp.GetNamespace("MAPI")
 
          For Each oFolder In oNamespace.Folders
                'For Each oFolder In oNamespace.Folders("test")
                'ListBox1.Items.Add(oFolder.Name)
             For Each oSubFolder In oFolder.Folders
                            foldername = oSubFolder.FolderPath
                            If foldername = TextBox1.Text Then 'Emailordnerpfad 
                            ' wird verglichen 
                                For Each oMessage In oSubFolder.Items
                                    Select Case TypeName(oMessage)
                                        Case "MailItem"
                   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''_
                     '''''''''''''''
                   ''''einige Felder im email erfragen damit die Informationen
                   ''''nur aus gewuenschten email in die erste textdatei _
                     uebertragen werden''
              If InStr(oMessage.body, "Activated") > 0 Or InStr(oMessage.body, _
              "Start Journey") > 0 
_Or InStr(oMessage.body, "End of Order") > 0 Or InStr(oMessage.body, "Total" & _
"working hours") > 0 Then
      ZieldateiMailText = TextBox2.Text
      datei_schreiben(Application.StartupPath & "\" & TextBox2.Text, "" & _
        oMessage.body)
       ListView1.Items.Add("" & oMessage.body)
     End If
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 ''''einige Felder im email erfragen damit die Informationen
 ''''nur aus gewuenschten email in die erste textdatei uebertragen werden ende'
 
                                        Case Else
                                    End Select
                                Next
                            End If
                    Next
 
                Next