Discussion :

[don_pets]

Bonjour à tous,

Ayant pu grâce à la patience, pédagogie et compétence des participants à ce forum, j'ai pu bricoler certains outils sur Outlook et le partager auprès de mes petits camarades. Temps est venu d'en faire de même ici. Je précise tourner sur Oulook 2013 en 64 bits (mais fonctionne également en 32).

Pour cette première contribution j'ai deux outils qui me permettent d'effectuer des recherches :

- Soit je sélectionne un expéditeur et en lançant ma macro, j'obtiens tous ses mails toutes BAL comprises (penser à rajouter "Dans le dossier" sur les colonnes)

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
    ' Recherche tous les mails d'un expéditeur
 
Dim myOlApp As New Outlook.Application
Dim NS As Outlook.namespace
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim txtSearch As String
 
Set NS = myOlApp.GetNamespace("MAPI")
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection
 
txtSearch = myOlSel.Item(1).SenderName
myOlExp.Search txtSearch, olSearchScopeAllFolders
 
Set myOlApp = Nothing
Set myOlExp = Nothing
Set myOlSel = Nothing

- Si je préfère faire une recherche manuelle, ma deuxième macro me permet de rechercher via une Inputbox et donc de faire une recherche texte libre sur l'ensemble des BAL :

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
    ' Recherche tous les mails d'un expéditeur avec demande
 
Dim myOlApp As New Outlook.Application
Dim NS As Outlook.namespace
Dim strFilter As String
Dim oContact  As Outlook.ContactItem
 
Set NS = myOlApp.GetNamespace("MAPI")
 
strFilter = InputBox("Me faut le nom ou l'adresse de messagerie ?", , "")
Set myOlApp.ActiveExplorer.CurrentFolder = NS.GetDefaultFolder(olFolderInbox)
 
 
txtSearch = "àpartirdedepuis:(" & strFilter & ")"
myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders
 
Set myOlApp = Nothing

J'ai pu bricoler tout ça à partir encore une fois de l'aide précieuse des contributeurs. Malheureusement je n'ai noté toutes les personnes qui ont pu m'aider. Aussi je tiens à m'excuser de ne pouvoir le, la, les nommer. Oliv m'a beaucoup aidé, mais d'autres personnes également,

Encore une fois, merci à eux. C'est grâce à votre aide que nous progressons.

Enjoy,

Pet's

[MisterBI]

BOnjour,
Merci pour cette aide précieuse et bien utile.
Cela marche parfaitement dans outlook en direct
j'aimerai pouvoir l'utiliser dans une application access qui ouvrirait outlook, si il est fermé, ou l'activerait simplement et lancerait la recherche en passant un email en paramètre
Je pense que ça devrait etre jouable mais jevois pas trop comment faire...
avec appactivate sans doute?
Merci de ton aide si tu as l'information