Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];

Вниз

INDY - атачменты...   Найти похожие ветки 

 
кондратий   (2004-01-30 18:19) [0]

не могу никак добратса до атачмента...
как это сделать.. кто-то работал с idMessage

  for intIndex := 1 to inMsgCount do
     begin
        Application.ProcessMessages;
        msg.Clear;
        POP.RetrieveHeader(intIndex, msg);
        if IsWordPresent("REPLICATION", msg.Subject,[" "]) then
        begin
          ShowMessage(IntToStr(Msg.MessageParts.Count));
          for intParts := 0 to Msg.MessageParts.Count-1 do
            if (Msg.MessageParts.Items[intParts] is TIdAttachment) then
            begin
              ShowMessage(TIdAttachment(Msg.MessageParts.Items[intParts]).Filename);
            end;
        end;
     end;


 
кондратий   (2004-01-30 18:27) [1]

Msg.MessageParts.Count всегда 0 хоть если смотрим на само письмо атач виден.


 
gogi   (2004-03-04 04:54) [2]

Дело в том, что (насколько я понял :) аттачмент нельзя увидеть, пока не загрузишь все письмо (хотя это как-то глупо ...). Попробуй вместо RetrieveHeader вызвать Retrieve.



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.031 c
3-1081233326
Иришка
2004-04-06 10:35
2004.05.02
Запрос в ADOQuery


3-1080586410
SergP
2004-03-29 22:53
2004.05.02
Запрос с max()


11-1065880939
Hamer1
2003-10-11 18:02
2004.05.02
Как экстрактировать Ресурс


1-1081885296
KyRo
2004-04-13 23:41
2004.05.02
Вопрос по CheckListBox


7-1079121286
Roksolan
2004-03-12 22:54
2004.05.02
Вывод байта в порт





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский