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.DisplayOpen invitation (no start and end) ;) You should set the .Start and .End properties too.