Показать сообщение отдельно
  #3  
Старый 28.09.2015, 15:12
Mishko Mishko вне форума
Прохожий
 
Регистрация: 28.08.2015
Сообщения: 28
Версия Delphi: Delphi XE5
Репутация: 10
По умолчанию

Соединение идет через прокси. На Connect возникает ошибка "Socket Error # 10060
Connection timed out". Подскажите что неправильно?

Код:

Код:
with IdIMAP41 do
begin
  Host := 'elc***.ru';
  UserName := 'm.mik*****';
  Password := '*****';
  Port := 443{};
  IOHandler := SslSocket;
  UseTLS := utUseImplicitTLS;

 try
   Connect;
   SelectMailBox('INBOX');
   i:= MailBox.TotalMsgs;
   IdIMAP41.Retrieve(i, Msg); //забрали письмо
   Msg.MessageParts.CountParts; //разобрали на запчасти
    for J:= 0 to Msg.MessageParts.Count-1 do //на случай, если прицеплен не один файл
    begin
     if (Msg.MessageParts.Items[j] is TIdAttachment) then
     begin
     TIdAttachment(Msg.MessageParts.Items[j]).SaveToFile(TargetDir+'\'+TIdAttachment(Msg.MessageParts.Items[j]).FileName);
     end;
    end;

  finally
    Disconnect;
  end;
end;
Ответить с цитированием