TYPE("This.Document") = "O">I am using Cesar Chalom's email form & classes contained in his FoxyPreviewer code. Specifically, the class is "pr_htmledit." Periodically it will error with the message: "Member DOCUMENT does not evaluate to an object." The error appears to be occuring at the cie.DownloadComplete method's command...
This.Document.Body.contentEditable = .T. && This is a good context menu>
>* Navigate to a blank page > >*This.Navigate2("About:Blank") >* Prevent an OLE error, and wait until the object >* gets the blank page open before showing or accessing > >LOCAL lnLoadTimeout >lnLoadTimeout = 6 && seconds >WITH This.OBJECT > .Navigate("about:blank") > * Wait for load completion > lnStartSeconds = SECONDS() > DO WHILE .ReadyState <> 4 ; > AND (SECONDS()-lnStartSeconds <= lnLoadTimeout ) > DOEVENTS > ENDDO >ENDWITH >>
>IF FILE("&lcHTMLfile") > WITH Thisform.Chtmleditor1.oIE > .Navigate("&lcHTMLFile") > DO WHILE .ReadyState != 4 > DOEVENTS > ENDDO > .Document.Body.contentEditable = .T. > ENDWITH >ENDIF >>