All Apointments in outlook have movede forward one day?

Posted on 2006-04-12
Last Modified: 2010-04-08
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

Question by:Avision27
    LVL 76

    Expert Comment

    by:David Lee
    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.


    Author Comment

    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?

    Author Comment

    hi BlueDevilfan

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


    LVL 76

    Expert Comment

    by:David Lee
    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:

    Author Comment

    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.

    LVL 76

    Expert Comment

    by:David Lee
    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
    LVL 76

    Accepted Solution

    Any update, Avision27?

    Featured Post

    How your wiki can always stay up-to-date

    Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
    - Increase transparency
    - Onboard new hires faster
    - Access from mobile/offline

    Join & Write a Comment

    Not sure what the best email signature size is? Are you worried about email signature image size? Follow this best practice guide.
    This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …
    To add imagery to an HTML email signature, you have two options available to you. You can either add a logo/image by embedding it directly into the signature or hosting it externally and linking to it. The vast majority of email clients display l…

    728 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    19 Experts available now in Live!

    Get 1:1 Help Now