Suppression automatique du spam d'outlook vers yahoo [Résolu]

[locweb]

Bonjour,
j'ai un compte yahoo, dont le filtre antispam est une vraie passoire.
J'utilise outlook qui charge les mails sur yahoo, et en laisse une copie sur le serveur, car en déplacement j'utilise outlook, et la bte de réception est pleine de pourriels (90/jour...), je perds du temps à les éliminer.
Le filtre antispam d'outlook étant plus efficace, je voudrais créer une macro qui efface du serveur yahoo à ma demande tous les messages qui sont dans le dossier courrier indésirable, un peu comme la fonction outlook qui vide sur le serveur les éléments qui sont dans le dossier éléments supprimés.
Je pourrais transférer manuellement les messages du dossier courrier indésirable vers éléments supprimés, mais c'est fastidieux, une macro me semblerai + fonctionnelle.
Merci pour vos idées et votre aide.

[Dolphy35]

Salut,

pas besoin de macro, tu peux paramétrer Outlook qui permet de faire cela, regarde le tuto de Heureux-Oli sur la config compte Yahoo http://heureuxoli.developpez.com/off...ook/yahoo/#LII
Dans les paramètres supplémentaires -> onglet Options avancées tu as une options Supprimer du serveur après avoir été supprimé du dossier Éléments supprimés.

il te suffit de gérer cela en interne dans Outlook et tout suit sur le serveur Yahoo!


Dolphy

[locweb]

Bonjour,
si tu lis bien ma question, je sais le faire en interne sur outlook, mais manuellement, et cela fonctionne.
Cependant, il faut faire 7 manips successives, je recherche donc une macro qui ferait ces 7 manips en appuyant que sur un seul bouton, et ça, je ne sais pas faire. Avant les macros, c'était simple, il enregistrait les manips, et traduisait tout cela automatiquement dans son langage, maintenant, il faut connaitre le vba.
Voici la liste des manips:

Ouvrir le dossier courrier indésirable
Sélectionner tout (ctrl A)
Copier (Ctrl C)
Ouvrir le dossier éléments supprimés
Coller (Ctrl V)
Vider le dossier éléments supprimés
Envoyer/Recevoir

Si tu sais faire tout cela en VBA, bravo, car moi je n'y connais rien.
Cordialement.

[Dolphy35]

Salut,

J'ai bien lu ta question !

je ne vois pas les 5 manips successives de plus pourquoi faire une macro lorsqu' Outlook peut le faire.


Dolphy

[locweb]

Bonjour,
je viens de rééditer mon message en les précisant.

[Dolphy35]

Salut,

Il y a plus simple, sur ton dossier Courrier indésirable tu réalise un clic droit et tu sélectionne Vider le dossier "Courrier indésirable", ensuite dans éléments supprimés tu fais la même manip

Dolphy

[Dolphy35]

re,

voici une macro qui permet de vider l'ensemble du dossier Courrier indésirable puis du dossier Éléments supprimés

Code :

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
Sub EraseDossier()
'---------------------------------------------------------------------------------------
' Procédure : EraseDossier
' Auteur    : Dolphy35 - http://dolphy35.developpez.com/
' Date      : 14/05/2008
' Détail    : Effacement de l'ensemble d'un dossier
'---------------------------------------------------------------------------------------
'
'Déclarations des objets et variables
    Dim objOutlook As New Outlook.Application
    Dim objNSpace As namespace
    Dim objMAPIDossier1 As MAPIFolder
    Dim objMAPIDossier2 As MAPIFolder
    Dim objMail As Outlook.MailItem
 
    'Instance des objets
    Set objNSpace = objOutlook.GetNamespace("MAPI")
    Set objMAPIDossier1 = objNSpace.Folders("Dossiers personnels").Folders("Courrier indésirable")
    Set objMAPIDossier2 = objNSpace.Folders("Dossiers personnels").Folders("Éléments supprimés")
    'Première boucle pour supprimer le dossier
    For I = 1 To objMAPIDossier1.items.Count
        Set objMail = objMAPIDossier1.items(1)
        objMail.Delete
    Next I
    'Seconde boucle pour vider le dossier Éléments supprimés
    For I = 1 To objMAPIDossier2.items.Count
        Set objMail = objMAPIDossier2.items(1)
        objMail.Delete
    Next I
    'Vide des instances
    Set objNSpace = Nothing
    Set objMAPIDossier1 = Nothing
    Set objMAPIDossier2 = Nothing
    Set objMail = Nothing
End Sub

Dolphy

[locweb]

Super,
cela fonctionne,
merci beaucoup.
Est ce que vous pouvez ajouter une ligne de code supplémentaire pour la fonction envoyer /recevoir ?

J'ai essayé SendKeys string ({F9}) mais j'ai eune erreur de syntaxe.

[Dolphy35]

re,

Ne fonctionne que sous Outlook 2007 (pour la fonction Envoyer/recevoir)

Code :

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
Sub EraseDossier()
'---------------------------------------------------------------------------------------
' Procédure : EraseDossier
' Auteur    : Dolphy35 - http://dolphy35.developpez.com/
' Date      : 14/05/2008
' Détail    : Effacement de l'ensemble d'un dossier
'---------------------------------------------------------------------------------------
'
'Déclarations des objets et variables
    Dim objOutlook As New Outlook.Application
    Dim objNSpace As namespace
    Dim objMAPIDossier1 As MAPIFolder
    Dim objMAPIDossier2 As MAPIFolder
    Dim objMail As Outlook.MailItem
 
    'Instance des objets
    Set objNSpace = objOutlook.GetNamespace("MAPI")
    Set objMAPIDossier1 = objNSpace.Folders("Dossiers personnels").Folders("Courrier indésirable")
    Set objMAPIDossier2 = objNSpace.Folders("Dossiers personnels").Folders("Éléments supprimés")
    'Première boucle pour supprimer le dossier
    For I = 1 To objMAPIDossier1.items.Count
        Set objMail = objMAPIDossier1.items(1)
        objMail.Delete
    Next I
    'Seconde boucle pour vider le dossier Éléments supprimés
    For I = 1 To objMAPIDossier2.items.Count
        Set objMail = objMAPIDossier2.items(1)
        objMail.Delete
    Next I
    'Permet d'exécuter la fonction Envoyer/Recevoir, True permet d'afficher la boîte de dialogue
    'Disponible seulement sous Outlook 2007
    objNSpace.SendAndReceive True
    'Vide des instances
    Set objNSpace = Nothing
    Set objMAPIDossier1 = Nothing
    Set objMAPIDossier2 = Nothing
    Set objMail = Nothing
End Sub

Dolphy

[locweb]

Merci,
tout marche parfaitement.

[locweb]

Bonjour,
j'ai acheté un nouvel ordi avec win 7x64, sur lequel j'avais installé office 2010, n'étant pas satisfait de le dernière version d'outlook, je l'ai désinstallé, pour remettre office 2007.
Etant très satisfait de la macro erase dossier que vous aviez fait en 2008, je l'ai réinstallée, mais j'ai un message d'erreur "projet ou biblio introuvable", avec le I mis en évidence.
Dans l'onglet outils, l'option référence n'est pas active avec VBA outlook, mais elle l'est avec VBA word, ce qui est bizarre.
Sous VBA Word, c'est la librairie 12.
J'ai essayé de réinstaller office 2007 en vérifiant que le VBA est bien sur le DD, mais cela ne change rien.
Merci de me donner une piste pour solutionner le problème, car je n'ai rien trouvé sur le net concernant ce problème précis.