Discussion :

[BtjpsspgrW]

Bonjour,

La macro ci-dessous fonctionne dans Outlook pour déplacer les mails voulus dans les dossiers Test1, Test2
comme le montre la capture Image1

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub TriMail()   'Macro pour Déplacer les mails voulus dans différents sous-dossier
 
Dim BoitedeRecep    As Outlook.Folder
Dim myItem          As Object
Dim myMail          As Outlook.MailItem
x = 0
y = 0
 
Set BoitedeRecep = Application.Session.GetDefaultFolder(olFolderInbox)  'Dossier "Boite de Reception"
 
 
    For Each myItem In BoitedeRecep.Items                                    'Boucler sur tous les éléments de la boite de réception (mails, réunions, contacts, ..."
        If TypeOf myItem Is MailItem Then                                      'Filtrer sur les éléments de type mail
 
            Set myMail = myItem                                             'récupérer le mail
 
            Select Case LCase(myMail.SenderEmailAddress)
 
                Case "dupont@gmail.com"
                    myMail.Move BoitedeRecep.Folders("Test1")            'Déplacer le mail
                    MsgBox "dupont"
 
                Case "dupond@gmail.com"
                   myMail.Move BoitedeRecep.Folders("Test2")
                   MsgBox "dupond"
 
                Case Else
                    y = y + 1
           End Select
 
        End If
 
        x = x + 1
 
    Next myItem
 
    Set BoitedeRecep = Nothing
    Set myItem = Nothing
    Set myMail = Nothing
 
    MsgBox x & " " & y
 
End Sub

J’ai ajouté un dossier ‘Macro -TriMail’ avec des sous-dossiers Test1, Test2
comme le montre la capture Image2

Je souhaiterais modifier la macro, mais je ne vois pas comment modifier le code VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mymail.Move BoitedeRecep.Folders

Quelqu’un aurait-il une idée ?

Merci pour toute aide apportée.

Cordialement.

[joe.levrai]

Bonjour,

descendre dans l'arborescence, c'est comme descendre un escalier de "folders"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mymail.Move BoitedeRecep.Folders("Macro -TriMail").Folders("Test2")

[ExcelTastic]

Bonjour,

Juste une question pour ma culture personnelle, pourquoi le faire en VBA alors qu'on peut utiliser des règles ?

A+

[joe.levrai]

Bonjour,

à mon avis, c'est un pur test de sa part.

S'il doit appliquer 50 règles différentes, ou les modifier, c'est vite casse-pied. Sans parler de la limite des règles (de mémoire 256ko de rédaction)