Change it to "=myItem.Delete()"

Please use < pre > tag to make your code readable.

>I am having an intermittent problem with "myItem.Delete()" below. Sometimes it works great and sometimes I get an OLE error "Parameter not optional". Same computer each time. Have any idea what would cause this?

>	myOlApp = CREATEOBJECT("Outlook.Application")
>	nms = myOlApp.GetNamespace("MAPI")
>	myFolder = nms.GetDefaultFolder(10)
>	
>	lcFolderName = "text weather"
>	llFolderExists = .F.
>	FOR EACH loFolder IN myFolder.Folders
>		IF loFolder.NAME =  lcFolderName
>			llFolderExists = .T.
>			lcTWfolder = loFolder
>			EXIT
>		ENDIF
>	ENDFOR
>
>	IF NOT llFolderExists
>		lcTWfolder = myFolder.Folders.ADD("text weather")
>	ENDIF
>
>	fldContacts = lcTWfolder.Items
>	myItems = fldContacts.RESTRICT("[CompanyName] = 'Texting'")
>	FOR i=myItems.COUNT TO 1 STEP -1
>		myItem = myItems.ITEM(i)
>		IF (myItem.CLASS = 40)
>			= myItem.Delete()
>		ENDIF
>	ENDFOR