Discussion :

[bart64]

Bonjour,

Dans outlook, je peux choisir 3 niveaux de sensibilité pour l'envoi de mail :
- C1 : Restreint
- C2 : Confidentiel
- C3 : Secret

Je voudrais définir le niveau C2 par défaut, lorsque :
- je créée un mail
- je répond à un mail

Existe-t-il une option pour définir C2 par défaut ? Sinon, peut-on le faire via une macro ?
Enfin, si ce n'est pas possible, puis-je définir en VBA un messagebox qui me demande, à l'envoi d'un mail, si j'ai pensé à changer le niveau de sensibilité ?

Merci d'avance

[bart64]

Je ne sais pas encore comment mettre l'option par défaut. Pour précision, il semble que ça vienne du module complément "Microsoft Azure Information Protection".

J'ai cependant trouvé comment afficher un message avant l'envoi du mail.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Public WithEvents myOlApp As Outlook.Application
 
Public Sub Initialize_handler()
Set myOlApp = CreateObject("Outlook.Application")
End Sub
 
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'by oliv
 
    ' on verifie que c'est un mail
    If Not Item.Class = olMail Then Exit Sub
 
    If MsgBox("Est-ce que ce mail est C2 ?" & vbCr & Item.Subject, vbYesNo, "Confirmation") = vbNo Then
       Cancel = True
    End If
End Sub

[Oliv-]

Bonsoir

En vba

c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Item.sensitivity= olConfidential

Nom Valeur Description
olConfidential 3 Confidentiel
olNormal 0 Critère de diffusion normal
olPersonal 0,1 Personnelle
olPrivate n°2 Private