Discussion :

[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 :

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

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.

[franckb74]

Bonjour,

Je viens de tester la macro dans Outlook 2016 mais cela ne fonctionne pas lorsqu'on saisi un autre mot de passe dans la ligne de code :

Code :

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

If pass <> "chaine" And i > 3 Then

De plus lorsqu'on tape plus que 3 fois un mauvais mot de passe au lieu de fermer Outlook il l'ouvre tout de même

Merci pour votre aide

[Oliv-]

Bonjour,

Comme cela, mais c'est très peu sécurisant, mieux vaut utiliser le verrouillage de session.

à mettre dans ThisOutlookSession

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
 
 
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

[franckb74]

Bonjour,

Merci pour ta réponse.

Mais le code que tu proposes pour mieux sécurisé l'ouverture d'Outlook est le même que celui que celui que j'ai posté.

Merci pour ton aide

[Oliv-]

NON mais ça ressemble

[franckb74]

Oui effectivement la ligne 14 est différente.

Savez-vous si ce code empêcherait une personne de récupérer les email à partir du fichier pst d'Outlook ?

[Oliv-]

Non ce code ne sert à rien dans ce cas.

Par contre si c'est un PST On peut mettre un mot de passe directement dessus.

[franckb74]

Alors ça m'intéresse.
Comment procède-t-on en sachant que j'ai plusieurs adresses email dans Outlook ?

[Oliv-]

http://lmgtfy.com/?q=PST+CHANGER+LE+MOT+DE+PASSE

[franckb74]

Bonjour,

Merci pour le lien mais comme je l'ai expliqué j'ai plusieurs adresse email dans Outlook et donc l’opération n'est pas possible (comme expliqué dans le tuto)

Merci tout de même

[Oliv-]

Bonjour,
Je ne comprend pas pourquoi ce n'est pas possible ? Tu vas sur chaque "fichier de donnée" (pst) et tu fais la manip.

[franckb74]

Lorsque je vais sur chaque pst je n'ai pas la possibilité de saisir un mot de passe même en étant en mode hors connexion
Voici la copie d'écran de la fenêtre :

Et lorsque je sélectionne une des adresses puis en cliquant sur "paramètres" voici la fenêtre :

[Oliv-]

parce que ce ne sont pas des PST mais des OST !

donc si le compte n'est pas configuré, on ne peut pas ouvrir "simplement" ton OST pour lire ou copier le contenu.

[franckb74]

Désolé je suis un peu perdu...
Cela veux dire que si une personne copie mes fichier OST il ne peut rien en faire. C'est juste ?
Et donc le mot de passe défini par le code ci-dessus est suffisant ?

[Oliv-]

Pour la plupart des utilisateurs ce sera effectivement très difficile d'utiliser un OST , mais apparemment pas impossible des outils payants existent.

[franckb74]

Bonjour,

Je vous remercie pour votre réponse.