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

If I export a calendar as a .pst file on one computer then open or view it on another it looks fine.

If I then try and import that file (no duplicates) into a completly empty personal calendar many of the appointments have the word copy: inserted at the beginning of the subject line. This seems to occur on any appointment where I have invited other people.

Since there appears to be no way of doinung a find and replace (I thought MS products were meant to all have similar functionality) this is really annoying.

 

Question Info


Last updated May 7, 2019 Views 47,982 Applies to:
Answer
Answer

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.

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

Answer
Answer

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

2 people were helped by this reply

·

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.