/* Define Outlook constant for Appointment Item */

function createAppt( subject, location, start, end, description, reminderTimMin)
{  
	
	/* Create the Outlook Object and Appointment Item */  
	outlookAppt = new ActiveXObject("Outlook.Application");
	nameSpace = outlookAppt.getNameSpace("MAPI");
	apptFolder = nameSpace.getDefaultFolder(9);
	
	apptItem = apptFolder.Items.add("IPM.Appointment");
	apptItem.Subject = subject;  
    apptItem.Location  = location;  
    apptItem.Start = start;  
    apptItem.End = end;  
    apptItem.Body = description;
    apptItem.ReminderMinutesBeforeStart = reminderTimMin; 
	apptItem.Save();
	apptItem.Display();  
}