[VBA-O] Récupérer le nom de l'expediteur d'un mail [Résolu]

[Elstak]

Coucou,

voilà je cherchais à récupérer le nom de l'expéditeur des mails contenus dans un dossiers. J'ai essayé le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Testcmd(ByVal NomDossier As String)

    Dim ns As NameSpace
    Dim Inbox As MAPIFolder
    Dim Item As Object
    Dim FileName As String
    Dim i As Integer
    Dim DossierConteneur As Outlook.MAPIFolder

    Set ns = GetNamespace("MAPI")
    Set Inbox = ns.GetDefaultFolder(olFolderInbox)
    Set DossierConteneur = Inbox.Folders(NomDossier)
    
    If DossierConteneur.Items.Count = 0 Then
        MsgBox "Dossier : """ & NomDossier & """ vide"
        Exit Sub
    Else
        Gerer_Courrier.Label3.Caption = CStr(DossierConteneur.Items.Count)
    End If
    
    'on regarde combien de mails ont le bon expediteur
    For i = 1 To DossierConteneur.Items.Count
        'donne l'OBJET DU MAIL
        Debug.Print DossierConteneur.Items.Item(i)
    Next
    
End Sub

et en fait là je récupére l'objet du mail et non le nom de l'expediteur (au passage ca me gène qu'a moitié car il me faut l'objet aussi dans la suite !! ). J'ai essayé de voir quel autre commande mettre apres items dans la liste mais rien ne correspond... (enfin rien ne m'a l'air evident... y'a pas de nom qui ressemble à "expeditor" ou je sais pas quoi).

Donc si quelqu'un a un idée bah je dirais pas non !

[SilkyRoad]

bonjour

tu peux essayer

Code :

1
2
3
4
5
6
7
8
9
Dim It As Outlook.MailItem
'
'...
'
For i = 1 To DossierConteneur.Items.Count
   'donne l'OBJET DU MAIL
   Set It = DossierConteneur.Items.Item(i)
   Debug.Print It.SenderName
Next i

bon apres midi
michel

[Elstak]

Ah silky !!

je savais que t'etais l'homme de la situation

n'empeche que le sendername il le propose pas

merci

EDIT : oops, si en fait il le propose mais il faut declarer le 'it' comme t'as fait (j'etais un peu passé à coté là )