Devo cercare nella posta di outlook dei messaggi, ho postato il programma ma mi genera un "errore 13" ogni 15 mail.
Vorrei sapere da cosa è dato per intercettare l'errore, posto il prg

ho immesso nei riferimenti outlook view control

Dim nsp As NameSpace
Dim objInBox As Object
Dim objSpecFold As Object
Dim objMailItem As MailItem

Set myOlApp = CreateObject("Outlook.Application")
Set nsp = myOlApp.GetNamespace("MAPI")
Set objInBox = nsp.GetDefaultFolder(olFolderInbox)
Set objSpecFold = objInBox.Folders("posta")

For Each objMailItem In objSpecFold.Items

If objMailItem.SenderName = "pippo" Then

testo = objMailItem.Body

If Trim(Left(testo, 2)) = "si" Then Debug.Print "Accetto da "; _ objMailItem.SenderEmailAddress + Chr(13)
If Trim(Left(testo, 2)) = "no" Then Debug.Print "Rifiuto da "; _ objMailItem.SenderEmailAddress + Chr(13)

End If
nx:

Next

Set nsp = Nothing
Set objInBox = Nothing
Set objSpecFold = Nothing

spero di essere stato chiaro...
grazie mille