IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Outlook Discussion :

Filtrer des Mails dans Outlook à partir de VBA Excel et les dénombrer.


Sujet :

VBA Outlook

  1. #1
    Membre régulier
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2005
    Messages
    125
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : Juillet 2005
    Messages : 125
    Points : 80
    Points
    80
    Par défaut Filtrer des Mails dans Outlook à partir de VBA Excel et les dénombrer.
    Bonjour,

    Je cherche de l'aide. Je voudrais pouvoir dénombrer des Mails dans mon Outlook Inbox sur base d'un filtre afin de faire des statistique dans Excel.
    Voici le code VBA (Excel) qui permet de dénombrer le nombre total de Mails. Comment dénombrer un nombre de Mails sur base d'un filtre ?

    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
    22
    23
    24
    25
    26
    27
    Sub Main()
     
        Dim objOutlook As Outlook.Application
        Dim objNameSpace As Outlook.Namespace
        Dim objMailFolderInbox As Outlook.MAPIFolder
        Dim intMailTotal As Integer
     
    On Error Resume Next
     
        'Test si Outlook est ouvert.
        Set objOutlook = GetObject(, "Outlook.Application")
        If objOutlook Is Nothing Then Set objOutlook = CreateObject("Outlook.Application")
     
        Set objNameSpace = objOutlook.GetNamespace("MAPI")
        objNameSpace.SendAndReceive (True)
     
        'Recherche du Folder Inbox.
        Set objMailFolderInbox = objNameSpace.GetDefaultFolder(olFolderInbox)
     
        'Nombre total de Mails
        intMailTotal = objMailFolderInbox.Items.Count
     
    '******************************************************************
    '* Comment filtrer (ex. sur base de date) et donner le nombre de Mails concernés *
    '******************************************************************
     
    End Sub

  2. #2
    Expert éminent

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 071
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 071
    Points : 9 850
    Points
    9 850
    Billets dans le blog
    5
    Par défaut
    Bonjour,

    intéresse toi à la méthode Restrict

    exemple, récupérer la collection des mails reçus après le 15/01/2018 00:00:00
    procédure rédigée en Late Binding
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Sub IsoleMails()
    Dim OlApp As Object, MaRestriction As String, MonDossier As Object, OlNmSpace As Object, MesMails As Object, MaDate As Date
    Set OlApp = CreateObject("Outlook.Application")
    Set OlNmSpace = OlApp.GetNamespace("MAPI")
    Set MonDossier = OlNmSpace.GetDefaultFolder(6)  'olFolderInbox
        MaDate = "15/01/2018"
        MaRestriction = "[Receivedtime] > '" & Format(MaDate, "dd/mm/yyyy hh:mm") & "'"
        Set MesMails = MonDossier.items.restrict(MaRestriction)
        MsgBox MesMails.Count
    End Sub

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Récupérer des mail dans Outlook: erreur 287
    Par cosmic74 dans le forum VBA Outlook
    Réponses: 10
    Dernier message: 07/03/2018, 23h57
  2. [XL-2016] Import meeting dans Outlook à partir d’Excel VBA
    Par Lameth dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 31/01/2017, 08h33
  3. [AC-2007] Recherche des mail dans Outlook
    Par pio_killer dans le forum VBA Access
    Réponses: 2
    Dernier message: 11/12/2012, 08h51
  4. Lire des mails dans Outlook Express
    Par G_angel dans le forum C#
    Réponses: 1
    Dernier message: 02/03/2010, 12h23
  5. envoyer la liste des mails dans outlook
    Par raphael_g dans le forum IHM
    Réponses: 4
    Dernier message: 16/08/2009, 23h09

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo