Extraire pièce jointe outlook

A

Anto35200

XLDnaute Occasionnel

• 25 Mars 2015

• #31

Re : Extraire pièce jointe outlook

Bonjour Yaloo,

Cà marche nickel.
Maintenant je souhaite archiver les mails du sous-dossier PAYS de la Boite de Réception dans un autre sous-dossier ARCHIVAGE, après le traitement de la macro.

Ton code suivant, ne m'archive pas tous les mails, il ne traite qu'une partie des mails. Je ne sais pas pourquoi.

Suite:
'On passe à la pièce jointe suivante
Next y
End If
'Déplacement du mail dans un autre Dossier
Set DossierArchives = Fld.Folders("Archives")
OLmail.Move DossierArchives
'On passe au mail suivant
Next OLmail
End If
'On passe au sous-répertoire suivant
SearchFolders SousDossier
Next SousDossier
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 25 Mars 2015

• #32

Re : Extraire pièce jointe outlook

Bonjour plimosin,

Alors là ! c'en est une bien bonne je ne comprends pas d'où ça vient
Je pensais que ça venait du fait qu'il y avait ou non des pièces jointes ou que ça allait trop vite et qu'il fallait une temporisation.
Mais non d'après mes tests, ce ne sont pas toujours les mêmes mails qui restent dans le répertoire initial.
Je ne vois pas du tout d'où ça peut venir

Chez toi, est-ce que toutes tes mails ont des pièces jointes
Lorsque tu lances la macro une fois, si tu remets les mails déplacés dans le répertoire initial et que tu relances la macro, est-ce que ce sont les mêmes mails qui sont déplacés
Si tu lances la macro plusieurs fois, est-ce que (au bout de plusieurs fois) tous tes mails sont déplacés

A te relire

Martial

 

Vote positif 0 Vote négatif

A

Anto35200

XLDnaute Occasionnel

• 25 Mars 2015

• #33

Re : Extraire pièce jointe outlook

Tous les mails du sous-dossier PAYS ont tous une pièce jointe. Pour mon cas, j’ai 12 mails au total.
Je lance la 1er fois la macro : 6 mails sur 12 sont traités.
Je lance une 2nd la macro : 3 mails de plus sont traités.
Je lance une 3è la macro : les 3 derniers mails.
En tout, il faut que j’exécute 3 fois la macro pour que tous les mails soient transférés dans ARCHIVAGE.

Mais quelque fois, je dois lancer 4 fois la macro :
1er fois : 6 mails
2nd fois : 3 mails
3è fois : 2 mails
4è fois : 1 mail

Bizarre.. .bizarre…

Est-ce qu’il y a un rapport avec çà ??

 

Pièces jointes

• Message Outlook.png

  20.4 KB · Affichages: 41
• Message Outlook.png

  20.4 KB · Affichages: 47
• Message Outlook.png

  20.4 KB · Affichages: 46

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 25 Mars 2015

• #34

Re : Extraire pièce jointe outlook

Re,

Tu as ce message à quel moment ?
Même si je ne pense pas que cela vienne de là. Car je n'ai pas ce message et j'ai le même problème que toi.
Est-ce que toutes les pièces jointes sont copiées dès le premier lancement ou est-ce que les pièces jointes sont copiées en même temps que le déplacement du mail ?

 

Vote positif 0 Vote négatif

A

Anto35200

XLDnaute Occasionnel

• 25 Mars 2015

• #35

Re : Extraire pièce jointe outlook

J'ai ce message dès que je lance la macro.
Au message, je peux choisir "Autoriser l'accès pour 1 min, 2 min, 5 min ou 10 minutes, en général je mets 10 minutes".

Toutes les pièces jointes ne sont pas copiées dès le 1er lancement.
Il faut que je lance au moins 4 fois pour que toutes les pièces jointes soient copiées.

Les pièces jointes sont bien copiées en même temps que le déplacement du mail.

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 25 Mars 2015

• #36

Re : Extraire pièce jointe outlook

Donc c'est un problème de lecture du mail, c'est bien ça réduit les recherches.
J'y regarde.

A+

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 25 Mars 2015

• #37

Re : Extraire pièce jointe outlook

Bonjour Pilmosin, Martial

J'ai pas suivi votre truc, mais pour le message d'alerte, j'avais répondu dans cette discusion.

https://www.excel-downloads.com/threads/boite-de-validation-lors-denvoi-de-mail-par-excel.198275/

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 25 Mars 2015

• #38

Re : Extraire pièce jointe outlook

Bonjour Michel,

Content de te croiser, ton fichier a l'air bien, mais je ne peux le tester sur mon PC, je n'ai pas le message décrit par Plimosin.

A+

 

Vote positif 0 Vote négatif

W

weyb

XLDnaute Nouveau

• 5 Décembre 2016

• #39

bjr

post très intéressant, merci à tous les contributeurs !!
j'avais cependant une question :
à quoi sert "x" et "x=x+1" dans l'affaire ?

bien cordt

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 6 Décembre 2016

• #40

Bonsoir weyb,

Le x = x + 1 ne sert strictement à rien dans ce cas, à l'époque j'étais parti d'une macro de développez.com qui avait cette ligne que je n'ai pas supprimé.

A+

Martial

 

Vote positif 0 Vote négatif