[OL-2010] Mettre mot de passe à l'ouverture d'outlook

[fra7878]

Bonjour,
je suis sous outlook 2010 où j'ai 2 messageries différentes qui y sont configurées.
Néanmoins, étant donné que plusieurs personnes ont accès à mon profil, j'aimerais qu'à l'ouverture du programme, un seul mot de passe (différent que celui des messageries) me soit demandé.
Est-ce possible?

Merci pour votre aide

[carden752]

Bonjour,

Un exemple de ce qui peut être fait rapidement.
Il est surement améliorable en faisant une recherche dans un fichier protégé par exemple pour le mot clé.

3 saisies possibles pour l'utilisateur.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Application_Startup() 'Lancement de cette procédure au lancement de l'application
Dim i As Integer
Dim pass As String
Dim chaine As String
i = 0
chaine = "toto" 'mot clé
While i < 3 And pass <> chaine 'Boucle tant que mauvais mot de passe ou moins de 3 essais
pass = InputBox("saisissez le mot de passe") 'récupérer le mot de passe saisi
i = i + 1
Wend
If pass <> "chaine" And i > 3 Then
Application.Quit 'Quitter l'application
End If
End Sub

[fra7878]

Merci pour ton post
Je ne suis pas un king en vb...
Pourrais-tu me dire exactement où et comment dois-je insérer ce script?

Encore merci!

[carden752]

Bonjour,

Tout simplement dans Outlook, tu ouvres l'éditeur (ALT + F11) et directement dans Outlook.activesession (de mémoire). Ne pas créer un nouveau module.

Attention aux paramètres de sécurité des macros.