Discussion :

[dj_lil]

bonjour,

je n'arrive pas à récupérer les pièces jointes d'un mail sur un serveur pop.
Un bout de code :

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
IdPOP31.Host := 'pop.bidule.com';
IdPop31.Username := 'login';
IdPOP31.Password := 'password';
IdPOP31.Connect();
if IdPOP31.CheckMessages > 0 then
begin
  IdPOP31.Retrieve(IdPOP31.CheckMessages,IdMessage1);
  for i:=0 to IdMessage1.MessageParts.Count-1 do
  begin
    if (IdMessage1.MessageParts.Items[i] is TIdAttachment) then
    begin
      IdAttachment(IdMessage1.MessageParts.Items[i]).SaveToFile('c:\ujr\ujr'+IntToStr(IdPOP31.CheckMessages)+'.zip');
    end;
  end;
end;

Bien entendu, IdPOP31 est unTIdPOP3 et IdMessage1 est un TIdMessage.

Le problème est au niveau du :

Code :

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

if (IdMessage1.MessageParts.Items[i] is TIdAttachment) then

même quand le message comporte une PJ, la condition est "false". En testant le type de chaque messageParts par un

Code :

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

ShowMessage(IdMessage1.MessageParts[i].ClassName);

j'ai pu découvrir que ce sont toujours des TIdText. Je suis pourtant sûr de la présence d'une PJ.

Quelqu'un aurait-il une idée sur l'origine du problème ?

PS : Je sais pas si j'ai été très clair... Si vous voulez quelques précisions, n'hésitez pas à demander.

[skywaukers]

bonjour,

question bête : tu es sûr qu'il n'y a qu'un seul mail dans ta boite ?

@++
Dany

[dj_lil]

La question n'est pas si bête, mais oui, j'en suis certain...

[skywaukers]

bonjour,

je me souviens avoir eus des soucis avec la formulation :

Code :

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

(IdMessage1.MessageParts.Items[i] is TIdAttachment)

que j'avais avantageusement remplacé par :

Code :

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

IdMessage1.MessageParts.Items[i].ClassName = 'TIdAttachment'

Qui a fonctionné, donc je n'ai pas cherché plus loin. Mais si tu dis que Classname ne vaut jamais TIdAttachment, je ne sais pas.

@++
Dany

[dj_lil]

bern ouais, c'est ça qui m'embête.
Est-ce qu'une PJ peut être contenue directement dans le corps du message ?

[skywaukers]

c'est quel type de pièce jointe ? Je sais que OE affiche les images directement dans le mail, mais est-ce pour autant que la pj est incluse dans le texte, ou est-ce juste une interprétation de la pj, je sais pas.
Essaye peut-être avec les composant ICS, ils sont plus ardus à prendre en main, mais ils permettent un meilleurs controle.

@++
Dany

[woumpaber]

dj_lil j'ai le meme problème que toi. mais c'est surtout avec les mails venant de yahoo.ils s'agit des mail qui sont dans ma boite yahoo qui ont des pieces jointes; si je les fais suivre vers une autre boite mail, c'est la que mon programme se comporte comme si ce mail n'avait pas de pièce jointe en téléchargeant les mails de cette seconde boite. Qui peut avoir une solution?