How to Auto Show “Time Zones” Option When Creating a New Appointment in Outlook

When creating a new appointment, if you need to change the time zone, you have to firstly show “Time Zones” option by manually clicking the “Time Zones” button in ribbon. But, by the means in this article, we will teach you to let Outlook auto show this option.

By default, when you create a new appointment, the “Time Zones” option is not auto displayed. If you want to change the time zone, you have to manually click the “Time Zones” button in “Options” group on the “Appointment” tab, as shown in the following screenshot. In this scenario, if you frequently need to change the time zone, you will surely hope that Outlook can auto show “Time Zones” option. Now, in the followings, we will look at this requirement to introduce an approach.

Show "Time Zones"

Auto Show “Time Zones” Option When Creating a New Appointment

  1. In the first place, start Outlook application as usual.
  2. Then, get access to Outlook VBA editor according to “How to Run VBA Code in Your Outlook“.
  3. Later, in the “Microsoft Visual Basic for Applications” window, paste the VBA code below into “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 TypeOf Inspector.CurrentItem Is AppointmentItem Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

'Occurs when opening an appointment
Private Sub objAppointment_Open(Cancel As Boolean)
    Dim objTimeZones As TimeZones
    Dim objTimeZone As TimeZone
 
    Set objTimeZones = Application.TimeZones
    'Specify a time zone which is not the same as your current time zone
    Set objTimeZone = objTimeZones.Item("Central Standard Time")
 
    'If it is a brand new appointment
    If objAppointment.Subject = "" Then
       objAppointment.StartTimeZone = objTimeZone
       objAppointment.EndTimeZone = objTimeZone
    End If
End Sub

VBA Code - Auto Show "Time Zones" Option When Creating a New Appointment

Note: Please change the “Central Standard Time” in the above code to the time zone which is not your current one.

  1. After that, exit the VBA editor as normal.
  2. Finally, you can restart Outlook to activate this macro.
  3. Since then, every time when you create an appointment, the “Time Zones” control is auto displayed, like the following screenshot.Auto Shown "Time Zones" Option

Take Care of Precious Outlook Data

If you have utilized Outlook for a certain long time, your Outlook must contain a lot of important data, including significant emails, tasks and calendar items, etc. Unquestionably, you absolutely don’t want to lose them. Therefore, you will need to endeavor to safeguard them. For instance, not only should you keep cautious of the PST file errors and all kinds of internal issues, but also you ought to prepare a potent and remarkable PST fix tool, such as DataNumen Outlook Repair. Such an experienced tool will help you a lot in the event of serious PST damage.

Author Introduction:

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

Comments are closed.