Software

Ask something
Discussion Locked

MS Outlook "Wrong Time Zone Right Time"

0 helpful
6 replies

by anastasio

Closed to new repliesThis discussion is closed. It stays readable, but it takes no new replies.
is there a way to select all active appointments and change the time? The only way i could fix this problem is change the time zone from pacific/tijuana to central time zone and this fixes the problem. however, if i keep the pacific/tijuana time zone, the time in the appointments is two hours ahead. is there a way to move the appointments those two hours while in the pacific/tijuana time zone?

6 replies

by balayage

A number of my clients had the same problem over the past year. After many fruitless searches, I had to instruct them to change the time zone on their PC to the correct zone and move each appointment manually three hours. A number decided to just print out their appointments, delete all, change the time zone, and reenter the appointments. Sorry.

by eschlangen

You can use a macro to do this. The following VBA code should do what you want:

Sub ChangeAppointmentTimes()
Dim ol As Variant
Dim olns As Variant
Dim MyFolder As Variant
Dim SpecificItem As Variant
Dim Hours As Integer
Hours = 2
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
Set MyFolder = olns.GetDefaultFolder(olFolderCalendar)
For Each SpecificItem In MyFolder.Items
SpecificItem.Start = SpecificItem.Start + (Hours / 24)
SpecificItem.Start = SpecificItem.End + (Hours / 24)
Next
End Sub

This code opens the calendar then adds the number of hours in the Hours variable to each appointment. If you want only certain appointments, you can use the Restrict method on the MyFolders.Items collection or just use an If-Then inside the For Each - Next loop.

Hope this helps.

by eschlangen

BTW, negative hours will work OK or you can change the + to a - inside the For Each loop.

This discussion is closed to new replies.