письма от Gmail
function TForm1.upmessage: Longint; var exp:string; position,p:Integer; msCount,i,ii,c:Integer; MessPart:TIdMessagePart; begin try IdPOP31.Connect; msCount:=IdPOP31.CheckMessages; if msCount>0 then begin for i:=1 to msCount do begin IdMessage1.Clear; //IdMessage1.ContentType:='multipart/mixed'; // IdMessage1.ContentType:='text/plain'; IdPOP31.Retrieve(i,IdMessage1); lbl1.Cap...
Date: Thu, 17 Jan 2013 17:35:13 +0600. Message-ID: <CAJ-P0tSpYL0-ENyf= qgGXWfhUu8XF7_o5hZsm4Lire32eYP xDg@mail.gmail.com> Subject: test ...