Notes

Per copiare il calendario EOC nel calendario IOR, bisogna attivare la visualizzazione lista (Menu Visualizza, cambia visualizzazione, Elenco), poi eseguire una seleziona tutto degli appuntamenti del calendario OEC, selezionare il calendario IOR nella finestra principale una volta impostata la stessa visualizzazione Elenco, e incollare gli appuntamenti.

A questo punto apparirà un avviso di accettare o meno gli appuntamenti, ma è possibile selezionare le 3° opzione di copia riunioni.

Quello che capita dopo di questo, è che ogni appuntamento, avrà la scritta Copy: o Copia: all'inzio del testo, e per togliere questa scritta è necessario eseguire uno VBA script come indicato qui:

https://kb.intermedia.net/article/2151

In inglese:

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, 6) = "Copy: " Then
strTemp = Mid(aItem.Subject, 7, Len(aItem.Subject) - 6)
aItem.Subject = strTemp
iItemsUpdated = iItemsUpdated + 1
End If
aItem.Save
Next aItem

MsgBox iItemsUpdated & " of " & calendar.Items.Count & " Meetings Updated"

End SubScript text:

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, 6) = "Copy: " Then
strTemp = Mid(aItem.Subject, 7, Len(aItem.Subject) - 6)
aItem.Subject = strTemp
iItemsUpdated = iItemsUpdated + 1
End If
aItem.Save
Next aItem

MsgBox iItemsUpdated & " of " & calendar.Items.Count & " Meetings Updated"

End Sub


In italiano:

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, 7) = "Copia: " Then
strTemp = Mid(aItem.Subject, 8, Len(aItem.Subject) - 7)
aItem.Subject = strTemp
iItemsUpdated = iItemsUpdated + 1
End If
aItem.Save
Next aItem

MsgBox iItemsUpdated & " of " & calendar.Items.Count & " Meetings Updated"

End Sub