this code more improved

PS : this codes uses outlctlx.dll and requieres Office2000 or higher version if you get error download update from this link ,

http://activex.microsoft.com/activex/controls/office/outlctlx.CAB

** PROCEDURE OLOOK.PRG
PUBLIC oform1
oform1=NEWOBJECT("form1")
  WITH oform1
    .setall("fontsize",8,"commandbutton")
   ENDWITH  
oform1.Show
oform1.showtips=.t.
RETURN
**************************************************
DEFINE CLASS form1 AS form

    Height = 400
    Width = 790
    DoCreate = .T.
    Caption = "Outlook Integration Form ..."
    Name = "Form1"
    autocenter=.t.

    ADD OBJECT cmdExit AS commandbutton WITH ;
        Top = 360, ;
        Left = 704, ;
        Height = 27, ;
        Width = 84, ;
        Caption = "\<Exit", ;
        Name = "CmdExit"

    ADD OBJECT cmdCalendar AS commandbutton WITH ;
        Top = 360, ;
        Left = 1, ;
        Height = 27, ;
        Width = 84, ;
        Caption = "\<Calendar", ;
        Name = "CmdCalendar"

    ADD OBJECT cmdInBox AS commandbutton WITH ;
        Top = 320, ;
        Left = 1, ;
        Height = 27, ;
        Width = 84, ;
        Caption = "\<Inbox", ;
        Name = "CmdInBox"

    ADD OBJECT cmdSent AS commandbutton WITH ;
        Top = 320, ;
        Left = 91, ;
        Height = 27, ;
        Width = 84, ;
        Caption = "\<Sent Items", ;
        Name = "CmdSent"

    ADD OBJECT cmdContact AS commandbutton WITH ;
        Top = 360, ;
        Left = 92, ;
        Height = 27, ;
        Width = 84, ;
        Caption = "\<Adress Book", ;
        Name = "CmdContact"

   ADD OBJECT cmdoutbox AS commandbutton WITH ;
        Top = 320, ;
        Left = 182, ;
        Height = 27, ;
        Width = 84, ;
        Caption = "\<Outbox", ;
        Name = "Cmdoutbox"

  ADD OBJECT cmddrafts AS commandbutton WITH ;
        Top = 320, ;
        Left = 272, ;
        Height = 27, ;
        Width = 84, ;
        Caption = "\<Drafts", ;
        Name = "Cmddrafts"

    Add Object cmdNewMail As CommandButton With ;
        Top = 320, ;
        Left =362 , ;
        Height = 27, ;
        Width = 84, ;
        Caption = "\<New Mail", ;
        Name = "cmdNewMail"

    Add Object cmdNewTask As CommandButton With ;
        Top = 320, ;
        Left =452 , ;
        Height = 27, ;
        Width = 84, ;
        Caption = "New \<Task", ;
        Name = "cmdNewTask"

    Add Object cmdNewContact As CommandButton With ;
        Top = 320, ;
        Left =542 , ;
        Height = 27, ;
        Width = 84, ;
        Caption = "New Contact", ;
        Name = "cmdNewContact"

    Add Object cmdNewAppointment As CommandButton With ;
        Top = 320, ;
        Left =632 , ;
        Height = 27, ;
        Width = 110, ;
        Caption = "New Appointment", ;
        Name = "cmdNewAppointment"


ADD OBJECT cmdnotes AS commandbutton WITH ;
        Top = 360, ;
        Left = 183, ;
        Height = 27, ;
        Width = 84, ;
        Caption = "Notes", ;
        Name = "Cmdnotes"

ADD OBJECT cmdtasks AS commandbutton WITH ;
        Top = 360, ;
        Left = 273, ;
        Height = 27, ;
        Width = 84, ;
        Caption = "Tasks", ;
        Name = "Cmdtasks"

    ADD OBJECT olecontrol1 AS olecontrol WITH ;
        Top = 0, ;
        Left = 0, ;
        Height = 316, ;
        Width = 790, ;
        Name = "Olecontrol1", ;
        OleClass = "OVCtl.OVCtl.1"
*---------------- procedures --------
    PROCEDURE cmdExit.Click
        ThisForm.Release()
    ENDPROC


    Procedure cmdNewMail.Click
       Thisform.olecontrol1.NewMessage()
    ENDPROC

    Procedure cmdNewTask.Click
       Thisform.olecontrol1.NewTask()
    Endproc

    Procedure cmdNewContact.Click
       Thisform.olecontrol1.NewContact()
    ENDPROC

    Procedure cmdNewAppointment.Click
       Thisform.olecontrol1.NewAppointment()
    Endproc


    PROCEDURE cmdCalendar.Click
        ThisForm.OleControl1.Folder = "CALENDAR"
        ThisForm.Caption = "OutLook Calendar"
        ThisForm.Refresh()
    ENDPROC

    PROCEDURE cmdInBox.Click
        ThisForm.OleControl1.Folder = "INBOX"
        ThisForm.Caption = "OutLook Inbox"
        ThisForm.Refresh()
    ENDPROC

    PROCEDURE cmdSent.Click
        ThisForm.OleControl1.Folder = "SENT ITEMS"
        ThisForm.Caption = "OutLook Sent Items"
        ThisForm.Refresh()
    ENDPROC

    PROCEDURE cmdContact.Click
        ThisForm.OleControl1.Folder = "CONTACTS"
        ThisForm.Caption = "OutLook Contacts"
        ThisForm.Refresh()
    ENDPROC

    PROCEDURE cmdoutbox.Click
        ThisForm.OleControl1.Folder = "Outbox"
        ThisForm.Caption = "OutLook Outbox"
        ThisForm.Refresh()
    ENDPROC

    PROCEDURE cmddrafts.Click
        ThisForm.OleControl1.Folder = "Drafts"
        ThisForm.Caption = "OutLook Drafts"
        ThisForm.Refresh()
    ENDPROC

    PROCEDURE cmdnotes.Click
        ThisForm.OleControl1.Folder = "Notes"
        ThisForm.Caption = "OutLook Notes"
        ThisForm.Refresh()
    ENDPROC

    PROCEDURE cmdtasks.Click
        ThisForm.OleControl1.Folder = "Tasks"
        ThisForm.Caption = "OutLook Tasks"
        ThisForm.Refresh()
    ENDPROC


    PROCEDURE olecontrol1.Init
        This.Folder = "InBox"
    ENDPROC

ENDDEFINE
*-------------