Discussion :

[OliveDuSud]

Bonjour,
Dans Outlook 365, je cherche à récupérer dans une variable sous VBA, une des 2 données "Nom d'utilisateur" ou "Initiales" que l'on trouve dans les "Option Outlook" dans l'onglet "Générales".
Je n'ai à ce jour pas réussi à récupérer ces information alors que sous Excel, c'est très simple (Application.UserName).
Quelqu'un aurait-il la solution?
Merci beaucoup par avance.

[OliveDuSud]

Bonjour,
Pour information j'ai pu obtenir la réponse.
Ces 2 informations sont stockées dans la base de registres. Pour les récupérer on peut passer par :

Username = CreateObject("wscript.shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\Common\UserInfo\UserName")
Userinitials = CreateObject("wscript.shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\Common\UserInfo\UserInitials")

Ca fonctionne très bien.

[joe.levrai]

Bonjour,

sans passer par la BDR :

Code :

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

1
2
3
4
5
6
7
8
Sub NomUser() 
 
Dim Ns As Outlook.NameSpace 
Set Ns = Application.GetNameSpace("MAPI") 
 
MsgBox Ns.CurrentUser 
 
End Sub

[OliveDuSud]

Bonjour Joe,

Merci, mais le résultat obtenu n'est pas celui attendu par cette méthode. En effet, Ns ne retourne pas les informations enregistrées dans les options générales.

C'est quand même sympa d'avoir répondu.

Bonne journée.