Anhänge von POP3-Nachrichten

[raffo]

Der Quellcode oben ist schon mal gut, hier fehlt noch "idText" um den Nachrichtentext zu bekommen:

Delphi-Quellcode:

// eMail analysieren 
   for iMp := 0 to aMsg.MessageParts.Count-1 do
       begin 
       if aMsg.MessageParts.Items[iMp] is tIdAttachment then
          begin 
          // Dateinamen holen 
          s := (aMsg.MessageParts.Items[iMp] as tIdAttachment).Filename; 
          ...
          ...

    if aMsg.MessageParts.Items[iMp] is tIdText then
       begin
       s := (aMsg.MessageParts.Items[iMp] as tIDText).Body.Text;
       body.text:=s;
       end;

...
...