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)
- 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
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
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,
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
Encore une fois, merci à eux. C'est grâce à votre aide que nous progressons.
Enjoy,
Pet's
Partager