BorlandTalk.com

Andrea · Guest

Hello!
I am trying to get a message from a pop3 server and display it to the user.
I have problems showing the body of certain messages, I think when they are
in mime multipart.
Here is the code I use:

procedure TForm1.scarica_messaggio_selezionatoExecute(Sender: TObject);

var i:integer;

begin

richedit1.clear;

msg.clear; //msg:tidmessage

//retrieve the message selected in a listview

pop3.Retrieve(msglist.itemindex+1,msg);

//if there is no body process messageparts

if msg.Body.text='' then

begin

for i:=0 to msg.MessageParts.Count-1 do

begin

if msg.MessageParts.Items[i] is tidtext then

richedit1.lines.addstrings(tidtext(msg.MessageParts.Items[i]).body);

end;

end

else

richedit1.Lines:=msg.Body;

end;

With this code, certain messages are downloaded and I see only

this message is in multipart mime format (or something similar).

Thanks for your help