Bonjour,
J'ai un soucis car je ne sais pas comment changer le compte utilisateur par défaut via VBA. Je précise ma problématique :
J'ai un PC que j'utilise avec 3 adresses de messagerie internet. J'ai donc créé dans Outlook un compte pour chacune d'entre elles (Menu Outils/Comptes ...).
J'ai aussi dû choisir le compte qui est affecté par défaut à l'ouverture d'Outlook.
Or je souhaiterais pouvoir à l'ouverture d'Outlook :
1/ choisir le compte que je veux utiliser (en changeant le compte par défaut)
2/ ne charger que les mails qui correspondent à ce compte (en désactivant la propriété de réception des messages des 2 autres comptes)
J'ai créé un petit userform s'affichant à l'ouverture du soft qui me permet d'une façon conviale de récupérer le nom du compte que je souhaite activer.
Voici le code que j'ai écrit pour le moment :
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 Dim choix As Integer 'Récupération du choix du Compte choix = UserForm1.ListBox1.ListIndex 'Fermeture du userform1 Unload UserForm1 Select Case choix Case 0 'compte1 Case 1 'compte2 Case 2 'compte3 End Select
Reste à trouver le code qui me permette d'accéder aux objets et aux propriétés pour réaliser 1/ et 2/.
Mais là, je sèche car je connais très mal le modèle Objet Outlook : la seule piste "Session.CurrentUser" que j'ai trouvée n'est qu'en lecture seule !
Alors merci d'avance pour votre aide.
Partager