Imports System.Reflection
Imports Microsoft.Office.Interop.Outlook '// Reference to Microsoft Outlook 
' 11.0 Object Library
 
Module Module1
    Sub Main()
        ' Create Outlook application.
        Dim oApp As Microsoft.Office.Interop.Outlook.Application = New _
          Microsoft.Office.Interop.Outlook.Application
 
        ' Get Mapi NameSpace.
        Dim oNS As Microsoft.Office.Interop.Outlook.NameSpace = _
          oApp.GetNamespace("mapi")
        oNS.Logon("YourValidProfile", Missing.Value, False, True) ' TODO:
 
        ' Get Messages collection of Inbox.
        Dim oInbox As Microsoft.Office.Interop.Outlook.MAPIFolder = _
          oNS.GetDefaultFolder( _
          Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderInbox)
        Dim oItems As Microsoft.Office.Interop.Outlook.Items = oInbox.Items
        Console.WriteLine("Total : " & oItems.Count)
 
        ' Get unread e-mail messages.
        oItems = oItems.Restrict("[Unread] = true")
        Console.WriteLine("Total Unread : " & oItems.Count)
 
        ' Loop each unread message.
        Dim oMsg As Microsoft.Office.Interop.Outlook.MailItem
        Dim i As Integer
 
        For i = oItems.Count To 1 Step -1
            oMsg = oItems.Item(i)
 
 
'hier soll das reply rein
'und anschließend der Move in Subfolder
 
 
            Console.WriteLine(i & " " & oMsg.SenderName & " " & oMsg.Subject & _
              " " & oMsg.ReceivedTime)
            oMsg.UnRead = False
            Console.WriteLine("---------------------------")
        Next
 
        ' Log off.
        oNS.Logoff()
 
        ' Clean up.
        oApp = Nothing
        oNS = Nothing
        oItems = Nothing
        oMsg = Nothing
 
        Console.WriteLine("press key")
        Console.ReadKey()
    End Sub
End Module