Aller au contenu
  • Pas encore inscrit ?

    Pourquoi ne pas vous inscrire ? C'est simple, rapide et gratuit.
    Pour en savoir plus, lisez Les avantages de l'inscription... et la Charte de Zébulon.
    De plus, les messages que vous postez en tant qu'invité restent invisibles tant qu'un modérateur ne les a pas validés. Inscrivez-vous, ce sera un gain de temps pour tout le monde, vous, les helpeurs et les modérateurs ! :wink:

Recherche dans outlook par VBA


Ptitdark
 Share

Messages recommandés

Bonjour,

 

Je commence à tripoter du VBA dans outlook 2003 pour retrouver des emails et les traiter automatiquement

J'utilise donc AdvancedSearch.

 

J'arrive à trouver les emails que j'ai reçu et effacé par ce bout de code :

Dim oSearch As Outlook.Search
Set oSearch = Application.AdvancedSearch("'Éléments supprimés'", "urn:schemas:httpmail:fromemail like '%toto%'")
blnSearchComp = False
While blnSearchComp = False
	DoEvents
Wend
Set oResult = oSearch.Results
MsgBox oResult.Count

Ma msgbox me renvoit bien le nombre d'emails qu'il y a dans la corbeille.

 

En revanche lorsque j'essaie de chercher les emails que j'ai envoyé, la recherche ne renvoie rien.

Dim oSearch As Outlook.Search
Set oSearch = Application.AdvancedSearch("'Éléments envoyés'", "[b]urn:schemas:httpmail:toemail[/b] like '%toto%'")
blnSearchComp = False
While blnSearchComp = False
	DoEvents
Wend
Set oResult = oSearch.Results
MsgBox oResult.Count

J'ai essayé :

- urn:schemas:httpmail:to

- urn:schemas:mailheader:to

- urn:schemas:mailheader:to

- urn:schemas:mailheader:recipient

- et d'autres divagations

la msgbox renvoie 0 tout le temps

 

Pour info, je fais attendre la recherche par cet évènement

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)
blnSearchComp = True
End Sub

avec : Public blnSearchComp As Boolean

 

Au secours, mes neurones sont en train de se carapater tellement je fais fumer mon cerveau

Lien vers le commentaire
Partager sur d’autres sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

 Share

  • En ligne récemment   0 membre est en ligne

    • Aucun utilisateur enregistré regarde cette page.
×
×
  • Créer...