How to Auto Set the Meetings You Create to High Importance in Outlook

If you are accustomed to manually setting the Outlook meetings that you create as high priority, you’d better utilize a more effective way to let Outlook auto do it. This article will introduce you such a method.

By default, meetings are set to normal importance. If you would like to always set the meetings that you create to high importance, you’d better make use of the following way. It uses VBA code to configure Outlook to auto accomplish this task, which can save you from changing importance manually, thereby improving your performance to a great extent. Now, read on to get its elaborate steps. If you are a newbie in VBA, you can read “How to Run VBA Code in Your Outlook” in the meantime.

Auto Set the Meetings You Create to High Importance

1. At the very outset, launch Outlook application.
2. Then, access VBA editor via “Alt + F11”.
3. Next, put the following VBA code to the “ThisOutlookSession” project.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objAppointment As Outlook.AppointmentItem

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

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.currentItem.Class = olAppointment Then
       Set objAppointment = Inspector.currentItem
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    'If it is a meeting
    If objAppointment.MeetingStatus = olMeeting Then
       'Set it as high priority
       objAppointment.Importance = olImportanceHigh
       objAppointment.Save
    Else
       objAppointment.Importance = olImportanceNormal
       objAppointment.Save
    End If
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    'If you change an appointment into a meeting
    If Name = "MeetingStatus" Then
       If objAppointment.MeetingStatus = olMeeting Then
          'Set it as high priority
          objAppointment.Importance = olImportanceHigh
          objAppointment.Save
       Else
          objAppointment.Importance = olImportanceNormal
          objAppointment.Save
       End If
     End If
End Sub

4. After that, move cursor into the “Application_Startup” subroutine.
5. Later, press “F5” to activate this macro.
6. Eventually, you can have a try.

• When you create a new meeting, it will be auto set with high importance.
• When you convert an appointment to a meeting by “Invite Attendees”, it will be changed to high important status as well.

Fix Outlook Issues as Soon as Possible

It is believed that users will encounter a variety of issues when dealing with your Outlook. If you are subject to such problems, you are better of resolving them as soon as possible. Otherwise, you’ll put your Outlook file into danger. Therefore, in order to fix them in time, it’s suggested to keep a powerful Outlook fix tool, such as 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 sql recovery and outlook repair software products. For more information visit www.datanumen.com