Welcome, Guest
Username: Password: Remember me
Components and Libraries for Networking Development, discussions, problems and suggestions
  • Page:
  • 1

TOPIC:

Synapse-POP3Send-Attachment 12 years 3 months ago #2345

  • ExDatis
  • ExDatis's Avatar Topic Author
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 110
  • Thank you received: 9
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. :S
Some useful link, suggestion, example?
Thank you.
Regards.

Please Log in or Create an account to join the conversation.

Last edit: by ExDatis.

Synapse-POP3Send-Attachment 12 years 3 months ago #2346

  • ExDatis
  • ExDatis's Avatar Topic Author
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 110
  • Thank you received: 9
The following user(s) said Thank You: Konstantinos Papadoulas

Please Log in or Create an account to join the conversation.

  • Page:
  • 1