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
Jim Saunders
Microsoft
This posting is provided “AS IS”, with no warranties, and confers no rights.