C0000005 fatal error with invalid property name in Visual FoxPro (221734)

MORE INFORMATION

Steps to reproduce the behavior

1. Create a program named Getitems.prg using the following code:

      oTraverse = CREATEOBJECT("traverseoutlook")
      oTraverse.BeginTraverse
   
      DEFINE CLASS TraverseOutlook AS CUSTOM
         nNestingLevel = 0
         oOutLookObject = NULL
         olNameSpace = NULL
   
         PROCEDURE INIT
            WITH THIS
               .oOutLookObject = CREATEOBJECT("Outlook.Application")
               .olNameSpace = .oOutLookObject.GetNameSpace("MAPI")
            ENDWITH
         ENDPROC
   
         PROCEDURE BeginTraverse
            LOCAL folder
            FOR EACH folder ;
                  IN THIS.olNameSpace.Folders
               THIS.ProcessFolder(folder)
            NEXT folder
         ENDPROC
   
         PROCEDURE ProcessFolder(subfolder)
            * The valid property is THIS.nNestingLevel
            THIS.NestingLevel = THIS.NestingLevel + 1
            ?REPLICATE(CHR(9),THIS.NestingLevel-1),subfolder.NAME
            FOR EACH folder IN subfolder.Folders
               THIS.ProcessFolder(folder)
            NEXT folder
            FOR EACH ITEM IN subfolder.Items
               ?REPLICATE(CHR(9),THIS.NestingLevel),ITEM.subject
            NEXT ITEM
            THIS.NestingLevel = THIS.NestingLevel - 1
         ENDPROC
      ENDDEFINE
   						

2. In the Command window, type the following:

   DO GETITEMS
   					

3. Visual FoxPro terminates after displaying the following error message:
   Fatal error: Exception code = C0000005
4. Replace the ProcessFolder (subfolder) code with the following code:

      THIS.nNestingLevel = THIS.nNestingLevel + 1
      ?REPLICATE(CHR(9),THIS.nNestingLevel-1),subfolder.NAME
      FOR EACH folder IN subfolder.Folders
         THIS.ProcessFolder(folder)
      NEXT folder
       FOR EACH ITEM IN subfolder.Items
         ?REPLICATE(CHR(9),THIS.nNestingLevel),ITEM.subject
      NEXT ITEM
      THIS.nNestingLevel = THIS.nNestingLevel - 1
   						

5. In the Command window, type the following:

         DO GETITEMS
   					

6. Note that Visual FoxPro outputs information to the screen as the Outlook folder hierarchy is traversed.