在 Outlook VBA 中访问 AIP 标签:综合指南

在 Outlook VBA 中访问 AIP 标签:综合指南
在 Outlook VBA 中访问 AIP 标签:综合指南

通过 VBA 探索 Outlook 中的 AIP 标签检查

在现代业务环境中,以编程方式访问电子邮件属性的能力对于维护数据安全性和合规性至关重要。 Microsoft Outlook 与 Visual Basic for Applications (VBA) 配合使用时,可以进行广泛的自定义和自动化。当用户需要检查附加到传入电子邮件的 Azure 信息保护 (AIP) 标签以实施安全策略或触发特定工作流时,就会出现一个特殊的挑战。

但是,Outlook VBA 本身并不支持访问“SensitivityLabel”属性,而该属性在 Excel VBA 和较新的基于 JavaScript 的加载项模型中很容易获得。此限制提示需要替代方法来检索 AIP 标签信息,而无需直接解析电子邮件标头,这可能很麻烦且容易出错。

命令 描述
Application.ActiveExplorer.Selection.Item(1) 选择 Outlook 中当前选择的第一个项目。通常在 VBA 中用于处理当前选定的电子邮件。
PropertyAccessor.GetProperty() 使用 MAPI 属性标记从 Outlook 邮件项目检索特定属性。此处用于访问电子邮件标头。
Office.onReady() 当 Office 加载项加载并准备就绪时初始化函数,确保主机应用程序准备好运行 Office.js 脚本。
loadCustomPropertiesAsync() 使用 Office.js 异步加载与 Outlook 中的电子邮件项目关联的自定义属性。用于访问非标准电子邮件数据(例如加载项中的 AIP 标签)的密钥。
console.log() 将信息输出到 Web 控制台,对于调试 JavaScript 应用程序很有用。它在这里记录检索到的标签。
Chr(10) 返回与 ASCII 代码 10 对应的字符,该字符是换行 (LF) 字符,此处用于查找电子邮件标题中的换行符。

深入分析 AIP 标签检索的脚本功能

提供的脚本提供了一种实用的解决方案,用于访问电子邮件中的 Azure 信息保护 (AIP) 标签,该功能无法通过 Outlook VBA 直接访问,但对于合规性和安全措施至关重要。第一个脚本在 Outlook 中使用 VBA,其中利用 Application.ActiveExplorer.Selection.Item 命令选择用户当前突出显示的电子邮件。该脚本使用 PropertyAccessor.GetProperty 具有预定义 MAPI 属性标记的方法,用于获取可能存储敏感标签信息的所有电子邮件标头。

第二个脚本重点介绍了如何使用 Office.js 框架来增强现代 Outlook 环境中的功能。在这里, Office.onReady 函数确保脚本仅在 Office 主机应用程序完全加载后执行,从而确保兼容性和可靠性。然后它采用 loadCustomPropertiesAsync 异步检索附加到电子邮件的自定义属性(可能包括 AIP 标签)的方法。此方法在需要增强数据处理而不影响同步调用的用户体验的环境中特别有用。

在 Outlook 中编写 AIP 标签检索脚本

使用 VBA 提取电子邮件元数据

Dim oMail As Outlook.MailItem
Dim oHeaders As Outlook.PropertyAccessor
Const PR_TRANSPORT_MESSAGE_HEADERS As String = "http://schemas.microsoft.com/mapi/proptag/0x007D001E"
Dim labelHeader As String
Dim headerValue As String

Sub RetrieveAIPLabel()
    Set oMail = Application.ActiveExplorer.Selection.Item(1)
    Set oHeaders = oMail.PropertyAccessor
    headerValue = oHeaders.GetProperty(PR_TRANSPORT_MESSAGE_HEADERS)
    labelHeader = ExtractLabel(headerValue)
    MsgBox "The AIP Label ID is: " & labelHeader
End Sub

Function ExtractLabel(headers As String) As String
    Dim startPos As Integer
    Dim endPos As Integer
    startPos = InStr(headers, "MSIP_Label_")
    If startPos > 0 Then
        headers = Mid(headers, startPos)
        endPos = InStr(headers, Chr(10)) 'Assuming line break marks the end
        ExtractLabel = Trim(Mid(headers, 1, endPos - 1))
    Else
        ExtractLabel = "No label found"
    End If
End Function

构建用于标签检查的 JavaScript 插件

使用 Office JS API 增强电子邮件处理

Office.onReady((info) => {
    if (info.host === Office.HostType.Outlook) {
        retrieveLabel();
    }
});

function retrieveLabel() {
    Office.context.mailbox.item.loadCustomPropertiesAsync((result) => {
        if (result.status === Office.AsyncResultStatus.Succeeded) {
            var customProps = result.value;
            var label = customProps.get("MSIP_Label");
            if (label) {
                console.log("AIP Label: " + label);
            } else {
                console.log("No AIP Label found.");
            }
        } else {
            console.error("Failed to load custom properties: " + result.error.message);
        }
    });
}

通过电子邮件元数据分析增强安全性

企业环境中的电子邮件元数据可以在维护安全性和确保遵守法规方面发挥关键作用。访问这些数据,尤其是有关 AIP 等敏感信息标签的数据,可以使 IT 部门有效地自动化和定制安全措施。这种访问对于防止数据泄露并确保敏感信息在其整个生命周期中得到正确分类和保护至关重要。

在使用 Outlook VBA 等旧系统的环境中,访问此类元数据需要创造性的解决方案,因为缺乏对新属性(如 SensitivityLabel。这种差距通常需要使用额外的编程或第三方工具来桥接企业环境中旧技术和新技术之间的功能。

有关 Outlook 中电子邮件标签管理的常见问题

  1. 什么是 AIP 标签?
  2. Azure 信息保护 (AIP) 标签用于通过应用标签来对文档和电子邮件进行分类和保护。
  3. Outlook VBA可以直接访问AIP标签吗?
  4. 不,Outlook VBA 不直接支持 SensitivityLabel 用于访问 AIP 标签的属性。需要替代方法,例如解析标头。
  5. 什么是 PropertyAccessor.GetProperty 命令做什么?
  6. 此命令使用对象的 MAPI 属性标记从对象(例如 Outlook 中的电子邮件)检索特定属性。
  7. 是否有适用于现代 Outlook 版本的基于 JavaScript 的解决方案?
  8. 是的,基于 JavaScript 的现代 Outlook 加载项模型允许通过 Office.js 库访问这些属性。
  9. 如何在 Outlook 中异步访问电子邮件的自定义属性?
  10. 使用 loadCustomPropertiesAsync Office.js 中的方法,该方法检索自定义属性而不阻塞用户界面。

关于增强 Outlook 中电子邮件安全性的最终想法

尽管使用 VBA 直接管理旧版 Outlook 中的 AIP 标签很复杂,但所讨论的策略提供了有效的解决方法。通过利用 Outlook VBA 进行标头解析和 Office.js 处理现代环境中的自定义属性,组织可以确保其电子邮件安全协议保持稳健并适应不断变化的合规性要求。这种双重方法强调了在不同技术生态系统中灵活管理电子邮件安全的必要性。