finde mail i outlook via .net

har lyst det således.

  Dim myOlApp = CreateObject("Outlook.Application")
        Dim myOlExp = myOlApp.ActiveExplorer
        Dim myOlSel = myOlExp.Selection

        Dim myNameSpace = myOlApp.GetNamespace("MAPI")
        Dim myFolder = myNameSpace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
        Dim msgsubject = DataGrid1.Item(rowNr, 1)
        Dim myItem = myFolder.Items(msgsubject)

        Dim myDestFolder As Outlook.MAPIFolder
        Dim myInbox = myNameSpace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
        Dim item As Outlook.MailItem

        For Each item In myInbox.items
            If (item.SenderEmailAddress = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0)) Then
                myItem = item
            End If
        Next

        myDestFolder = myInbox.Folders(folderName)
        Dim test As String = myDestFolder.FolderPath
        myItem.Move(myDestFolder)

    End Sub