Local oServer := TMailMng():New( 0, .T. )
conout( oServer:nSrvTimeout ) // Vai exibir "30"
oServer:nSrvTimeout := 40
conout( oServer:nSrvTimeout ) // Vai exibir "40"
oServer:cSrvAddr := "mail.totvs.com.br"
oServer:cUser := "totver"
oServer:cPass := "mypass"
oServer:Connect()
oServer:nSrvTimeout := 60
conout( oServer:nSrvTimeout ) // Vai exibir "40"
|