Discussion :

[Olivierporcinet]

Bonjour,

voici mon code

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
 
 
Sub MoveItems() 
 Dim myNameSpace As Outlook.NameSpace 
 Dim myInbox As Outlook.Folder 
 Dim myDestFolder As Outlook.Folder 
 Dim myItems As Outlook.Items 
 Dim myItem As Object 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox) 
 Set myItems = myInbox.Items 
 Set myDestFolder = myInbox.Folders("Auberge") 
 Set myItem = myItems.Find("[SenderName] = 'Auberge'") 
 While TypeName(myItem) <> "Nothing" 
 myItem.Move myDestFolder 
 Set myItem = myItems.FindNext 
 Wend 
End Sub

Je cherche le moyen de :

- afficher une boîte de dialogue qui me demanderait, lors de la réception du mail, si je veux le déplacer dans le dossier (confirmation avec deux bouton "OK" et "Non" )

- mettre un drapeau rouge au mail tant que le mail n'a pas été lu dans le dossier de destination

- créer plusieurs dossiers de destinations, ex. Auberge, Hopital, .... et les mails correspondants doivent se déplacer dans le bon dossier.

- Ne pas déplacer les éléments de demandes de réunion et tâche

Des idées ?


Merci.

Bonne journée.

[Olivierporcinet]

J'ai déjà trouvé une solution pour :

- créer plusieurs dossiers de destinations, ex. Auberge, Hôpital, .... et les mails correspondants doivent se déplacer dans le bon dossier.

Je recopie une partie du code, (avant "While"), mais lorsque je reçois un autre mail de la personne, le code ne fonctionne plus.