将Outlook日历与SharePoint同步

时间:2014-06-18 22:52:31

标签: sharepoint sharepoint-2010 outlook

我可以将我的共享点日历​​与我的展望同步。我也可以拖放会议以从我的个人日历中分享点日历。

但是,当我在个人日历中编辑数据时,我遇到了问题。如果已移动会议,则SharePoint不会自动在共享点日历​​中移动会议。我必须在SharePoint日历中手动删除会议,然后再次拖放我的个人日历。

有更好的方法吗?请指教。

由于

1 个答案:

答案 0 :(得分:0)

这是因为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 list\Calendar\Test")

strSubject = "Copied: " & 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: " & Item.Subject
    .Start = Item.Start
    .Duration = Item.Duration
    .Location = Item.Location
    .Body = Item.Body
    .Save
End With

End Sub

完整的vb脚本示例和其他功能可用here