inhalt einer mail auslesen?

[ghost007]

Hallo
,wie kann ich mit der indy komponente (POP3) den inhalt einer email auslesen?

[SirThornberry]

es fehlen einige Informationen. Hast du die Mail bereits als Datei vorliegen? Oder in welcher Form liegt die Mail vor? Oder willst du die Mail noch abfragen.
Mit den von dir gegeben Informationen kann ich nur auf die Komponenten TIdPop3 und TIdMessage verweisen.

[ghost007]

also, die mail liegt immer noch auf dem POP3 Server.
Ich kann auch shcon viele datein auslesen(Betreff, Absender, Empfänger, etc.)
außer dem inhalt ...

[OlloSoft]

Hi ghost007,
hier ein Beispiel Code, der Header und Body der 1. Mail, die auf dem POP3-Server liegt, in ein Memo-Control schreibt.

In deinem Falle ist die Property NoDecode wichtig.

Delphi-Quellcode:

procedure TForm1.btnClick(Sender: TObject);
begin
  Msg.NoDecode := True; // !

  Pop3.Connect;
  try
    if POP3.CheckMessages > 0 then
    begin
      Pop3.Retrieve(1, Msg);

      Memo1.Text := Msg.Headers.Text;      // Header
      Memo1.Lines.Add('');                 // Die Leerzeile zwischen Header und Body
      Memo1.Lines.AddStrings(Msg.Body);    // Body
    end;
  finally
    Pop3.Disconnect;
  end;
end;

Ich hoffe, das hilft.
Ollo

[Mavarik]

Schau Dir doch mal das MailClient Beispiel an...

Delphi-Quellcode:

  for intIndex := 0 to Pred(Msg.MessageParts.Count) 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;

CU Frank