办公室网络服务不返回正文信息

Question

我使用此代码从Office365中的会议中检索信息，但除了一个例外，所有关于身体和与会者的字段都是空的。你有什么想法吗？？

Dim svc As New ExchangeService(ExchangeVersion.Exchange2010)
svc.Credentials = New WebCredentials(ConfigurationManager.AppSettings("MailUsername"), ConfigurationManager.AppSettings("MailPassword"))
svc.Url = New Uri("https://outlook.office365.com/ews/exchange.asmx")
Dim startDate As Date = Now
Dim endDate As Date = Now.AddDays(2)
Dim calendar As CalendarFolder = CalendarFolder.Bind(svc, WellKnownFolderName.Calendar) ', New PropertySet())
Dim cView As New CalendarView(startDate, endDate, 50)
cView.PropertySet = New PropertySet(BasePropertySet.FirstClassProperties) 
Dim appointments As FindItemsResults(Of Appointment) = calendar.FindAppointments(cView)

Answer 1

使用FindAppointments(或FindItems(不会返回正文和与会者。要获得此信息，您需要对每个项目发出进一步的GetItem(加载(请求，或者更好地使用LoadPropertiesForItems，例如

FindItemsResults<Appointment> findResults = service.FindAppointments(
WellKnownFolderName.Calendar,
new CalendarView(DateTime.Now, DateTime.Now.AddDays(7)));
service.LoadPropertiesForItems(
from Item item in findResults select item,
PropertySet.FirstClassProperties);