>WITH This > *** create configuration and message objects > .oConfig = CREATEOBJECT( 'CDO.Configuration' ) > IF TYPE( 'This.oConfig' ) = 'O' > *** Check to see if we have configuration infomation > IF NOT EMPTY( NVL( .oConfig.Fields( "http://schemas.microsoft.com/cdo/configuration/smtpserver").value, "" ) ) > llRetVal = .T. > ELSE > *** Manually set Configuration properties > *** using the CdoConfig table > llRetVal = This.GetSmtpInfo() > ENDIF > ENDIF >ENDWITH >>