Discussion :

[Guiggs]

Bonjour,

J'ai créer un petit programme permettant de déplacer les mails du dossier "Boîte de Réception" vers un dossier "TEST" et comptant le nombre d'éléments dans le dossier "TEST".

Mais deux problèmes se posent :
- le programme me déplace seulement une partie de mes mails ;
- suite au premier problème le compteur n'affiche pas le bon résultat ;

Pourriez-vous m'aider à régler ce petit soucis ?!

PS : Peut-on rajouter dans mon programme une ligne me permettant de déplacer que les mails d'une adresse fixe donnée ?!

Cordialement,
Guiggs

[BlueMonkey]

Bonjour,

Quelques infos à évaluer avant d'aller plus loin :
Au niveau d'Outlook, il est possible de créer des Règles qui s'exécutent sur un dossier, à réception d'un nouveau mail, de mettre des conditions à un déplacement (ex : pour un mail de tel expéditeur ranger dans tel dossier).

Et si les règles outlook ne fond pas l'affaire, VBA existe aussi sous Outlook

[Guiggs]

Bonjour,

Oui pour la règle je sais mais il y a pas la condition pour déplacer les mails tous les jours à 20h (par exemple).

Voilà pourquoi je voudrais le faire avec une macro ?!

[BlueMonkey]

Bonjour,

A partir des règles tu peux configurer un déplacement de mails vers un autre dossier.
Pour ce qui est de la planification, tu peux utiliser :
- créé la règle en la configurant comme déactivée
- créer un rendez-vous périodique dans Outlook.
- créer dans VBA un gestionnaire de notification de rendez-vous pour activer la tâche à l'heure de la notification.

exemple :

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
Const ObjetDuRendezVous As String = "Deplace Mes Dossiers"
Const NomDeRegletDeDeplacement As String = "Ma Reglet De Deplacement"
 
Private Sub Application_Reminder(ByVal Item As Object)
    'Attend une notification de rendez-vous (pas une tâche)
    If Item.MessageClass <> "IPM.Appointment" Then
      Exit Sub
    End If
 
    If Item.Subject = ObjetDuRendezVous Then
        Dim MaRegle As Outlook.Rule
        Set MaRegle = Application.Session.DefaultStore.GetRules.Item(NomDeRegletDeDeplacement)
        With MaRegle
            .Enabled = True
            .Execute ShowProgress:=True
            .Enabled = False
            'olRules.Save
        End With
 
        Set MaRegle = Nothing
    End If
End Sub

A+
Note : Fonctionne sur XLS2010, pas testé sur version antérieure.