Hi Fabio,

I use the following code and it works fine.

#DEFINE inbox 6

LOCAL loOutLook, loNameSpace, loInbox, nMessageCount, nLoop

loOutLook     = CREATEOBJECT("Outlook.Application")
loNameSpace   = loOutLook.GetNameSpace("MAPI")
loInbox	      = loNameSpace.GetDefaultFolder(inbox)
nMessageCount = loInbox.Items.Count

FOR nLoop = 1 TO nMessageCount
    loInbox.Items[nLoop].Unread = .F.
ENDFOR

RELEASE loOutLook

Hope This Helps,
Gavin...

>Hi,
>
>I am trying to mark my Outlook messages as read. I am using the "Unread" property from the "Item" object, but it is not working. is there another method to do that? I am using the following code:
>
>

>
>oNamespace = oOutlook.GetNamespace("MAPI")
>
>oFolders = oNamespace.Folders()
>
>FOR EACH oMAPIFolder IN oFolders
>
>  oMAPIFolders = oMAPIFolder.Folders()
>  FOR EACH oFolder IN oMAPIFolders
>    oItens = oFolder.items
>    FOR EACH oItem IN oItens
>      oItem.UnRead = .F.
>    NEXT
>  NEXT
>
>NEXT
>
>

>
>Thanks!