Hi!
I use Synapse(acoliveira and sternas helped me), and with POP3Send receive headers without problem, but...
the part of source code:
mime:= TMimeMess.Create;
pop.Stat;
if pop.Uidl(0) then
full_list.Assign(pop.FullResult)
else
full_list.Clear;
for i := 1 to full_list.Count do
begin
pop.Retr(i);
mime.Clear;
mime.Lines.Assign(pop.FullResult);
mime.DecodeMessage;
Memo1.Lines.Append(mime.Header.From);
Memo1.Lines.Append(mime.Header.Subject);
Memo1.Append('
');
//sub part
j:= mime.MessagePart.GetSubPartCount;
if j > 0 then
begin
mime_part:= TMimePart.Create;
for k := 0 to j - 1 do
begin
mime_part:= mime.MessagePart.GetSubPart(k);
mime_part.DecodePart;
Memo2.Lines.Add('
');
Memo2.Lines.Append(mime_part.Primary + ' ; ' + mime_part.Secondary);//TEXT; PLAIN, HTML...
Memo2.Lines.Add('
');
SetLength(s,mime_part.DecodedLines.Size);
mime_part.DecodedLines.Read(s[1],length(s));
Memo2.Lines.Add(s);
end;
end
else
Memo2.Lines.AddStrings(mime.MessagePart.Lines); //msg
____________________________
How to recognize Attachment? Create link to file(for download)? I tried to find some useful example but unssuccesfully.
Some useful link, suggestion, example?
Thank you.
Regards.