Visual Basic.NET - Recorrer Buzon de Outlook.

Hola chicos,

estoy intentando recorrer el buzon de correo del cliente outlook y hasta ahora lo e logrado.

pero debe pedirles ayuda ya que quiero minimizar el tiempo de ejecucion y minimizar la busqueda a solo correos que contengan adjuntos.

este es mi codigo:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


Dim outapp As Outlook.Application
Dim olns As Outlook.NameSpace
Dim MyInbox As Outlook.MAPIFolder
Dim MyItem As Outlook.MailItem


outapp = New Outlook.Application
olns = outapp.GetNamespace("MAPI")
MyInbox = olns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)

'Recorro la coleccion de correos situados en la carpeta seleccionada






For Each MyItem In MyInbox.Items

If MyItem.Attachments.Count <> 0 Then


Debug.Print(MyItem.Subject)
Debug.Print(MyItem.Attachments.Item(1).DisplayName)

Else



End If


Next


MyInbox = Nothing
olns = Nothing
outapp = Nothing

End Sub


gracias.