Esto ocurre desde Outlook2007 SP2, en las citas de calendarios compartidos o con más de una persona añadida, al exportar el calendario a un pst nuevo para meterlo en otra máquina nos añade en todas las citas “Copiar:” delante del texto.
Para solucionarlo, debemos utilizar este script que busca esa cadena al principio del texto de cada cita y lo elimina. Cuando estemos delante del calendario en Outlook pulsaremos alt+f11 para abrir la consola de Visual Basic. Luego expandimos “Proyecto1” y también “Microsoft Outlook Objects” y hacemos doble click sobre “ThisOutlookSession”. En la ventana de edición pegamos este código:
Sub RemoveCopy()
Dim myolApp As Outlook.Application
Dim calendar As MAPIFolder
Dim aItem As Object
Set myolApp = CreateObject("Outlook.Application")
Set calendar = myolApp.ActiveExplorer.CurrentFolder
Dim iItemsUpdated As Integer
Dim strTemp As String
iItemsUpdated = 0
For Each aItem In calendar.Items
If Mid(aItem.Subject, 1, 8) = "Copiar: " Then
strTemp = Mid(aItem.Subject, 9, Len(aItem.Subject) - 8)
aItem.Subject = strTemp
iItemsUpdated = iItemsUpdated + 1
End If
aItem.Save
Next aItem
MsgBox iItemsUpdated & " of " & calendar.Items.Count & " Meetings Updated"
End Sub
Luego le damos a Ejecutar->Ejecutar sub/user form, y ya lo habremos solucionado. Nos dirá el número de elementos que ha modificado.
