Discussion :

[JP.NUAGE]

Bonjour à tous

Pour récupérer les pièces jointes d'un mail, je me suis (fortement) inspiré de http://http://delphi.developpez.com/faq/?page=indy_idpop3#picesjointeswithindy

La lecture des mail se passe parfaitement

Pour la récupération je dois ajouter IdAttachment et IdText et là j'ai une erreur : ils sont inconnus.

Je travaille avec Delphi 7 en CLX. J'ai fait une recherche sur mon disque : rien

J'ai trouvé une discussion (Rayek) d'il y a deux ans stipulant qu'il faut installer INDY10.

Est-ce toujours la seule solution ?

[skywaukers]

Bonjour,

voici un petit bout de code qui devrait fonctionner :

Code :

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

1
2
3
4
5
for i := 0 to pred( Mel.MessageParts.Count) do
begin
  if ( Mel.MessageParts.Items[i].ClassName = 'TIdAttachment') then
    TIdAttachment( Mel.MessageParts.Items[ i]).SaveToFile( Chemin\Nomfichier);
end;

Mel est un TIdMessage et contient donc l'e-mail récupéré.

@++
Dany

[JP.NUAGE]

Effectivement, je n'ai plus aucune erreur de compilation. Merci

En revanche, pas de pièces jointes. Je récupère bien tous les mails (j'ai contrôlé), mais bien que certains aient de pièces jointes, MessageParts.Count est toujours à zéro.

Est-ce que le fait d'avoir par ailleurs déjà récupéré les pieces peut jouer ?

[skywaukers]

Bonsoir,

que veux-tu dire par :

Est-ce que le fait d'avoir par ailleurs déjà récupéré les pieces peut jouer ?

Si il s'agit du même TIdMessage, alors non, il doit garder la pièce jointe, même après sauvegarde.
Regarde dans les sources de ton e-mail, s'agit-il bien d'un e-mail multiparts ? Normalement oui...
Ah tu essayé de l'ouvrir avec l'application exemple de Indy? (je sais plus comment elle s'appelle (mail ou mailclient), La pièce jointe apparait-elle?

Voilà, ça ne va surement pas t'aider beaucoup, mais comme ça je ne vois ce qui pose problème.

@++
Dany

[JP.NUAGE]

Ca y est c'est résolu. Encore Merci