如何在Outlook现代加载项中发送已签名和加密的电子邮件

Question

我正在尝试实现在Office.js中发送签名和加密电子邮件（S / MIME）的功能。我发现了一篇使用VB实现的文章[link]，我尝试转换程序，但我无法做到，因为Office.js API不支持可以获取的属性访问者并设置MAPI属性。

Const PR_SECURITY_FLAGS = "http://schemas.microsoft.com/mapi/proptag/0x6E010003"
Dim mi As MailItem
Set mi = Application.ActiveInspector.CurrentItem
Dim prop As Long

prop = CLng(mi.PropertyAccessor.GetProperty(PR_SECURITY_FLAGS))
ulFlags = ulFlags Or &H1 ' SECFLAG_ENCRYPTED
ulFlags = ulFlags Or &H2 ' SECFLAG_SIGNED
mi.PropertyAccessor.SetProperty PR_SECURITY_FLAGS, ulFlags
Set mi = Nothing

我尝试使用EWS实现，但它也不起作用。 0x6E010003可能是属性ID和属性类型（0x0003表示无符号长）。

<t:SetItemField>
<t:ExtendedFieldURI DistinguishedPropertySetId="Common" PropertyId="28161" PropertyType="Integer" />
<t:Message>
    <t:ExtendedProperty>
        <t:ExtendedFieldURI DistinguishedPropertySetId="Common" PropertyId="28161" PropertyType="Integer" />
        <t:Value>3</t:Value>
    </t:ExtendedProperty>
</t:Message>

有人可以解决这个问题吗？