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?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

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?
Avision27Author Commented:
hi BlueDevilfan

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


Determine the Perfect Price for Your IT Services

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden with our free interactive tool and use it to determine the right price for your IT services. Download your free eBook now!

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
David LeeCommented:
Any update, Avision27?

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.