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 NEXTThanks!