Discussion :

[philzig34]

Salut
à la lecture plein écran d'un message, je peux afficher dans Notepad le source du message.
peut on par le biais d'une macro VBA sauvegarder ce fichier texte ?
et utiliser les adresses en clair ?
Merci de vos réponses
Philzig34

[Oliv-]

SAlut,
Qu'est ce qui t'intéresse dans la source du mail ? les en têtes ?
pour du HTML le clic droit source correspond au HTMLBODY.
C'est quoi une "adresses en clair " ?

regarde ici pour sauver sur le disque si tu veux du html il faut changer le type sauvegardé (.msg)
http://outlook.developpez.com/faq/?p...#VBA_save_mail

[philzig34]

Oliv
Merci de ta réponse
ce que je cherche, en fait, c'est de récupérer l'adresse email des destinataires d'un message que l'on m'envoie soit en cc ou cci

[Oliv-]

il faut parcourir les recipients du mail

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
Private Sub BaBa()
Dim App
Dim Insp
Dim Expl
Dim Oitem
    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
For each destinataire in oitem.recipients
msgbox destinataire
next destinataire 
end sub