如何接受和使用Exchange Web服務

Question

我使用ExchangeService（ExchangeVersion.Exchange2010_SP1）

我想接受並添加分類來RequiredAttendees約會添加類別到RequiredAttendees約會。要做到這一點，我需要找到這些約會。

我在EWS的理解是，對具有新的會議請求爲每個「要求與會者」創建RequiredAttendees預約的保存。

如何我可以訪問了爲'要求與會者的自動創建的約會？這些顯示在所需的與會者日曆作爲約會，以及會議請求。

我已經成功地做到粗找到主題（下面的步驟）

1. 連接到服務器作爲組織者
2. 創建約會
3. 集主題
4. 添加必需的與會者

5. 保存預約

6. 連接到服務器的熱曲從步驟IRED與會者4

有主題在步驟3
7. 到預約步驟在步驟7
8. 添加類別7
9. 更新預約接受步驟約會
10. 查找預約7

而且這確實有用，但有關用戶會改變主題。

我已經嘗試添加擴展屬性和價值的組織者，然後FindItems在連接作爲必需與會者的約會擴展屬性值創建的約會。這不起作用。

是否有什麼，我試圖完成一個優選的方法是什麼？

謝謝

Private Shared ReadOnly m_organiserEmailAddress As String = "Organiser@test.com" 
Private Shared ReadOnly m_eventIdExtendedPropertyDefinition As New ExtendedPropertyDefinition(DefaultExtendedPropertySet.Meeting, "EventId", MapiPropertyType.Long) 

'--> start here 
Public Shared Function SaveToOutlookCalendar(eventCalendarItem As EventCalendarItem) As String 

    If eventCalendarItem.Id Is Nothing Then 
     'new 
     Dim newAppointment = EventCalendarItemMapper.SaveNewAppointment(eventCalendarItem) 
     'set the Id 
     eventCalendarItem.Id = newAppointment.Id.UniqueId.ToString() 
     'accept the calendar item on behalf of the Attendee 
     EventCalendarItemMapper.AcceptAppointmentAsAttendees(newAppointment) 
     Return eventCalendarItem.Id 
    Else 
     'update existing appointment 
     Return EventCalendarItemMapper.UpdateAppointment(eventCalendarItem) 
    End If 


End Function 

Private Shared Sub ConnectToServer(Optional autoUser As String = "") 

    If autoUser = "" Then 
     _service.Url = New Uri(ExchangeWebServicesUrl) 
    Else 
     _service.AutodiscoverUrl(autoUser) 
    End If 

End Sub 

Private Shared Sub ImpersonateUser(userEmail As String) 

    _service.Credentials = New NetworkCredential(ImpersonatorUsername, ImpersonatorPassword, Domain) 
    _service.ImpersonatedUserId = New ImpersonatedUserId(ConnectingIdType.SmtpAddress, userEmail) 

End Sub 

Private Shared Function SaveNewAppointment(eventCalendarItem As EventCalendarItem) As Appointment 

    Try 
     ConnectToServer(m_organiserEmailAddress) 
     ImpersonateUser(m_organiserEmailAddress) 

     Dim appointment As New Appointment(_service) With { 
        .Subject = eventCalendarItem.Subject} 

     'add attendees 
     For Each attendee In eventCalendarItem.Attendees 
      appointment.RequiredAttendees.Add(attendee.Email) 
     Next 

     'add categories 
     For Each category In eventCalendarItem.Categories 
      appointment.Categories.Add(Globals.GetEnumDescription(category)) 
     Next 

     'add EventId = 5059 as an extended property of the appointment 
     appointment.SetExtendedProperty(m_eventIdExtendedPropertyDefinition, 5059) 

     appointment.Save(SendInvitationsMode.SendOnlyToAll) 

     Return appointment 
    Catch 
     Throw New Exception("Can't save appointment") 
    End Try 


End Function 

