Блог

Я могу синхронизировать свой календарь точек доступа с моим Outlook. Я также могу перетаскивать собрания в общий точечный календарь из своего личного календаря.

Однако я сталкиваюсь с проблемами при редактировании данных в моем личном календаре. Если собрание было перемещено, SharePoint не перемещает собрание в календаре общего доступа автоматически. Я должен вручную удалить собрание в календаре SharePoint и снова перетащить его в свой личный календарь.

Есть ли лучший способ? Пожалуйста, сообщите.

Спасибо

Это связано с тем, что элементы (встречи) в календаре Sharepoint и вашем личном календаре являются разными объектами. После перетаскивания элемента в календарь sharepoint создается новый элемент. Но вы можете обновлять скопированные собрания с помощью скрипта Outlook vb, который будет запускаться каждый раз, и назначение изменится в вашем личном календаре.

 Private Sub curCal_ItemChange(ByVal Item As Object)
Dim newCalFolder As Outlook.Folder
Dim cAppt As AppointmentItem
Dim objAppointment As AppointmentItem
Dim strStart, strSubject As String

 On Error Resume Next
Set newCalFolder = GetFolderPath("display name in folder listCalendarTest")

strSubject = "Copied: " amp; Item.Subject
strStart = Item.Start

For Each objAppointment In newCalFolder.Items
 If objAppointment.Subject = strSubject And objAppointment.Start = strStart Then
         Set cAppt = objAppointment
   End If
 Next

With cAppt
    .Subject = "Copied: " amp; Item.Subject
    .Start = Item.Start
    .Duration = Item.Duration
    .Location = Item.Location
    .Body = Item.Body
    .Save
End With

End Sub
  

полный пример скрипта vb и дополнительные функции доступны здесь