>oOutlook = CREATEOBJECT('outlook.application') >loSpace = oOutlook.GetNameSpace("MAPI") >m.OLSyncFolder = "Inbox" >loSelFolder = .NULL. >FOR EACH loFolder IN loSpace.Folders > FOR EACH loSubFolder IN loFolder.Folders > IF ALLT(loSubFolder.NAME) == m.OLSyncFolder > loSelFolder = loSubFolder > EXIT > ENDIF > ENDFOR > IF !ISNULL(loSelFolder) > EXIT > ENDIF >ENDFOR > >IF ISNULL(loSelFolder) > =MESSAGEBOX("Folder '" + m.OLSyncFolder + "' is invalid or not found.",48,"System Message") > RETURN >ENDIF > >IF TYPE("loSelfolder")<>"O" > =MESSAGEBOX("Invalid folder selected",48, "Sync Error!" ) > RETURN >ENDIF > >loContacts = loSelFolder.Items >RETURN>