Synapse-POP3Send-Attachment
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
exdatis · 2012-07-28 10:46

Hi!
I use Synapse, 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.

----------------------------------------------------------------------
exdatis · 2012-07-29 10:59

Hi!
I found this one:
http://www.ehow.com/how_2041574_decode-email-mime-format.html
Regards!