Discussion :

[rlapt]

Bonjour,

Voici mon problème :

Sur un nouveau mail lorsque je rempli les rubriques A, CC ou CCi les noms des destinataires apparaissent sous la forma Prénom.Nom.

En VBA je souhaite récupérer l'adresse mail complète sous la forme XXX@XXXX.com

Quelqu'un pourrait-il m'aider ?


Merci d'avance.

Roland

[Oliv-]

Salut,
Je lance une nouvelle formule la licence AvatarWare, mettez une photo de vous sur votre profil en échange d'une réponse décodée :
Avatar

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
Sub BaBa()
Dim App As Outlook.Application
Dim INSP As Outlook.Inspector
Dim Expl As Outlook.Explorer
Dim OITEM As Object
Dim vntProp As Variant
    Set App = Outlook.Application 'désigne Outlook
    Debug.Print App
    Set Expl = App.ActiveExplorer 'désigne l'exploreur actif càd la fenêtre des dossiers.
    Debug.Print Expl.Caption
    Set INSP = ActiveInspector 'désigne la fenêtre de l'élement actif
    Debug.Print INSP.Caption
    Set OITEM = ActiveInspector.CurrentItem 'désigne l'élément actif càd le mail le contact ou rdv...
    Debug.Print OITEM
 
    Dim Destinataire
    For Each Destinataire In OITEM.Recipients
        MsgBox Destinataire & "<" & Destinataire.Address & ">"
    Next Destinataire
 
End sub

[rlapt]

Merci de la réponse,

Par contre je n'ai pas été assez précis. Je rencontre un nouveau problème qui vient du fait que nous utilisons exchange.

la réponse à la macro est du genre :
=Exchange Administrative Group (FYDIBOHF23S.............................

Donc deuxième question :

Comment fait on lorsque l'on utilise exchange pour retrouver l'adresse mail.


Merci d'avance.

Roland

[Oliv-]

SAlut,
de quelle macro parles tu la mienne ? tu l'avais décodé ?

Apparemment pour mon avatarware ce n'est pas possible pour les invités de passage qui ont moins de 50 messages à leur actif.

sinon le sujet à était évoqué recemment je pense recherche exchange comme mot clef sur ce forum.