Discussion :

[Matou17]

Bonjour,

Je suis en train de créer un Add-In Outlook sous VS 2019.

Je suis à la recherche d'une fonction VB .NET qui permet de récupérer directement l'adresse mail ou le nom de l'utilisateur. J'en ai besoin pour effectuer des traitements ensuite.

J'ai le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
Imports Microsoft.Office.Interop.Outlook
    Public Sub NomCompteOutlook()
        Dim myNamespace As Outlook.NameSpace
        Dim recipient As Outlook.Recipient
        Dim userName As String
        myNamespace = Outlook.Application.GetNamespace("MAPI")
        recipient = myNamespace.CurrentUser
        userName = recipient.Name
        MsgBox(userName)
    End Sub

Message d'erreur sur Outlook.Application.GetNamespace("MAPI"): BC30469 Une référence à un membre non partagé requiert une référence d'objet

Merci d'avance de votre aide!

Matou17

[r.morel]

Salut,
Tu peux jeter un oeil à cette solution. Mais aussi à la documentation associée à cette méthode.

Bonne journée.

[Matou17]

On cherche un bon bout de temps, on poste sur le fofo et juste après on trouve la solution:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Public Sub NomCompteOutlook()
        Dim olApp As Object
        olApp = CreateObject("Outlook.Application")
        Dim myNamespace As Outlook.NameSpace
        Dim recipient As Outlook.Recipient
        Dim userName As String
        myNamespace = olApp.GetNamespace("MAPI")
        recipient = myNamespace.CurrentUser
        userName = recipient.Name
        MsgBox(userName)
    End Sub

C'est quand même bien compliqué ce VB .NET

C'est bon pour le nom, mais comment récupérer l'adresse mail par défaut ?

Matou17

[umfred]

ce qu'il te manquait c'était une référence sur l'application outlook
Sinon on recherche dans la doc par exemple par là https://learn.microsoft.com/en-us/of...nt-information
En fouinant, on regarde ce que peut retourner Account https://learn.microsoft.com/en-us/do...ectedfrom=MSDN
on voit la propriété CurrentUser qui retourne un Recipient et dans la doc de Recipient, on y trouve la propriété Address qui renvoiel' adresse mail https://learn.microsoft.com/en-us/do...ew=outlook-pia

il n'y a plus qu'à tout combiner ou plus court
Application.Session.CurrentUser.AddressEntry.Addresset en fait, tu y étais presque, recipient.Address devrait te donner la bonne information

[Matou17]

recipient.Address donne une chaine de caractères qui commence par /o=ExchangeLab..... mais il n'y a pas l'adresse mail complète à la fin, donc pas exploitable.

[wallace1]

Bonjour,

Avec ceci :

Code :

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

1
2
3
4
5
6
7
8
Imports Microsoft.Office.Interop
 
Public Shared Function CurrentUserEmail() As String
    Dim oApp As New Outlook.Application
    Dim nsMAPI As Outlook.NameSpace = oApp.GetNamespace("MAPI")
    Dim currUser As Outlook.Recipient = nsMAPI.CurrentUser
    Return currUser.Address
End Function

Si ça ne renvoi pas l adresse alors essayes ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Imports Microsoft.Office.Interop
 
Public Shared Function CurrentUserEmail() As String
    Dim oApp As New Outlook.Application
    Dim nsMAPI As Outlook.NameSpace = oApp.GetNamespace("MAPI")
    Dim currUser As Outlook.Recipient = nsMAPI.CurrentUser
    Dim exUser As Outlook.ExchangeUser = currUser.AddressEntry.GetExchangeUser()
    If exUser IsNot Nothing Then
        Return exUser.PrimarySmtpAddress
    Else
        Return currUser.Address
    End If
End Function

Bon codage 😉

[Matou17]

Bonjour à tous,

Et merci d'avoir eu le gentillesse de me répondre.

J'ai testé les solutions que vous m'avez proposées, mais sans succès.

Je retombe à chaque fois sur la chaine de caractères qui commence par /o=ExchangeLab..... mais il n'y a pas l'adresse mail complète à la fin, donc pas exploitable.
Peut-être est-ce dû à l'environnement 365 ?

Je peux bien récupérer le nom de la personne, mais toujours pas son adresse mail.

Cordialement,

Matou17