Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Сети > Сохранение писем.


Автор: wadas 25.1.2010, 14:17
Здравствуйте. Подскажите как вывести в мемо тело письма. Отправляю себе на почтовый ящик письмо, где просто написано "12345". Подключаюсь, проверяю, но в мемо ничего не вносится. Почему так? Подскажите.
Код

     if pop.Connected then
    begin
     for i:=1 to pop.CheckMessages do
    begin
     IdMessage1 := TIdMessage.Create(nil);
    try
    if client.CheckMessages = 0 then Exit;
     IdMessage1.NoDecode := false;
     pop.Retrieve(i,IdMessage1);
    Mmo1.Lines.AddStrings(IdMessage1.Body); 
   finally
     IdMessage1.Clear;

Автор: Akella 28.1.2010, 12:37
А ты уверен, что письмо получаешь из ящика в свою программу?

Автор: Snowy 28.1.2010, 18:42
Цитата(wadas @  25.1.2010,  14:17 Найти цитируемый пост)
for i:=1 to pop.CheckMessages do
for i:=0 to pop.CheckMessages-1 do

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)