[Mishko]

Уважаемые профи! Подскажите где можно почитать или найти код соединения с почтовым ящиком по протоколу MAPI over HTTP

Мне надо читать входящие сообщения и обрабатывать вложения заархивированные/незаархивированные. Какая компонента подойдет для этих целей?

[lmikle]

Я так понимаю, что имелся в виду IMAP. MAPI - это API для работы с почтой. Даже при этом не совсем понятен вопрос. Если ты повесишь почтовый сервер на 80 порт, то будешь обращаться к нему по этому порту (типа HTTP). Т.е. стандартный компонент, например TIdIMAP тебя вполне устроит. Если сервер не твой, то где-то в инете надо просто поднять машинку с netcat (nc), которая будет транслировать HTTP в IMAP, соотв. ты обращаешься к этой машинке по 80 порту, а она все транслирует на почтоый сервак по правильному порту. в этом случае решение точно такое-же, TIdIMAP настроенный на 80 порт.
Ну или я совсем вопрос не понял.

[Mishko]

Соединение идет через прокси. На 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;

[lmikle]

Либо по этомк адресу никого нет, либо FW не пропускает.
Код выглядит нормально...