Clarion

sábado, 5 de setembro de 2009

Outlook Ocx - Como Fazer - 05 09 09 14:16



 
    
    Define this local variable
citem  Cstring(20)
 
   
    Define this local window     
Window WINDOW('Send a Message'),AT(,,338,100),SYSTEM,GRAY,DOUBLE
       OLE,AT(20,6,80,20),USE(?Ole1),COMPATIBILITY(020H)
       END
       BUTTON('Button 2'),AT(21,30,60,20),USE(?Button2),#ORIG(?Button2)
     END

    
Embed this in a button
?ole1{prop:create}='outlook.application'
cItem=?ole1{'createItem(0)'}

if citem[1]<>'`' then
   Message('no mail item created - error')
else
   ?ole1{citem&'.to'} ='james@clarionfoundry.com'
   ?Ole1{citem&'.from'}='james@craperoo.com'
   ?ole1{citem&'.subject'}='test message ' & random(1,9999999999999999999999)
   ?ole1{citem&'.body'}='text message'
   ?ole1{citem&'.send'}
   ?ole1{prop:release}=citem
   citem=''
   clear(citem)
end
display

http://www.clarionpublisher.com/Site/index.aspx?Sitename=Clarionfoundry

quinta-feira, 6 de agosto de 2009

Case Message / com Opcoes Clarion Matos - 06 08 09 05:49



CASE MESSAGE('Continuar?','Titulo',ICON:Question,'&Sim|&Nao|&Outra',3,2)
OF 1                               
 MESSAGE('Aqui a resposa para Sim')
OF 2                               
 MESSAGE('Aqui a resposa para Nao')
OF 3                               
 MESSAGE('Aqui a resposa para Outra opcao')
END

CASE MESSAGE('Sair','Tit',ICON:Question,BUTTON:Yes+BUTTON:No,BUTTON:No,1)
OF BUTTON:No                         
   MESSAGE(' no ')
OF BUTTON:Yes
   MESSAGE('yes ')
END