Private Shared Sub AcceptAppointmentAsAttendees(appointment As Appointment) 

    For Each attendee In appointment.RequiredAttendees 
     Try 
      ConnectToServer(attendee.Address.ToString()) 
      ImpersonateUser(attendee.Address.ToString()) 

      For Each a In FindRelatedAppiontments(appointment) 
       a.Categories.Add(Globals.GetEnumDescription(CalendarItemCategory.Workshop)) 
       a.Update(ConflictResolutionMode.AlwaysOverwrite, SendInvitationsOrCancellationsMode.SendToNone) 
       a.Accept(True) 
      Next 

     Catch 
      Throw 
     End Try 
    Next 
End Sub 

Private Shared Function FindRelatedAppiontments(appointment As Appointment) As List(Of Appointment) 

    Dim view As New ItemView(1000) 
    Dim foundAppointments As New List(Of Appointment) 

    view.PropertySet = 
     New PropertySet(New PropertyDefinitionBase() {m_eventIdExtendedPropertyDefinition}) 

    'Extended Property value = 5059 
    Dim searchFilter = New SearchFilter.IsEqualTo(m_eventIdExtendedPropertyDefinition, 5059) 

    For Each a In _service.FindItems(WellKnownFolderName.Calendar, searchFilter, view) 
     If a.ExtendedProperties.Count > 0 Then 
      foundAppointments.Add(appointment.Bind(_service, CType(a.Id, ItemId))) 
     End If 
    Next 

    Return foundAppointments 

End Function 

Answer 1

好一兩件事是肯定的，沒有什麼直接的EWS中。 我會誠實地說，直到現在，我沒有從內部日曆到Exchange日曆的整合工作，我的經驗是相反的，這是交換內部的東西。

反正閱讀你的代碼後，我認爲你是幾乎沒有。不過，我建議你通過使用Streaming Notifications來達到與會者的約會，這並不難！ 所以，我要說的步驟應該是這樣的

1. 創建約會
2. 應用擴展屬性的東西（我建議，而不是使用硬編碼數GUID）如下

創建擴展屬性，並把GUID的任命，並且它不會改變，除非你做從另一個約會

private static readonly PropertyDefinitionBase AppointementIdPropertyDefinition = new ExtendedPropertyDefinition(DefaultExtendedPropertySet.PublicStrings, "AppointmentID", MapiPropertyType.String); 
public static PropertySet PropertySet = new PropertySet(BasePropertySet.FirstClassProperties, AppointementIdPropertyDefinition); 


//Setting the property for the appointment 
public static void SetGuidForAppointement(Appointment appointment) 
{ 
    try 
    { 
     appointment.SetExtendedProperty((ExtendedPropertyDefinition)AppointementIdPropertyDefinition, Guid.NewGuid().ToString()); 
     appointment.Update(ConflictResolutionMode.AlwaysOverwrite, SendInvitationsOrCancellationsMode.SendToNone); 
    } 
    catch (Exception ex) 
    { 
     // logging the exception 
    } 
} 

//Getting the property for the appointment 
public static string GetGuidForAppointement(Appointment appointment) 
{ 
    var result = ""; 
    try 
    { 
     appointment.Load(PropertySet); 
     foreach (var extendedProperty in appointment.ExtendedProperties) 
     { 
      if (extendedProperty.PropertyDefinition.Name == "AppointmentID") 
      { 
       result = extendedProperty.Value.ToString(); 
      } 
     } 
    } 
    catch (Exception ex) 
    { 
    // logging the exception 
    } 
    return result; 
} 

複印件（畢竟它只是一個屬性）

1. 捕獲與StreamingNotificationEvent的約會。在我看來，一個很好的方法是同時運行組織者和參與者，並在他們之間找到約會。 要查看示例，我已發佈對以前的問題Multiple impersonation-threads in Exchange Web Service (EWS)的回答。如果您發現我的答案有用，請投票選出這兩個帖子的答案（這裏和那裏）。

我不想讓你害怕，但是一旦你解決了你目前的問題，如果你想繼續它將變得更加複雜。我可以寫下我是如何解決會議問題的，但是我根本沒有看到它，所以如果你寫自己的話會更好。

乾杯