Протокол MAPI over HTTP

[Mishko78]

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

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

[Stilet]

Какая компонента подойдет для этих целей?

А в WinAPI по факту компонент нет. Тебе точно WinAPI нужно?

[waleri]

Проще всего наверно через Outlook.
Спецификация протокола здесь: https://msdn.microsoft.com/en-us/lib...exchg.80).aspx

@Stilet
Смотря что называть компонентами.
Например COM - Component Object Model.

[Mishko78]

Наш админ сказал, что протокол MAPI over HTTP. Я имею ввиду компоненты, например, Indy или другие.

Пробовал с помощью IMAP4 Indy. Прерывается соединение по тайм ауту.

Читаю про MAPI
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx
http://uinc.ru/articles/13/

Где то еще можно почитать?

Вы имеете ввиду Outlook компоненты в Делфи? А если почтовый ящик не привязан к Outlook?

[Stilet]

Например COM - Component Object Model.

Ну да. Согласен.

Я имею ввиду компоненты, например, Indy или другие.

А почему ты в эту ветку тему втулил тогда? Тебе Делфи всетки нужен?

[Mishko78]

Да Делфи...есть ли компоненты для цели, указанной в теме вопроса?

[Stilet]

Ну тогда тему переношу.

Насчет компонент не могу так сказать, не очень понимаю что имел ввиду твой админ... over HTTP... Имеется ввиду, что вы там через прокси сидите, или как?
Так то ты на правильный компонент набрел: IMAP4 Indy
Лично я других в Делфи не знаю.

[Mishko78]

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

[Stilet]

Да через прокси.

Тогда для IdIMAP41 нужно в его свойствах настроить Проксик )

[Mishko78]

Сообщение от Stilet

Тогда для IdIMAP41 нужно в его свойствах настроить Проксик )

Вы имеете ввиду host и port?