>Hello...
>How invite other persons to a appointment or event from calendar of outlook 97 using OLE ?

This snippet should give you a start:

oOL = CreateObject("Outlook.Application")
oAppt = oOL.CreateItem(1) && olAppointmentItem
oAppt.Recipients.Add("my Pal")
oAppt.Subject = "Let's go to Hooters"
oAppt.Location = "Hooters @ Wurzbach"
oAppt.Start = {^2001/09/14 14:00:00}
oAppt.End = {^2001/09/14 15:00:00}
oAppt.Display

Open invitation (no start and end) ;) You should set the .Start and .End properties too.
[updated]

HTH