All Apointments in outlook have movede forward one day?

HI experts,

using outlook 2003.

Regarding the outlook calender...
all apointments (and there are apointments everyday for the next 6 months) all have moved forward to the next day??

for example.. the apointments i have all for today thursday 13th have moved to friday 14th... this has happened to every day.

how do i get them back to the correct day.

im using outlook 2003 on windows terminal server 2003.

can anyone help.. urgent

Who is Participating?
David LeeCommented:
Any update, Avision27?
David LeeCommented:
Hi Avision27,

I can provide a macro that'll adjust the dates back.  Let me know if that's an option and I'll post the code.

Avision27Author Commented:
thanks thats nice of you but... its a companies apointments that are highly important.

i need an option i can completly trust. thanks for your help there must be an easier way.... i still trying to work out weather outlook has corupted itself and continued or this is a optuion in a setting.


any other help anyone?
Cloud Class® Course: Microsoft Office 2010

This course will introduce you to the interfaces and features of Microsoft Office 2010 Word, Excel, PowerPoint, Outlook, and Access. You will learn about the features that are shared between all products in the Office suite, as well as the new features that are product specific.

Avision27Author Commented:
hi BlueDevilfan

can yu explain alittle more about this macro please and how it is applied and works


David LeeCommented:
No problem.  The macro is quite simple.  It reads every appointment on a calendar and sets the starting time backwards by one hour.  It won't do anything to diagnose the original cause or prevent it from happening again, but it will get the times adjusted back to where they should be.  It's a lot faster than editing every appointment manually.  It's also flexible enough to run against any calendar, so if you're nervous about what it might do you can test it against a dummy calendar first so you can see the results yourself before moving on to your live calendar.  Have a look at another question where I used the same approach to fix an almost identical problem:
Avision27Author Commented:
ok thanks for the information.
im aware of the daylight saving time change in other cases. but my situation  isnt out by just one hour due to daylight saving time, all appointments have moved to the following day to the same times.
very strange, im trying to work out if its caused by a user problem by dragging apointments accidently across one day or the calender is corrupt.

anyway please also explain next step with the macro.

cheers mate thanks for your time.

David LeeCommented:
Here's the macro.  Follow these instructions to use it.
1.  Launch Outlook
2.  Click Tools->Macro->Visual Basic Editor
3.  In the Project pane, if Modules isn't already expanded, expand it, then click on Module1.
4.  Copy the code below and paste it into the right-hand pane of the VB Editor
5.  Edit the time adjustment as needed.  The code is currently set to back appointment times by one day.
6.  Click the diskette icon on the toolbar to save the changes.
7.  Close the VB Editor.
8.  Click Tools->Macro->Security
9.  Set the Security Level to Medium.
10.  Run the macro by selecting a calendar folder then clicking Tools->Macro->Macros and running this macro.
11.  If needed, you can set the Security Level back to whatever it was after the macro is finished.

'Macro begins here
Sub SetAppointmentsBack()
    Dim olCalendar As Outlook.MAPIFolder, _
        olAppointment As Outlook.AppointmentItem, _
        datRevised As Date
    Set olCalendar = Application.ActiveExplorer.CurrentFolder
    For Each olAppointment In olCalendar.Items
        datRevised = DateAdd("h", -24, olAppointment.Start)
        olAppointment.Start = datRevised
    MsgBox "All done!"
End Sub
'Macro ends here
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.