>Thank you
>
>I can see the proprieties
>
>It there anyway to display the value of a propriety ?
Pop3 = CREATEOBJECT("JMail.Pop3")
IF AMEMBERS(arrayPop3, Pop3, 3 ) # 0
CREATE CURSOR crsTest (ObjectMembres C(254), propertyType C(254), Signatured C(254), HlpString M, cValues C(254))
INSERT INTO crsTest;
FROM ARRAY arrayPop3
SCAN
IF LEFT(PropertyType,8) == [Property]
? ALLTRIM(ObjectMembres)
lcProperties = [Pop3.]+ALLTRIM(ObjectMembres)
TRY
REPLACE cValues WITH ICASE(TYPE(lcProperties) == [O], [{Object}],;
ISNULL(EVALUATE(lcProperties)), [{NULL}],;
TRANSFORM(EVALUATE(lcProperties)))
CATCH
ENDTRY
ENDIF
ENDSCAN
GO TOP
BROWSE NORMAL
ENDIF
AGAIN not tested :-)
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.