More Outlook Resource Sites

Microsoft Developer Network (MSDN)

FAQs and other general resources

forum 30-Oct-2014 09:23

Looking for help with Outlook programming projects — VSTO, add-ins, VBA, custom Outlook forms, etc.? You′ve come to the right place!

NEW! >> Subscribe to this site via RSS. For more RSS options, see the complete list of feeds on our main news page.

Login Password
Remember me
Register | Send my password
    Page [ 1 ]  
 Outlook Expert Techniques Printer Friendly Version
Working with toolbars, menus, ribbon; generating custom reports; deploying forms; connecting to databases, Exchange folders, and XML Web services
Topic
need to remove COPY-calender items
We have exported around 150 users from OST to PST using outlook export and import
and then imported to new mailbox profiles
now the problem is i can see COPY: in calendar appointments
when i open copy items it says "the meeting was copied to your calendar and will not receive update"
Any one help me how can i remove these copy and make them as original
i found below code but it only removes copy on appointments but the warning still there "can not receive update"

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


Please help me

 

  25-Feb-2013  09:40
    Page [ 1 ]