Macro Outlook trier mails par destinataire
Bonjour a tous,
Je souhaiterais mettre en place une macro qui va trier dans une boite outlook commune à plusieurs personnes donc plusieurs destinataires pour une même boite car j'ai des ALIAS.
Elle a pour but de prendre le mail dont le destinataire est TOTO1@TRUC.COM et le ranger dans le dossier TOTO1, TOTO2@TRUC.COM dans le dossier TOTO2 ...
A ce jour je n'arrive pas a traiter le champ A, quelle est sa variable?
voici mon debut de macro :
Code:
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
| Public Sub Tri_BOITE()
Dim objNS As Outlook.NameSpace
Dim startFolder As MAPIFolder
Dim destParentFolder As MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
Dim nameOfDestFolder As String
Dim destFolder As Outlook.Folder
Set objNS = Outlook.GetNamespace("MAPI")
Set startFolder = objNS.Folders("Réservations").Folders("Boîte de réception")
Set myItems = startFolder.Items
'QUELLE VALEUR METRE ICI POUR REMPLACER "DE" '
Set myItem = myItems.Find("[SentOnBehalfOfName] = 'EXPEDITEUR@PRESTATAIRE.COM'")
While TypeName(myItem) <> "Nothing"
If myItem.Subject <> "Nothing" Then
On Error Resume Next
Set destFolder = startFolder.Folders("Suivi TOTO").Folders("TOTO1")
myItem.Move destFolder
End If
Set myItem = myItems.FindNext
Wend |
Merci de votre aide.
Nils
