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

clarion pubishr.com

 
    
    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