' Set reference to the Outlook library
Sub CreateOutlookAppointment()
    Dim objOL As Outlook.Application
    Dim objAppt As Outlook.AppointmentItem

    Set objOL = CreateObject("Outlook.Application")
    Set objAppt = objOL.CreateItem(olAppointmentItem)
    With objAppt
        .Subject = "Sectional Meeting Appointment"
        .Location = "Cat's Home"
        .ReminderSet = True
        .Start = "3/2/2006  10:00:00"    'd/m/yyyy
        .End = "3/2/2006 15:00"
        '.AllDayEvent = True
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 30  'Mins
        .Save
        .display
    End With

    Set objOL = Nothing
    Set objAppt = Nothing
End Sub