如何使用Access VBA将Azure信息保护标签应用于Outlook电子邮件？

Question

我在我们的MS Access数据库中有一个VBA函数，它生成Outlook电子邮件并从共享收件箱发送。

我们公司使用 Azure 信息保护来保护文档。在发送之前，需要为每封电子邮件应用标签（例如，公共、业务敏感、内部）。

我试图以编程方式应用它，而不是让用户在每封电子邮件弹出标签时单击25次。

我得到错误代码（-1248837627）。

我的解决方案是获取标签GUID，然后将其应用于电子邮件，如下所示。我遇到了其他解决方案，例如使用SendKeys，但我更希望这是最后的选择。

With olMail
   .To = olSendTo
   .Subject = olSubject
   .PermissionTemplateGuid = "XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXX"
   .Permission = olPermissionTemplate
   'And so on, the email function works great until the above two lines are added

我是否应用了<代码>。权限或< code >。PermissionTemplateGUID不正确？

我见过类似的方法将标签应用于Excel文档(抓取并设置guid)。

Answer 1

您发布的代码用于指定信息权限管理（IRM）权限。Azure信息保护是另一回事。

您需要以以下格式添加用户属性：

"MSIP_Label_" & guid_internal_use_only & "_Enabled"

但我建议使用MFCMAPI或Outlook kSpy探索Outlook邮件项目的内部结构以找到确切的解决方案。尝试手动设置它，然后使用这些工具探索内部结构。