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

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    septembre 2007
    Messages
    106
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : septembre 2007
    Messages : 106
    Points : 120
    Points
    120
    Par défaut Parcourir les mails dans une boîte aux lettres sur une date en particulier
    Bonjour à toutes,

    Dans le cadre d'un projet VBA sur Access, j'ai une procédure qui parcours le contenu de la boîte aux lettres Outlook de l'utilisateur de la base et qui recherche un mail spécifique en fonction de son objet.

    J'ai trouvé le moyen de procéder mais le problème c'est qu'il cherche dans la BAL en commençant par les mails les plus anciens et selon les utilisateurs, la procédure peut prendre beaucoup de temps pour trouver l'email (j'ai des utilisateurs qui ont plusieurs dizaines de milliers d'emails dans leur BAL).

    Y a-t-il un moyen de forcer Outlook à ne chercher que sur les messages du jour ou d'une date en particulier ?

    Voici le bout de code que j'utilise :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
    Dim ns As NameSpace, inbox As MAPIFolder, str As String, olItems As Outlook.Items, m As Object
    Set ns = GetNamespace("MAPI")
    Set inbox = ns.GetDefaultFolder(olFolderInbox)
    Set olItems = inbox.Items
    For Each m In olItems
    str = m.Subject
    if str = "MaRecherche" then 
    ' Mon traitement
    End If
    Next m
    Set olItems = Nothing
    Set inbox = Nothing
    Set ns = Nothing
    Merci par avance.
    Bien à vous.
    El

  2. #2
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    4 081
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 4 081
    Points : 7 033
    Points
    7 033
    Billets dans le blog
    20

  3. #3
    Membre régulier
    Profil pro
    Inscrit en
    septembre 2007
    Messages
    106
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : septembre 2007
    Messages : 106
    Points : 120
    Points
    120
    Par défaut
    Merci beaucoup !
    J'ai parcouru le lien et j'ai trouvé de quoi régler mon problème :

    Voici le bout de code que j'ai ajouté :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    strD = CStr(Date())
    Set olItems = inbox.Items.Restrict("[SentOn] >= '" & strD & "'")
    Du coup, ça va beaucoup plus vite !
    el

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

Discussions similaires

  1. Réponses: 20
    Dernier message: 01/04/2017, 14h50
  2. Réponses: 4
    Dernier message: 15/03/2016, 00h02
  3. Réponses: 22
    Dernier message: 11/03/2016, 10h37
  4. Logiciel pour récupérer que les mails dans une page web
    Par mouss4rs dans le forum Autres Logiciels
    Réponses: 0
    Dernier message: 24/07/2010, 15h41
  5. [OL-2007] Envoyer un mail de la boîte aux lettres Admin
    Par tempsdescerises dans le forum Outlook
    Réponses: 9
    Dernier message: 06/10/2009, 16h54

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