Bonjour,
Je ne savais pas trop où poster ce message car je souhaiterai utiliser une fonctionnalité Outlook dans une macro Excel.
J'ai créé un outil Excel où je souhaite à un moment donné pouvoir rapprocher des données saisies d'une adresse présente dans la liste globale d'adresse Exchange.
J'ai donc créé une fonction permettant de "résoudre" la chaîne saisie et récupérer le nom et le prénom présent dans Exchange. Cela marche très bien quand une seule adresse est retournée avec la chaine envoyé cependant, lorsque la fonction Resolve ne fonctionne pas, je souhaiterai pouvoir afficher la fenêtre vérification des noms afin que l'utilisateur puisse choisir le meilleur nom.
J'ai recherché sur ce forum et d'autres et je ne trouve pas la solution.
Voici le code de la fonction :
Et la fenetre que j'aimerai afficher !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Public Function ResolutionOutlook(ByVal pName As String) As String Dim vOutlook As Outlook.Application ' Attention la référence à Outlook doit être faite Dim vNs As Outlook.Namespace ' Namespace Dim r As Outlook.Recipient Dim vContact As Outlook.ExchangeUser ResolutionOutlook = pName Set vOutlook = CreateObject("Outlook.Application") Set vNs = vOutlook.GetNamespace("MAPI") Set r = vNs.CreateRecipient(pName) r.Resolve If r.Resolved Then If r.AddressEntry.AddressEntryUserType = olExchangeUserAddressEntry Then Set vContact = r.AddressEntry.GetExchangeUser ResolutionOutlook = vContact.FirstName & " " & vContact.LastName End If Else 'afficher la fenetre "Vérification des noms" 'Dim snd As Outlook.SelectNamesDialog <== Pas la bonne solution End If End Function
Merci d'avance !
Partager