Importer un profil Outlook

Bonjour,
Je suis nouveau sur le forum et plutôt un programmeur débutant.
J’ai cherché sur le net la solution exact à mon projet sans la trouvé et je compte donc sur votre aide 😉

Je vous explique ;
Je cherche à pré-remplir un formulaire tel que : nom, prénom, titre, société, tel, mail .. en récupérant les informations sur le profil du contact Outlook de la session en cours.

Ex : Un utilisateur lambda démarre son PC sur ça session.
Outlook étant paramètre sur sa session.
A l’ouverture du fichier Excel, le formulaire devra être pré remplit avec ses informations.

Pour l’instant je n’ai trouvé à faire que récupérer l’’ID de l’’utilisateur qui se présente systématiquement ainsi :
[prénom].[nom] et que le mail est systématiquement [prénom].[nom]@[domaine].com

Merci d’avance pour votre aide

Bonjour,

ci-dessous exemple de récupération d'un profil Outlook à partir de sa première adresse mail

Sub récup_contact()

    Dim olApp As Outlook.Application
    Dim contacts As Outlook.Folder
    Dim contacts_trouvés As Outlook.Items
    Dim contact As Outlook.ContactItem
    Dim adresse As String, filtre As String

    Dim nom As String, prénom As String, titre As String, tel As String

    'définition application
    Set olApp = Outlook.Application

    'affectation contacts
    Set contacts = olApp.Session.GetDefaultFolder(olFolderContacts)

    'recherche des contacts correspondant à l'adresse mail
    adresse = "utilisateur@exemple.com"
    filtre = "[Email1Address]=" & Chr(34) & adresse & Chr(34)
    Set contacts_trouvés = contacts.Items.Restrict(filtre)

    'exploitation des contacts trouvés
    For Each contact In contacts_trouvés
        prénom = contact.FirstName
        nom = contact.LastName
        titre = contact.Title
        tel = contact.BusinessTelephoneNumber
        '......
    Next contact

End Sub