XL 2010 récupération de l'adresse mail du destinataire

[Scoobidoo]

Bonjour à tous, le Forum,

avec le code suivant,

Option Explicit
Dim ri As Long
Private Sub CommandButton1_Click()
  ri = 2
  Dim app As Outlook.Application
  Dim AppNs As Outlook.Namespace
  Dim AppFolder As Outlook.MAPIFolder  '  MAPIFolder
 
 
  Set app = New Outlook.Application
  Set AppNs = app.GetNamespace("MAPI")
  Set AppFolder = AppNs.Folders(1)
  Call ProcessFolder(AppFolder)
Set AppFolder = Nothing
  Set AppNs = Nothing
' app.Quit
  Set app = Nothing
End Sub
Sub ProcessFolder(AppFolder As Outlook.MAPIFolder)
    Dim email As Outlook.MailItem
    Dim AppSubFolder As Outlook.Folder
    For Each AppSubFolder In AppFolder.Folders
        Cells(ri, 1).Value = AppSubFolder.Name
        ri = ri + 1
        ProcessFolder AppSubFolder
    Next AppSubFolder
    On Error Resume Next
    For Each email In AppFolder.Items
        Cells(ri, 2).Value = email.ReceivedTime
        Cells(ri, 3).Value = email.SenderEmailAddress
        Cells(ri, 4).Value = email.To
        Cells(ri, 5).Value = email.CC
        Cells(ri, 6).Value = email.Subject
        If email.Attachments.Count > 0 Then
            Dim ci As Integer
            ci = 1
            Dim emailAttachement As Outlook.Attachment
            For Each emailAttachement In email.Attachments
                Cells(ri, 6 + ci).Value = emailAttachement.Filename
                ci = ci + 1
            Next emailAttachement
        End If
        ri = ri + 1
    Next
End Sub

j'arrive à récupérer ces infos mais d'un dossier qui ,n'est pas le bon.

Mais je souhaiterais réussir la même chose pour le dossier Outlook en PJ.
Je tourn désepéremment en rond sans y parvenir.
Quelqu'un aurait -il une piste pour que je puisse continuer d'avancer.
Merci par avance à ceux qui me liront et bien plus à ceux qui pourront m'aider.
Bon après midi à tous.

Scoobidoo

 

[Lone-wolf]

Bonjour Scoobidoo

Ah non! Tu vas pas t'y mettre toi aussi!!. Les os je veux bien te les donner, mais je ne te donnerais pas les adresses des destinataires.

 

[Lone-wolf]

Re Scoobidoo

Je pense que tu va sauter de joie avec ce fichier fait par notre ami mromain. Je viens de le tester, c'est génial.

 

[Scoobidoo]

Bonsoir Lone-Wolf,

Pour le moment point d'os à ronger mais plutôt (hihihi le chien de Mickey) mes ongles.
En effet ce fichier est bien mais je ne sais pas comment choisir son action uniquement sur un sous, voire sous-sous, voire sous-sous-sous dossier comme indiquer dans l'image en pièce jointe à mon message.
C'est là mon principal problème pour le moment.
Si tu as une idée à me souffler je suis preneur.
Merci déjà pour ton aide.
A +

Scoobidoo

 

[Lone-wolf]

Re

Désolé non, en plus je ne suis pas un expert.

 

[Scoobidoo]

Re,

Pas de problème je regarde ce que je peux faire avec le fichier et qui sait ?

Encore merci et bonne fin de journée.

Scoobidoo