VBA et Outlook

Bonjour
Avec VBA donc :
(Ajouter une référence dans le projet à Microsoft Outlook 11.0 Object
Library)

Sub VasY()

Dim ol As New Outlook.Application
Dim ns As Outlook.Namespace
Dim fld As Outlook.MAPIFolder
Dim itm As Outlook.MailItem
Dim i As Integer

On Error Resume Next
Set ol = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set ol = CreateObject("Outlook.Application")
On Error GoTo 0
End If
Set ns = ol.GetNamespace("MAPI")
'Ajouter une éventuelle gestion d'erreur ici
Set fld = ns.PickFolder

Dim Expediteur1$, Expediteur2$
Dim CompteExp1&, CompteExp2&

Expediteur1 = "Guillaume Zeja"
Expediteur2 = "Pierre Willaume"
Comptexp1 = 0
CompteExp2 = 0
'Eventuellement ajouter test si pas d'items dans le dossier
For i = 1 To fld.Items.Count
Select Case fld.Items(i).SenderName
Case Is = Expediteur1
CompteExp1 = CompteExp1 + 1
Case Is = Expediteur2
CompteExp2 = CompteExp2 + 1
End Select
Next i

MsgBox "Nombre de messages de " & vbLf _
& Expediteur1 & " : " & CompteExp1 & vbLf _
& Expediteur2 & " : " & CompteExp2, vbInformation, "Compte"

Set itm = Nothing
Set fld = Nothing
Set ns = Nothing
Set ol = Nothing
Exit Sub
End Sub

Cordialement
Pascal

"hkhjlkjklmj" <ihhioj@hoho.fr> a écrit dans le message de news:
44993412$0$898$ba4acef3@news.orange.fr...

Bonjour,

Je souhaiterai faire un comptage d'e-mail en fonction de l'addresse à la
réception de ceux-ci :

5 e-mails de toto
6 e-mail de titi
...

Pouvez-vous m'aider ?


merci