Use one Start and End time for all Outlook Appointments

Last reviewed on July 11, 2013

To create a custom form that has a preset start and end time, you need to open the form in design mode, add a little VBScript then publish the form. You can then either set the form as your default appointment form or select it from the New Items menu.

To use the form, select a date in the calendar and click the New button.

To create the form:

  1. Open a new Outlook Appointment form
  2. If the Developer ribbon is not visible, go to File, Options customize Ribbon and add a check to enable the Developer ribbon
  3. On the developer ribbon, click Design This Form
  4. click the ViewCode button to open the Script editorClick View Code button to open the Script Editor. (It looks like Notepad.)
  5. Paste the Script into the editor window and close the editor.
  6. Test the form by clicking the Run This Form button
  7. Publish it by clicking Publish
  8. Enter a name for the form.
  9. Close the form and return to Outlook

To set the form as the default for the folder, right click on the folder and choose Properties. Select the form from the 'When posting, use form' dialog.

Function Item_Open ()

Dim SelCalendarDate
SelCalendarDate = DateValue(Item.Start)
Item.Start = SelCalendarDate &" "& TimeValue("8:00 AM")
Item.End =   SelCalendarDate & " "& TimeValue("6:00 PM")

End Function

Written by

Diane Poremsky
A Microsoft Outlook Most Valuable Professional (MVP) since 1999, Diane is the author of several books, including Outlook 2013 Absolute Beginners Book. She also created video training CDs and online training classes for Microsoft Outlook. You can find her helping people online in Outlook Forums as well as in the Microsoft Answers and TechNet forums.

If the Post Coment button disappears, press your Tab key.