Editions Available: All Editions Audience: Administrative Users

Enabling Auto Accept for Appointments in Outlook

This optional feature will allow each user's Outlook account to automatically accept Bullhorn-generated appointments, mark these appointments as read, and route the appointment invitations into the user's Deleted Items folder in Outlook.

If you would like to manually review and approve each appointment from Bullhorn that is sent to your inbox you would not want to use this feature.

You must perform these steps on each computer that has the Outlook Desktop Application on it.

In order to complete this set up you will add a Visual Basic script to your desktop Outlook application. The use of Visual Basic means that you must have a Windows computer as well as the desktop version of Outlook in order to utilize this feature.

Add a Script

  1. Open Microsoft Outlook and select the Developer tab.
  2. Select the Visual Basic icon to launch the VB Editor.
  3. On the left side of the new window, expand Project1.
  4. Expand Microsoft Outlook Object.
  5. Double click ThisOutlookSession.
    • This will open the VbaProject.OTM window.
  6. Copy and paste the following script into the window:
    7. Copy 
    Public WithEvents olItems As Outlook.Items
    Private Sub Application_Startup()
    Set olItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
    End Sub
    Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim olMtRequest As MeetingItem
    Dim olMtAppt As AppointmentItem
    Dim olMtResponse As MeetingItem
    If TypeName(Item) = "MeetingItem" Then
    Set olMtRequest = Item
    'Get the corresponding appointment in your calendar
    Set olMtAppt = olMtRequest.GetAssociatedAppointment(True)
    'Check meeting organizer and its date
    If olMtAppt.Organizer = "INSERT YOUR EMAIL ADDRESS" Then
    If WeekdayName(Weekday(olMtAppt.Start)) <> "01/01/1900" Then
    'Accept and then delete the meeting request
    Set olMtResponse = olMtAppt.Respond(olMeetingAccepted)
    olMtRequest.Delete
    End If
    End If
    End If
    End Sub
  7. Insert your email address on the appropriate line highlighted above.
  8. Select the Save Icon.
  9. Exit the VBA Application.

Your automatic acceptance macro is now in place. If you change computers or replace your Outlook you will need to redo these steps on the new computer.