Vb.net office Web服务不返回正文信息

Vb.net office Web服务不返回正文信息,vb.net,web-services,office365,exchangewebservices,Vb.net,Web Services,Office365,Exchangewebservices,我使用此代码从Office365中的会议检索信息, 但除了一个例外,所有关于body和attenders的字段都是空的。 你有什么想法吗 Dim svc As New ExchangeService(ExchangeVersion.Exchange2010) svc.Credentials = New WebCredentials(ConfigurationManager.AppSettings("MailUsername"), ConfigurationMa

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

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)

正文和与会者不会使用FindApoints或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);