[yurayura]

что на yandex, что на mail.ru не конектиться
пробовал менять Port на 110, Host на pop3.mail.ru, pop.yandex.ru, pop3.yandex.ru

добавил ConnectTimeout

в результате либо висит и говорит Connection time out
либо закрывается и говорит Gracefuly closed connection
в блок if не проходит

Код:

1 2 3 4 5 6 7 8 9 10 11

Memo1.Clear;  IdPOP31.AuthType:=patUserPass;  IdPOP31.Host:='pop.mail.ru';  IdPOP31.Username:='mypop3testmail2014@mail.ru';  IdPOP31.Password:='testpassword';  IdPOP31.Port:=995;  IdPOP31.ConnectTimeout:=10000;  try    IdPOP31.Connect;    if IdPOP31.Connected then    begin

в чем проблема?

[Freeman]

Крупные порталы вроде запретили POP3/SMTP без SSL. Терь только с шифрованием можно. Поищи, на форуме должны быть темы.

[yurayura]

Добавил SSL, теперь конектится

флаги не видит, уже нагуглил, что на IMAP надо переходить
оказывается что в каждом письме может быть очень много частей

Поиск рулит, к сожалению на поисковиках а не по форуму.
полезный ресурс по этим компонентам
http://www.indyproject.org/docsite/h...e=TIdPOP3.html

В общем этот код работает.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

IdPOP31.AuthType:=patUserPass; IdPOP31.Host:='pop3.mail.ru'; IdPOP31.Username:='mypop3testmail2014@mail.ru'; IdPOP31.Password:='testpassword'; IdPOP31.Port:=995; IdPOP31.ConnectTimeout:=10000; IdSSLIOHandlerSocketOpenSSL1.Host:=IdPOP31.Host; IdSSLIOHandlerSocketOpenSSL1.Port:=IdPOP31.Port; IdSSLIOHandlerSocketOpenSSL1.Destination:=Format('%s:%d',[IdPOP31.Host,IdPOP31.Port]); IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method:=sslvTLSv1; IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode:=sslmUnassigned; IdPOP31.IOHandler:=IdSSLIOHandlerSocketOpenSSL1; IdPOP31.UseTLS:=utUseImplicitTLS; try   IdPOP31.Connect;   if IdPOP31.Connected then   begin     Memo1.Lines.Add('connected');     MessageCount:=IdPOP31.CheckMessages;     Memo1.Lines.Add('Message Count='+IntToStr(MessageCOunt));     for i:=1 to MessageCount do     begin       IdPOP31.RetrieveHeader(i,IdMessage1);       Memo1.Lines.Add(IdMessage1.Subject);       if (mfSeen in IdMessage1.Flags ) then         Memo1.Lines.Add('Seen');         if (not (mfSeen in IdMessage1.Flags)) then         begin           Memo1.Lines.Add('New');           IdPOP31.Retrieve(i,IdMessage2);           Memo1.Lines.AddStrings(IdMessage2.Body);           PartsCount:=IdMessage2.MessageParts.Count;//           Memo1.Lines.Add('Parts Count='+IntToStr(PartsCount));           for j:=0 to PartsCount-1 do           begin             if (IdMessage2.MessageParts.Items[j].PartType=mptAttachment) then             begin               Attachment:=IdMessage2.MessageParts.Items[j] as TIdAttachmentFile;               Memo1.Lines.Add(Attachment.FileName);               Attachment.SaveToFile(Attachment.FileName);             end;           end;                       end;     end;   end; Except   on E:Exception do     ShowMessage(E.Message); end; if IdPOP31.Connected then   IdPOP31.Disconnect;