Import calendar to outlook as busy default

Open the Calendar folder you want to publish the form in.

First, go to File, Options, Customize Ribbon and add a check to Developer ribbon on the right.

Imported events, including Holidays, along with Birthdays and Anniversaries that are created automatically by Outlook will use the built-in default form, where all day events are marked Free. The new appointments will have the selected times correct even though the all day box remains checked but the reminder will default to 18 hours unless the All day event box is unchecked. If you set the form as the default for the folder, new (timed) appointments may have the All day event checkbox checked. If you use the New Items > All Day Event menu or right-click and select All Day Event, you'll create an event with Free/Busy marked Free. There are a few more 'gotchas' when you do this for All Day Events: If you can't use a macro, you can customize a form and change the default for All Day events to Busy.

M_ = olMeetingД¬reate a Custom Form that defaults to Busy This sample snippet will create meetings every time you open a new appointment form, either using the New Appointment button or double clicking in any of the calendar views. You'll need to keep the Creationtime = Now line, otherwise the changes will apply to any appointment you open, including existing appointments. If you need to set other fields, edit the If line. If Appt.AllDayEvent = True And Appt.Categories = 'Personal' Then If TypeOf Item Is Outlook.AppointmentItem Then Private Sub Items_ItemAdd(ByVal Item As Object) Set Items = Ns.GetDefaultFolder(olFolderCalendar).Items Set Ns = Application.GetNamespace('MAPI') Private WithEvents Items As Outlook.Items If Appt.AllDayEvent = True And InStr(1, LCase(Appt.Subject), 'vacation') = True Then To check for keywords in the subject use:

If you only need some all day events marked busy and either always assign a specific category before saving or use a specific word in the subject, such as 'vacation', you can use a macro to set the event to busy as it's saved. It will not set birthdays and anniversaries that Outlook creates or imported Holidays as Busy. The macro below sets all events that are assigned the Personal category as Busy when they are added to the calendar. If TypeName(m_Inspector.CurrentItem) = 'AppointmentItem' And _ Private Sub m_Inspectors_NewInspector(ByVal Inspector As Outlook.Inspector) Set m_Inspectors = Application.Inspectors Private WithEvents m_Inspector As Outlook.Inspector ' Based on //Private WithEvents m_Inspectors As Outlook.Inspectors It checks for the creation date and does not change the busy state on existing events. This macro sets the busy state when you open a new all day event. See the Tools section for a utility that sets the defaults for Free/Busy status and reminder time.

Import calendar to outlook as busy default