#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 loOutLookHope This Helps,
> >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 > >>