Discussion :

[xmarabout]

Bonjour,

Jusqu'il y a très peu, dans notre organisation, nous utilisions Office 2010. J'avais un beau petit script dans Excel pour envoyer des mail et les crypter avant l'envoi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    ' Add Encryption
    ' Ref. https://support.microsoft.com/en-us/help/2636465/how-to-sign-or-encrypt-mail-messages-programmatically
      Const PR_SECURITY_FLAGS = "http://schemas.microsoft.com/mapi/proptag/0x6E010003"
      ulFlags = 1
      ulFlags = ulFlags Or &H1 ' Add the encrypted flag
        If i > 0 Then
            If SECEM Then
                aEmail.PropertyAccessor.SetProperty PR_SECURITY_FLAGS, ulFlags
            End If
            aEmail.Display
        Else
            aEmail.Delete
        End If

Maintenant, nous sommes passés à Office 2016 (et donc Excel 2016 et Outlook 2016) et mon code bloque sur cette partie. Je ne trouve rien comme documentation à jour sur le sujet. Quelqu'un a-t-il une idée ?

merci

[Jean-Philippe André]

Bonjour,

peux-tu etre plus explicite sur le

mon code bloque sur cette partie

As-tu un message d'erreur ? lequel ?

je trouve ce bout de blog sur MS :
https://docs.microsoft.com/fr-ca/arc...cally-from-oom

[xmarabout]

Bonjour,

peux-tu etre plus explicite sur le


As-tu un message d'erreur ? lequel ?

je trouve ce bout de blog sur MS :
https://docs.microsoft.com/fr-ca/arc...cally-from-oom

Merci Jean-Philippe mais le code que j'ai est exactement le même (en tout cas fonctionne sur la même base).
Mon code bloque au

Code :

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

aEmail.PropertyAccessor.SetProperty PR_SECURITY_FLAGS, ulFlags

Le code fonctionnait sur Outlook 2007 mais ne fonctionne plus sur Outlook 2016.
Le question est clairment: qu'est-ce qui a changé ? Comment récupérer cette propriété security flag...

[Oliv-]

Salut,

Est-ce que manuellement tu peux le faire ?

essaye ce code

Code :

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

  aEmail.GetInspector.CommandBars.ExecuteMso ("DigitallySignMessage")

[xmarabout]

Salut,

Est-ce que manuellement tu peux le faire ?

essaye ce code

Code :

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

  aEmail.GetInspector.CommandBars.ExecuteMso ("DigitallySignMessage")

Ca ne fonctionne pas. J'essaye également avec des éléments plus "simples" comme "HighImportance" mais sans succès.

Voici mon code:

Code :

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

1
2
3
4
5
 
     Dim myInspector As Outlook.Inspector
     Set myInspector = aEmail.GetInspector
            myInspector.CommandBars.ExecuteMso ("HighImportance")
            aEmail.Display

[xmarabout]

OK, ça fonctionne. Merci Oliv pour la piste.

Le ExecuteMSO devait se faire après le Display, ce qui est tout à fait logique...

Merci encore