Hi Gary,

Thanks for bringing this to our attention. I have passed it up the line.

I can reproduce this by modifying your code slightly:


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


Thanks again!

Jim