Importing .pst Outlook Calendars (subject title adds Copy:)

I have never implemented any scripts.  How do I use the script above? 

Thanks, Brent

Hi Brent,

From your Outlook client:

1. Press Alt+F11 which will open the VBA window. 
2. In the left pane, navigate to Project1-MS Outlook Object and double-click 'ThisOutlookSession'.
3. Paste the code into the window in the right pane.
4. Press the green arrow button to execute the code.

That should work for you.

Here is a VBA script that I wrote to cycle through every appointment item in the default calendar and remove the "Copy: " prefix.  It's a horrible kluge, but unfortunately Outlooks locks us out of any straightforward ability to control how Calendar items are copied or restored:

Sub FixCopy()
Dim calendar As MAPIFolder
Dim calItem As Object
   
Set calendar = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar)
       
Dim iItemsUpdated As Integer
Dim strTemp As String

iItemsUpdated = 0
For Each calItem In calendar.Items
    If Mid(calItem.Subject, 1, 6) = "Copy: " Then
      strTemp = Mid(calItem.Subject, 7, Len(calItem.Subject) - 6)
      calItem.Subject = strTemp
      iItemsUpdated = iItemsUpdated + 1
    End If
    calItem.Save
Next calItem

MsgBox iItemsUpdated & " of " & calendar.Items.count & " Items Updated"

End Sub