That's interesting. I have Outlook 2000 installed on Windows 2000 Professional and I still receive the same error.

Tracy

>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
>*-------------
>