使用EWS创建扩展属性并从Outlook加载项访问它
||
我目前正在EWS上工作，以将我们公司的应用程序与Exchange 2010进行一些集成。我正在使用EWS为Exchange 2010创建附件，并且它可以正常工作。但是最近我尝试在创建约会时添加一些自定义/扩展属性，以下是我添加扩展属性的代码。
Dim customField As New ExtendedPropertyDefinition(DefaultExtendedPropertySet.PublicStrings, \"MyCustomField\", MapiPropertyType.String)
appointment.SetExtendedProperty(customField, \"CustomFieldValue\")
Dim appt As Outlook.AppointmentItem
appt = TryCast(inspector.CurrentItem, Outlook.AppointmentItem)
If appt.UserProperties.Find(\"MyCustomField\") Is Nothing Then
\'Some action
Else
\'Some action
End If
没有找到相关结果
已邀请:
2 个回复
眠缝
outlookItem.PropertyAccessor.GetProperty(\"http://schemas.microsoft.com/mapi/string/{00020329-0000-0000-C000-000000000046}/yourProp\")爆山
const GUID_PS_PUBLIC_STRINGS = \'{00020329-0000-0000-C000-000000000046}\'; cPublicStringNameSpace = \'http://schemas.microsoft.com/mapi/string/\' + GUID_PS_PUBLIC_STRINGS + \'/\'; var lPropertyAccessor: OleVariant; lSchemaName, lValue: String; begin // Use the PropertyAccessor because Outlook UserProperties() can\'t access the extended properties created by EWS // Use the \'string subnamespace of the MAPI namespace\' (http://msdn.microsoft.com/en-us/library/office/ff868915.aspx) // with the PS_PUBLIC_STRINGS GUID from http://msdn.microsoft.com/en-us/library/bb905283%28v=office.12%29.aspx lPropertyAccessor := AAppointmentItem.PropertyAccessor; lSchemaName := cPublicStringNameSpace + PROPERTY_TIMETELLID; // Name constants defined elsewhere try lSchemaName := cPublicStringNameSpace + PROPERTY_TIMETELLID; lValue := lPropertyAccessor.GetProperty(lSchemaName); lEvent.CustSyncTTID := StrToInt(lValue); except end; try lSchemaName := cPublicStringNameSpace + PROPERTY_TIMETELLSYNCTIME; lValue := lPropertyAccessor.GetProperty(lSchemaName); lEvent.CustSyncDate := UTCString2LocalDateTime(lValue); except end; try lSchemaName := cPublicStringNameSpace + PROPERTY_TIMETELLSYNCID; lValue := lPropertyAccessor.GetProperty(lSchemaName); lEvent.CustSyncEntryID := lValue; except end;[编辑添加2013-6-10] 这是修改后的代码，以使用GetProperties（如MS建议）一次处理所有三个属性：lPropertyAccessor := AAppointmentItem.PropertyAccessor; lSchemas := VarArrayOf([cPublicStringNameSpace + PROPERTY_TIMETELLID, cPublicStringNameSpace + PROPERTY_TIMETELLSYNCTIME, cPublicStringNameSpace + PROPERTY_TIMETELLSYNCID]); try lValues := lPropertyAccessor.GetProperties(lSchemas); if VarType(lValues[0]) <> varError then lEvent.CustSyncTTID := lValues[0]; if VarType(lValues[1]) <> varError then begin lDT := lValues[1]; lDT := TTimeZone.Local.ToLocalTime(lDT); lEvent.CustSyncDate := lDT; end; if VarType(lValues[2]) <> varError then lEvent.CustSyncEntryID := lValues[2]; except end;