Récupérer l'adresse mail outlook active

Bonjour,

Pour identifier l'utilisateur d'une macro, j'aimerais récupérer l'adresse mail outlook active.

Initialement, je voulais faire ça :

Sheets("SUMMARY in €").Range("BS" & (ActiveCell.Row)).Value = Application.UserName 

Mais l'username n'est pas identifié personnellement dans ma boite.

Merci beaucoup,

Bonjour,

ci-dessous code

    Set olApp = CreateObject("outlook.application")
    Set olNs = olApp.GetNamespace("MAPI")
    adresse_outlook = olNs.CurrentUser

Impeccable merci,

dernière question, est ce que c'est possible que la saisie soit facultative : la je suis chez moi j'ai oulook sans jamais m'y être connecté. Du coup a chaque fois que je passe par la macro il s'ouvre. (Et comme je veux pas me connecter, je finis sur un message d'erreur).

Est ce que ce serait possible que cette info se remplisse discrètement que si elle est disponibles?