IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Outlook Discussion :

Envoi de mail par défaut : confidentiel


Sujet :

Outlook

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    avril 2003
    Messages
    246
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : avril 2003
    Messages : 246
    Points : 91
    Points
    91
    Par défaut Envoi de mail par défaut : confidentiel
    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

  2. #2
    Membre régulier
    Profil pro
    Inscrit en
    avril 2003
    Messages
    246
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : avril 2003
    Messages : 246
    Points : 91
    Points
    91
    Par défaut
    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

  3. #3
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    4 081
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 4 081
    Points : 7 033
    Points
    7 033
    Billets dans le blog
    20
    Par défaut
    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

Discussions similaires

  1. [XL-2003] Envoi de mail par messagerie par défaut
    Par toinou28 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 06/08/2009, 20h48
  2. Problème d'envoie de mail par SMTP
    Par yass dans le forum VB 6 et antérieur
    Réponses: 13
    Dernier message: 12/09/2008, 17h45
  3. [SQL]Envoie de mail par une procedure
    Par yoyopi dans le forum DB2
    Réponses: 19
    Dernier message: 22/02/2008, 17h30
  4. [Mail] Envoi de mail par SMTP ?
    Par Borami dans le forum Langage
    Réponses: 1
    Dernier message: 03/01/2006, 13h26
  5. [Mail] newsletter, envoi de mail par lot
    Par jexl dans le forum Langage
    Réponses: 9
    Dernier message: 08/09/2005, 17h44

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo