Bonjour,

J'ai plusieurs comptes email dans Outlook et j'aimerais qu'Outlook me demande un mot de passe à l'ouverture.

Carden752 a publié un code en février 2010 mais lorsqu'on tape 3 fois le mauvais mot de passe Outlook fini par s'ouvrir.
Voici le code si quelqu'un voit d'où vient l'erreur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
Merci pour votre aide