Discussion :

[ngourdier]

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 :

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

Merci de votre aide.

Nils

[Oliv-]

Bonjour,
Quel type de messagerie est-ce ? Si c'est un EXCHANGE, les Emails arrivent tous avec l'adresse principale dans le champs a:

il faut consulter l'en tête internet du message. mais cela peut être compliqué lorsqu'il y a plusieurs destinataires

en principe en créant des règles cela marche bien.

https://www.developpez.net/forums/bl...nvoye-message/