More Outlook Resource Sites

Microsoft Developer Network (MSDN)

FAQs and other general resources

forum 23-Aug-2017 19:46

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.

    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
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
 Next calItem
MsgBox iItemsUpdated & " of " & calendar.Items.Count & " Items Updated"
End Sub

Please help me


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