SBS 2008 imported PST files into new domain user mailbox. calendar items all have COPY:

We set up SBS 2008 and had to import pst files into the new user mailboxes.  When opening Outlook 2007 on some machines we notice that all calendar items have Copy: appended prior to the actual calendar item.

Not sure what caused this.  Not all users but some.  All PST files were imported into outlook after configuring the exchange account
scoobyftlAsked:
Who is Participating?

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

x
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.

OveCommented:
what's your intention now?

Do you need a script to rename all the items back to the original name, or do you want to know what was the error`?

Ove
0
scoobyftlAuthor Commented:
Would like to know what causes this issue.  If there is a script then i welcome that solution to the problem.

Thanks
0
OveCommented:
this outlook-script should do the job. Pls check if there is a space behind "COPY: " in your appointment-titles. If not, pls adapt the script:

Ove
Sub Rename_Appointments()
    On Error Resume Next
    Dim appOL As New Outlook.Application 'Outlook-Reference
    Dim objNS As Outlook.NameSpace 'Namespace-Reference
    Dim objFld As Outlook.MAPIFolder 'Folder-Reference
    Dim i As Long 'Progresscounter1
    Dim j As Long 'Progresscounter2
    Dim strSubject As String
    i = 0
    j = 0
    Set objNS = appOL.GetNamespace("MAPI") 'MAPI-Reference
    Set objFld = objNS.PickFolder 'Pick calendar folder to process
    For Each myItem In objFld.Items
        i = i + 1
        If myItem.Class = olAppointment Then
            strSubject = myItem.Subject
            If InStr(strSubject, "COPY: ") = 1 Then
                j = j + 1
                myItem.Subject = Replace(strSubject, "COPY: ", "")
                myItem.Save
            End If
        End If
        DoEvents
    Next
    MsgBox "Renamed " & j & " out of " & i & " appointments."
End Sub

Open in new window

0

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
Exchange

From novice to tech pro — start learning today.