Récuperer sa propre adresse mail de OUTLOOK

Salut,

je cherche une solution pour récupérer mon adresse mail Outlook et l'intégrer dans une cellule.

Des idées?

bonjour,

With CreateObject("Outlook.application")
    MsgBox .GetNamespace("MAPI").CurrentUser
End With

Bonjour,

Public Function OwnOutlookMail()
' Ref à Microsoft Outlook Library
' Usage : =OwnOutlookMail()
Dim olNS As Outlook.Namespace
Dim olFol As Outlook.Folder
Dim OL
Set OL = CreateObject("Outlook.Application")
Set olNS = OL.GetNamespace("MAPI")
Set olFol = olNS.GetDefaultFolder(olFolderInbox)
OwnOutlookMail = olFol.Parent.Name
End Function

à tester et me dire si c'est bon pour toi !