Accéder aux étiquettes AIP dans Outlook VBA : un guide complet

Script de récupération d'étiquettes AIP dans Outlook

Utilisation de VBA pour l'extraction de métadonnées de courrier électronique

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

Création d'un complément JavaScript pour l'inspection des étiquettes

Utilisation de l'API Office JS pour une gestion améliorée des e-mails

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);
        }
    });
}

Foire aux questions sur la gestion des étiquettes de courrier électronique dans Outlook

1. Qu'est-ce qu'un label AIP ?
2. Les étiquettes Azure Information Protection (AIP) sont utilisées pour classer et protéger les documents et les e-mails en appliquant des étiquettes.
3. Outlook VBA peut-il accéder directement aux étiquettes AIP ?
4. Non, Outlook VBA ne prend pas directement en charge le SensitivityLabel propriété utilisée pour accéder aux étiquettes AIP. Des méthodes alternatives telles que l’analyse des en-têtes sont nécessaires.
5. Que fait le PropertyAccessor.GetProperty la commande fait-elle ?
6. Cette commande récupère une propriété spécifique d'un objet, tel qu'un e-mail dans Outlook, à l'aide de sa balise de propriété MAPI.
7. Existe-t-il une solution basée sur JavaScript pour les versions modernes d’Outlook ?
8. Oui, le modèle de complément moderne basé sur JavaScript pour Outlook permet d'accéder à ces propriétés via la bibliothèque Office.js.
9. Comment accéder de manière asynchrone aux propriétés personnalisées d’un e-mail dans Outlook ?
10. En utilisant le loadCustomPropertiesAsync dans Office.js, qui récupère les propriétés personnalisées sans bloquer l'interface utilisateur.

Réflexions finales sur l'amélioration de la sécurité de la messagerie dans Outlook

Bien que la gestion directe des étiquettes AIP dans l'ancien Outlook à l'aide de VBA soit complexe, les stratégies décrites fournissent des solutions de contournement efficaces. En tirant parti à la fois d'Outlook VBA pour l'analyse des en-têtes et d'Office.js pour la gestion des propriétés personnalisées dans des environnements modernes, les organisations peuvent garantir que leurs protocoles de sécurité de messagerie restent robustes et adaptables aux exigences de conformité évolutives. Cette double approche souligne la nécessité de faire preuve de flexibilité dans la gestion de la sécurité du courrier électronique au sein de divers écosystèmes technologiques.