2 Methods to Auto Set the Status of All Day Event to “Busy” in Your Outlook

By default, the status of all day event is “Free”. But in reality, we commonly hope to set the status to “Busy”. Therefore, this article will show you 2 approaches to realize it.

Many users are annoyed at that Outlook show all day event as “Free” by default. Thus, they have to manually change the status every time when creating all day event. Undoubtedly, it is pretty troublesome. Hence, here we will introduce 2 tips to auto set the status of all day event to “Busy”.

Method 1: Design a Custom “Busy All day Event” Form

1. To start with, launch your Outlook.
2. Then head to “Calendar” navigation pane.
3. Next, you could create a new appointment by clicking the “New Appointment” button in ribbon.
4. In the Appointment window, shift to “Developer” tab and hit the “Design This Form” button.
5. After that, you need to switch to “P.2” page.
6. Later from the popup “Field Chooser” dialog box, drag and drop the “All Day Event” and “Show Time As” field to the “P.2” page.
7. Next, right click the “All Day Event” field and choose “Properties” option from context menu.
8. In the popup dialog box, switch to “Value” tab, enable “Set the initial value of this field to” and then type “True” in the box below.
9. Then click “OK” to save changes.
10. After that, right click the combo box beside the “Show Time As” field and opt for “Properties”.
11. In the subsequent dialog box, turn to “Value” tab, check the “Set the initial value of this field to” and then type “2” in the box below.
12. Later click “OK” to back to the form.
13. Finally you can click “Publish” button in ribbon and choose “Publish Form As”. In the new dialog box, input a name in “Display name” field and ultimately hit “Publish” button.
14. From now on, every time you could click to create a busy all day event, you can click “New Item” > “Choose Form” > “Busy All Day Events”.

If you feel that it is not as handy as what you wish, you could select the following way, which is using VBA.

Method 2: Auto Set All Day Event to “Busy” via VBA

1. To start with, in the main Outlook window, press “Alt + F11” keys.
2. After getting access to Outlook VBA editor, open the “ThisOutlookSession” project window.
3. Then copy the following VBA code into this project.

Private WithEvents objInspectors As Inspectors
Private WithEvents objAppointment As AppointmentItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeName(Inspector.CurrentItem) = "AppointmentItem" Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

'Occur when opening an appointment
Private Sub objAppointment_Open(Cancel As Boolean)
    If objAppointment.AllDayEvent = True Then
       objAppointment.BusyStatus = olBusy
    End If
End Sub

'Occur when changing an appointment
Private Sub objAppointment_PropertyChange(ByVal Name As String)
    If Name = "AllDayEvent" Then
       'If you set the appointment to all day event
       If objAppointment.AllDayEvent = True Then
          objAppointment.BusyStatus = olBusy
       End If
    End If
End Sub

4. After that, sign this code and change your Outlook macro settings.
5. Eventually, restart your Outlook application to activate this new project.
6. Since then, every time you create all day event, its status will be set to “Busy” automatically.

Secure Your Outlook Data

With no doubt, there are numerous potential security threats around Outlook. So, it is pretty burdensome and arduous to secure our Outlook data. We should keep vigilant all the time. In addition, so as to take relief measures in time, we ought to get hold of a PST fix tool, like DataNumen Outlook Repair.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including repair mdf and outlook repair software products. For more information visit www.datanumen.com