>Thank you by you help.
>
>but... how do i invite to others persons? which are the code?...
>i type "oappt.send" but nothing...
>
>please helpme.

Add .MeetingStatus = 1:

oOL = CreateObject("Outlook.Application")
oAppt = oOL.CreateItem(1) && olAppointmentItem
With oAppt
	.Recipients.Add("My Pal")
	.Subject = "Let's go for some beers"
	.Location = "Hooters @ Wurzbach"
	.Body = "Just a test"
	.Start = {^2001/09/14 14:00:00}
	.End = {^2001/09/14 15:00:00}
	.MeetingStatus = 1	&& olMeeting
	.Save
	.Send
EndWith

HTH