Discussion :

[Guy FALESSE]

Bonjour,

Je voudrais retrouver un mot dans le corps d'un message et je n'y arrive pas
Par exemple, j'ai des messages qui contiennent des recettes et dans l'une il existe le mot origan.
Comment le retrouver ce origan?
D'avance merci

Guy FALESSE

[User]

Bonsoir,

Pour ma part, j'utilise une fonction VBA de ce type :

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
28
29
30
31
32
33
Function SearchTextInOutlook(textSearch As String) As Boolean
 
    'gestion des erreurs
    On Error GoTo err_SearchText
 
    'déclaration des variables de travail
    Dim olkapp As Outlook.Application
    Dim explorer As Outlook.explorer
 
    ...
 
    'ouverture de l'object outlook
 
    Set olkapp = CreateObject("Outlook.application")
 
      If (olkapp.Session.DefaultStore.IsInstantSearchEnabled) Then
 
        Set explorer = olkapp.Explorers.Add(olkapp.Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox), Outlook.OlFolderDisplayMode.olFolderDisplayNormal)
        explorer.Search textSearch, Outlook.OlSearchScope.olSearchScopeAllFolders
        explorer.Display
        olkapp.ActiveWindow
      End If
 
    Set olkapp = Nothing
 
    Exit Function
 
    'en cas d'erreur
err_SearchText:
    DoCmd.Hourglass False
    MsgBox ("L'erreur suivante a eu lieue : " & vbCrLf & Err.Description)
 
End Function

Mais je viens du monde Access, donc à priori dans votre cas pas besoin de créer une instance Outlook

Cdlt,
Denis

[Guy FALESSE]

Bonjour,

Désolé pour la réponse tardive, mais, je n'ai pas eu de notification par E-mail
Je me suis sans doute trompé en cochant la mauvaise sélection de notification.
A priori, cela me paraît intéressant.
Mais comment devrais-je utiliser cette fonction.
Merci,
Guy FALESSE

[User]

Bonjour,

Bonne question

Mais pourquoi ne pas le faire depuis Excel ou Access ?

Il faudrait passer le texte à rechercher en argument de la fonction, fonction qui doit-être copiée dans un module indépendant (ALT+F11).

Sous Ms Access par exemple ça ferait donc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call SearchTextInOutlook(Me.ZoneTexte)

Cdlt,

[Guy FALESSE]

Salut User,

J'ai trouvé ce qu'il fallait faire en partant du menu de Outlook, il faut dire que ce n'est vraiment pas expliqué dans l'aide, j'avais d'abord cherché là-bas.
Il faut aller sur accueil, ensuite sur filtre de courrier, ensuite sur + de filtre.
On tape le mot recherché et on trouve ce dernier partout dans le message ainsi que dans tous les messages contenant le mot.
Pour terminer, on clique sur fermer la recherche.
En tout cas, encore merci pour ta recherche, User.

Guy FALESSE

[Oliv-]

Bonjour Guy,

C'est une façon d'y aller tu peux aussi faire "ctrl+E" , ou cliquer dans la zone "rechercher Boîte de réception" au dessus des messages.
tu obtiens alors un menu "outils de recherche" et tu peux y sélectionner par exemple "Tous les éléments courriers" pour faire une recherche dans tous les Messages.

[Guy FALESSE]

Bonjour Oliv,

Merci pour ta réponse.
On ne doit pas avoir le même menu, lorsque tu cliques sur CTRL-E: par exemple je n'ai pas tous les éléments courrier.
Pas grave.
Avec la fonction plus de filtre, le mot recherché est surligné (entre autre).

@+
Guy FALESSE