This creates a new item:

Dim Appt as Outlook.AppointmentItem
Set Appt=Application.CreateItem(olApoointmentItem)

You can then set every property like you want. Please look into the Object
Browser for what's available: Click f2, switch from All Libraries to
Outlook, and select the AppointmentItem left hand.

--
Best regards
Michael Bauer - MVP Outlook
Use Outlook Categories? This is Your Tool:
http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6


Am Fri, 8 Feb 2008 15:54:21 +0800 schrieb ZootRot:

Outlook 2003

I have regular and frequent appointments with the same people on the same
topic. I wanted to write some quick VBA code to create an appointment
from
a form where I select from standard options. Alternatively, add some
fields
(text and drop downs) to a calendar entry form, which I load via a toolbar
button.

I Googled for some code examples but cannot find anything. Can anyone
point
me in the right direction, or give some advice.

I've never programmed in Outlook VBA, but I have programmed in Excel VBA &
VB6.