Indy TIdPOP3 corp du mail

Question

Je cherche a récupérer le copr d'un mail a l'aide du composant TIdPOP3 de Indy mais cela ne fonctionne pas correctement... Les pieces jointes sont bien récupérées mais le text n'est récupéré que si le mail contient une piece jointe... Sinon il n'affiche rien!!!

Voici la procedure:

for intIndex := 0 to Pred(Msg.MessageParts.Count)-1 do
      begin
         if (Msg.MessageParts.Items[intIndex] is TIdAttachment) then
            begin //general attachment
               pnlAttachments.visible := true;
               li := lvMessageParts.Items.Add;
               li.ImageIndex := 8;
               li.Caption := TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename;
               li.SubItems.Add(TIdAttachment(Msg.MessageParts.Items[intIndex]).ContentType);
            end
         else
            begin //body text
               if Msg.MessageParts.Items[intIndex] is TIdText then
                  begin
                     Memo1.Lines.Clear;
                     Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[intIndex]).Body);
                  end;
            end;
      end;

voila, si quelqu'un peut m'aider....
merci d'avance!

Bombela · Answer

Moi aussi j'ai la même merde.

BOMBELA

claudecg · Answer

Je pense que le Memo.clear n'est pas bien placé il faudrait le placer avant for intIndex := 0 to Pred

Indy TIdPOP3 corp du mail

2 réponses

Votre réponse

Discussions similaires