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 :
Merci de votre aide.
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 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
Nils
Partager