Показать сообщение отдельно
  #1  
Старый 11.09.2018, 20:04
Pcrepair Pcrepair вне форума
Новичок
 
Регистрация: 20.01.2015
Сообщения: 52
Версия Delphi: Pascal
Репутация: 10
По умолчанию INDY, IMAP, вложения в письмо

Добрый день. Обычно у всех вопрос как получить вложения в письмо.
но мне нужно все наоборот - не загружать вложения. не нужны.
текущий код предусматривает загрузку всего письма с последующей передачей на обработку :

Код:
          IMAP.RetrieveAllHeaders(IMAP.MailBox.MessageList);
          aMsgCnt:=IMAP.MailBox.MessageList.Count;

          if (aMsgCnt > 0) then
          begin

            for I := aMsgCnt downto 1 do
            begin
              if aRetrMail then
              begin                                 (*retrieve letter*)
                Msg.Clear;
                fStream.Clear;
                IMAP.Retrieve(I,Msg);

                Msg.SaveToStream(fStream);
                fStream.Position:=0;
                Lst2.LoadFromStream(fStream);
                Lst1.Add('<rowmail>');         (*ROW mail text*)
                Lst1.Add(Lst2.Text);
                Lst1.Add('</rowmail>'+sLineBreak);
              end;
            end;

            aList.Assign(Lst1);
          end;

Вопрос : нет ли возмжно что то настроить в Msg(TIdMessage) что бы вложения не грузились с сервера
Ответить с цитированием