Модераторы: Snowy, Poseidon, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Получение почты 
V
    Опции темы
Pakshin A. S.
  Дата 20.2.2006, 23:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Итак, на почтовый ящик в инете поступило n штук писем с вложенными файлами.

Вот эти письма я должен получить поочередно из программы; получить текст письма, сохранить на жестком диске вложенный файл под определенным именем, получить адрес отправителя и время получения письма на сервер. Как это реализуется? Киньте ссылки на исходники таких функций (получение нужной информации, описанной выше)...

Заранее огромное Спасибо! smile
PM   Вверх
Snowy
Дата 20.2.2006, 23:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
http://forum.vingrad.ru/index.php?act=Sear...p;#038;skipped=
Добавлено @ 23:31
Вот прямой линк на код:
http://forum.vingrad.ru/index.php?showtopi...st&p=342291
PM MAIL   Вверх
Pakshin A. S.
Дата 20.2.2006, 23:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Спасибо, буду разбираться, хотя с первого взгляда все очень просто... smile
PM   Вверх
Pakshin A. S.
Дата 21.2.2006, 22:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Я все-таки что-то не понял... Все прекрасно работает, кроме получения самого текста письма... smile Как это делать?

P. S.
Использую код Snowy из http://forum.vingrad.ru/index.php?showtopi...st&p=342291
PM   Вверх
Snowy
Дата 21.2.2006, 23:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Вот. Чуть добавил:
Код

procedure ReseiveMail(Host: string; Port: integer; User, Password: string);
var
  pop: TIdPOP3;
  m:   TIdMessage;
  mc,i: integer;
begin
  pop:=TIdPOP3.Create(nil);
  pop.Host:=Host; pop.Port:=Port;
  pop.Username:=User; pop.Password:=Password;
  try
    pop.Connect(60000);
    mc:=pop.CheckMessages;
    while mc>0 do begin
      m:=TIdMessage.Create(pop);
      pop.Retrieve(mc,m);
      Form1.Memo1.Lines.Add(m.From); // << все данные письма в полях m
      for i:=0 to m.MessageParts.Count-1 do
        with m.MessageParts do
        begin
          if items[i].ClassType=TIdAttachment then
            with TIdAttachment(items[i]) do
              try
                if FileExists(FileName) then DeleteFile(FileName);
                SaveToFile(FileName);
              except
                ShowMessage('Не удается сохранить файл');
              end;
          if items[i].ClassType = TIdText then
            with TIdText(items[i]) do
            begin
              Form1.Memo1.Lines.AddStrings(Body); // << текст здесь в Body: TStringList
            end;
        end;
      m.Free; dec(mc);
    end;
    ShowMessage('Все в порядке');
  except
    ShowMessage('Не удалось подключиться к серверу');
  end;
  pop.Free;
end;
PM MAIL   Вверх
Pakshin A. S.
Дата 21.2.2006, 23:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Так... чет не пашеть...

m.MessageParts.Count у меня тождественный 0 всегда, хотя письма почтовики берут...
PM   Вверх
Snowy
Дата 22.2.2006, 00:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Ты ж только что писал, что все работает.
При Count=0 вообще ничего не будет работать.
Я не проверял - лень сервер поднимать для теста.
Нужно оттрейсить и посмотреть, куда идет и что идет.
Еще полный текст можно получить m.Body - string.
Но там будет полный текст, включая файлы.
Кроме того. HTML текст не считается текстом - это приаттаченный html файл.
Текстом считается только plain-text.
Так что проблема может быть и в этом.
PM MAIL   Вверх
Pakshin A. S.
Дата 22.2.2006, 18:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
РАботало с самодельными письмами, отправленными самому себе... ьеперь письма отправлются через формочку в интернете. Outlook Express, к примеру, все прекрасно читает, а вот прога не видит ни приаттаченного файла, ни самого текста письма, хотя в m.Body есть полная информация, как я понимаю и по файлу и по самому письму:

Цитата

This is a MIME encoded message.

--babb14bd9c45ba3a65091c9746acd43b0
Content-Type: text/plain
Content-Transfer-Encoding: base64

CgkJCQlTdXJuYW1lIE5hbWUgLSB0ZXN0MSB0ZXN0MSAKCgkJCQlDaXR5IC0gLS0gCgoJCQkJRWR1
Y2F0aW9uYWwgaW5zdGl0dXRpb24gLSAtLSAKCgkJCQlSYXRlIC8gY2xhc3MgLSAtLSAKCQkJCQ==

--babb14bd9c45ba3a65091c9746acd43b0
Content-Type: file;
  name = "Bootfont.bin"
Content-Transfer-Encoding: base64

TWRlVBkEAAAAAQAAAQAAADQAAAA0EwAAABMAACQAAAAAAAAAAAAAAAAAAAAQAQIIEEUTAAAAAAAA
AAAAAAAAAAAAAAAAAAABAAAAfsOBpYG9mcN+AAAAAAEAAgAAAH7//9v/w+f/fgAAAAACAAMAAAAA
RO7+/v58OBAAAAAAAwAEAAAAEDh8/v58OBAAAAAAAAQABQAAABg8PP/n5xgYfgAAAAAFAAYAAAAY
PH7//34YGH4AAAAABgAHAAAAAAAAPH5+PAAAAAAAAAcACAAA/////8OBgcP/////AAAIAAkAAAAA
PH5mQkJmfjwAAAAACQAKAAD//8OBmb29mYHD//8AAAoACwAAAD4OOnL4zMzMeAAAAAALAAwAAAA8
ZmZmPBh+GBgAAAAADAANAAAAHxkZHxgYePhwAAAAAA0ADgAAAH9jf2NjY2fn5sAAAAAOAA8AAAAA
GNt+5+d+2xgAAAAADwAQAAAAgMDg+P744MCAAAAAABAAEQAAAAIGDj7+Pg4GAgAAAAARABIAAAAY
PH4YGBh+PBgAAAAAEgATAAAAZmZmZmYAAGZmAAAAABMAFAAAAH/b29t7GxsbGwAAAAAUABUAAAB+
YzA8ZmY8DMZ+AAAAFQAWAAAAAAAAAAAA/v7+AAAAABYAFwAAABg8fhgYGH48GH4AAAAXABgAAAAY
PH4YGBgYGBgAAAAAGAAZAAAAGBgYGBgYfjwYAAAAABkAGgAAAAAAGAz+DBgAAAAAAAAaABsAAAAA
ADBg/mAwAAAAAAAAGwAcAAAAAAAAwMDA/gAAAAAAABwAHQAAAAAAJGb/ZiQAAAAAAAAdAB4AAAAA
EBA4OHx8/v4AAAAAHgAfAAAAAP7+fHw4OBAQAAAAAB8AIAAAAAAAAAAAAAAAAAAAAAAgACEAAAAw
eHh4MDAAMDAAAAAAIQAiAAAAZmZmJAAAAAAAAAAAACIAIwAAAGxs/mxsbP5sbAAAAAAjACQAADAw
fMDAeAwM+DAwAAAAJAAlAAAAAADEzBgwYMyMAAAAACUAJgAAAHDY2HD63szcdgAAAAAmACcAAAAw
MDBgAAAAAAAAAAAAJwAoAAAADBgwYGBgMBgMAAAAACgAKQAAAGAwGAwMDBgwYAAAAAApACoAAAAA
AGY8/zxmAAAAAAAAKgArAAAAAAAYGH4YGAAAAAAAACsALAAAAAAAAAAAAAA4OGAAAAAsAC0AAAAA
AAAA/gAAAAAAAAAALQAuAAAAAAAAAAAAADg4AAAAAC4ALwAAAAACBgwYMGDAgAAAAAAvADAAAAB8
xtbW1tbWxnwAAAAAMAAxAAAAEDDwMDAwMDD8AAAAADEAMgAAAHjMzAwYMGDM/AAAAAAyADMAAAB4
zAwMOAwMzHgAAAAAMwA0AAAADBw8bMz+DAweAAAAADQANQAAAPzAwMD4DAzMeAAAAAA1ADYAAAA4
YMDA+MzMzHgAAAAANgA3AAAA/sbGBgwYMDAwAAAAADcAOAAAAHjMzOx43MzMeAAAAAA4ADkAAAB4
zMzMfBgYMHAAAAAAOQA6AAAAAAA4OAAAODgAAAAAADoAOwAAAAAAODgAADg4GDAAAAA7ADwAAAAM
GDBgwGAwGAwAAAAAPAA9AAAAAAAAfgB+AAAAAAAAAD0APgAAAGAwGAwGDBgwYAAAAAA+AD8AAAB4
zAwYMDAAMDAAAAAAPwBAAAAAfMbG3t7ewMB8AAAAAEAAQQAAADB4zMzM/MzMzAAAAABBAEIAAAD8
ZmZmfGZmZvwAAAAAQgBDAAAAPGbGwMDAxmY8AAAAAEMARAAAAPhsZmZmZmZs+AAAAABEAEUAAAD+
YmBkfGRgYv4AAAAARQBGAAAA/mZiZHxkYGDwAAAAAEYARwAAADxmxsDAzsZmPgAAAABHAEgAAADM
zMzM/MzMzMwAAAAASABJAAAAeDAwMDAwMDB4AAAAAEkASgAAAB4MDAwMzMzMeAAAAABKAEsAAADm
ZmxseGxsZuYAAAAASwBMAAAA8GBgYGBiZmb+AAAAAEwATQAAAMbu/v7WxsbGxgAAAABNAE4AAADG
xub2/t7OxsYAAAAATgBPAAAAOGzGxsbGxmw4AAAAAE8AUAAAAPxmZmZ8YGBg8AAAAABQAFEAAAA4
bMbGxs7efAweAAAAUQBSAAAA/GZmZnxsZmbmAAAAAFIAUwAAAHjMzMBwGMzMeAAAAABTAFQAAAD8
tDAwMDAwMHgAAAAAVABVAAAAzMzMzMzMzMx4AAAAAFUAVgAAAMzMzMzMzMx4MAAAAABWAFcAAADG
xsbG1tZsbGwAAAAAVwBYAAAAzMzMeDB4zMzMAAAAAFgAWQAAAMzMzMx4MDAweAAAAABZAFoAAAD+
zpgYMGBixv4AAAAAWgBbAAAAPDAwMDAwMDA8AAAAAFsAXAAAAACAwGAwGAwGAgAAAABcAF0AAAA8
DAwMDAwMDDwAAAAAXQBeAAAQOGzGAAAAAAAAAAAAAF4AXwAAAAAAAAAAAAAAAP8AAABfAGAAADAw
GAAAAAAAAAAAAAAAYABhAAAAAAAAeAx8zMx2AAAAAGEAYgAAAOBgYHxmZmZm3AAAAABiAGMAAAAA
AAB4zMDAzHgAAAAAYwBkAAAAHAwMfMzMzMx2AAAAAGQAZQAAAAAAAHjM/MDMeAAAAABlAGYAAAA4
bGBg+GBgYPAAAAAAZgBnAAAAAAAAdszMzHwMzHgAAGcAaAAAAOBgYGx2ZmZm5gAAAABoAGkAAAAY
GAB4GBgYGH4AAAAAaQBqAAAADAwAPAwMDAzMzHgAAGoAawAAAOBgYGZseGxm5gAAAABrAGwAAAB4
GBgYGBgYGH4AAAAAbABtAAAAAAAA/NbW1tbGAAAAAG0AbgAAAAAAAPjMzMzMzAAAAABuAG8AAAAA
AAB4zMzMzHgAAAAAbwBwAAAAAAAA3GZmZmZ8YPAAAHAAcQAAAAAAAHbMzMzMfAweAABxAHIAAAAA
AADsbnZgYPAAAAAAcgBzAAAAAAAAeMxgGMx4AAAAAHMAdAAAAAAgYPxgYGBsOAAAAAB0AHUAAAAA
AADMzMzMzHYAAAAAdQB2AAAAAAAAzMzMzHgwAAAAAHYAdwAAAAAAAMbG1tZsbAAAAAB3AHgAAAAA
AADGbDg4bMYAAAAAeAB5AAAAAAAAZmZmZjwMGPAAAHkAegAAAAAAAPyMGGDE/AAAAAB6AHsAAAAc
MDBgwGAwMBwAAAAAewB8AAAAGBgYGAAYGBgYAAAAAHwAfQAAAOAwMBgMGDAw4AAAAAB9AH4AAABz
2s4AAAAAAAAAAAAAfgB/AAAAAAAQOGzGxv4AAAAAAH8AgAAAADB4zMzM/MzMzAAAAAAQBIEAAAD+
YmB8ZmZmZvwAAAAAEQSCAAAA/GZmZnxmZmb8AAAAABIEgwAAAP5iYmBgYGBg8AAAAAATBIQAAAA+
ZmZmZmZmZv/DAAAAFASFAAAA/mJgZHxkYGL+AAAAABUEhgAAAJnbWn48flrbmQAAAAAWBIcAAAA8
ZkYGHAZGZjwAAAAAFwSIAAAAxsbO3v725sbGAAAAABgEiQAAGNb2zt7+9ubGxgAAAAAZBIoAAADm
ZmxseGxsZuYAAAAAGgSLAAAAHj5mZmZmZmbGAAAAABsEjAAAAMbu/v7WxsbGxgAAAAAcBI0AAADG
xsbG/sbGxsYAAAAAHQSOAAAAOGzGxsbGxmw4AAAAAB4EjwAAAP7GxsbGxsbGxgAAAAAfBJAAAAD8
ZmZmfGBgYPAAAAAAIASRAAAAPGbGwMDAxmY8AAAAACEEkgAAAH5aGBgYGBgYPAAAAAAiBJMAAABm
ZmZmZj4GZjwAAAAAIwSUAAAAGH7b29vbfhgYAAAAACQElQAAAMzMzHgweMzMzAAAAAAlBJYAAADM
zMzMzMzMzP4GAAAAJgSXAAAAxsbGxsZ+BgYGAAAAACcEmAAAANbW1tbW1tbW/gAAAAAoBJkAAADW
1tbW1tbW1v8DAAAAKQSaAAAA4OBgYHxmZmZ8AAAAACoEmwAAAMbGxsb23t7e9gAAAAArBJwAAAAA
wMDA/MbGxvwAAAAALASdAAAAeMzGBh4Gxsx4AAAAAC0EngAAAM7b2/v729vbzgAAAAAuBJ8AAAA/
ZmZmPjZmZucAAAAALwSgAAAAAAAAeAx8zMx2AAAAADAEoQAAAAAABHzA+MzMeAAAAAAxBKIAAAAA
AAD4zPjMzPgAAAAAMgSjAAAAAAAA/MDAwMDAAAAAADMEpAAAAAAAAHxsbGxs/sYAAAA0BKUAAAAA
AAB4zPzAzHgAAAAANQSmAAAAAAAAktZ8fNaSAAAAADYEpwAAAAAAAHiMOAyMeAAAAAA3BKgAAAAA
AADMzNz87MwAAAAAOASpAAAACBgQzMzc/OzMAAAAADkEqgAAAAAAAMzY8NjIzAAAAAA6BKsAAAAA
AAAcPCxsTMwAAAAAOwSsAAAAAAAAxu7W1sbGAAAAADwErQAAAAAAAMzM/MzMzAAAAAA9BK4AAAAA
AAB4zMzMzHgAAAAAPgSvAAAAAAAA/MzMzMzMAAAAAD8EsAAAJJJJJJJJJJJJJJJJAACRJbEAAFWq
VapVqlWqVapVqgAAkiWyAABt27Zt27Zt27Zt27YAAJMlswAAGBgYGBgYGBgYGBgYAAACJbQAABgY
GBgY+BgYGBgYGAAAJCW1AAAYGBgY+BgY+BgYGBgAAGEltgAAZmZmZmbmZmZmZmZmAABiJbcAAAAA
AAAA/mZmZmZmZgAAViW4AAAAAAAA+BgY+BgYGBgAAFUluQAAZmZmZuYGBuZmZmZmAABjJboAAGZm
ZmZmZmZmZmZmZgAAUSW7AAAAAAAA/gYG5mZmZmYAAFclvAAAZmZmZuYGBv4AAAAAAABdJb0AAGZm
ZmZm/gAAAAAAAAAAXCW+AAAYGBgY+BgY+AAAAAAAAFslvwAAAAAAAAD4GBgYGBgYAAAQJcAAABgY
GBgYHwAAAAAAAAAAFCXBAAAYGBgYGP8AAAAAAAAAADQlwgAAAAAAAAD/GBgYGBgYAAAsJcMAABgY
GBgYHxgYGBgYGAAAHCXEAAAAAAAAAP8AAAAAAAAAAAAlxQAAGBgYGBj/GBgYGBgYAAA8JcYAABgY
GBgfGBgfGBgYGAAAXiXHAABmZmZmZmdmZmZmZmYAAF8lyAAAZmZmZmdgYH8AAAAAAABaJckAAAAA
AAB/YGBnZmZmZgAAVCXKAABmZmZm5wAA/wAAAAAAAGklywAAAAAAAP8AAOdmZmZmAABmJcwAAGZm
ZmZnYGBnZmZmZgAAYCXNAAAAAAAA/wAA/wAAAAAAAFAlzgAAZmZmZucAAOdmZmZmAABsJc8AABgY
GBj/AAD/AAAAAAAAZyXQAABmZmZmZv8AAAAAAAAAAGgl0QAAAAAAAP8AAP8YGBgYAABkJdIAAAAA
AAAA/2ZmZmZmZgAAZSXTAABmZmZmZn8AAAAAAAAAAFkl1AAAGBgYGB8YGB8AAAAAAABYJdUAAAAA
AAAfGBgfGBgYGAAAUiXWAAAAAAAAAH9mZmZmZmYAAFMl1wAAZmZmZmbnZmZmZmZmAABrJdgAABgY
GBj/AAD/GBgYGAAAaiXZAAAYGBgYGPgAAAAAAAAAABgl2gAAAAAAAAAfGBgYGBgYAAAMJdsAAP//
/////////////wAAiCXcAAAAAAAAAAD///////8AAIQl3QAA8PDw8PDw8PDw8PDwAACMJd4AAA8P
Dw8PDw8PDw8PDwAAkCXfAAD///////8AAAAAAAAAAIAl4AAAAAAAAPjMzMzM+MDAAABABOEAAAAA
AAB4zMDAzHgAAAAAQQTiAAAAAAAA/DAwMDAwAAAAAEIE4wAAAAAAAGZmZmY+BmY8AABDBOQAAAAA
ABB81tbWfBAQAAAARATlAAAAAAAAxmw4OGzGAAAAAEUE5gAAAAAAAMzMzMzM/gYAAABGBOcAAAAA
AADMzMx8DAwAAAAARwToAAAAAAAA1tbW1tb+AAAAAEgE6QAAAAAAANbW1tbW/wMAAABJBOoAAAAA
AADg4HxmZnwAAAAASgTrAAAAAAAAxsb23t72AAAAAEsE7AAAAAAAAMDA+MzM+AAAAABMBO0AAAAA
AAB4zDwMzHgAAAAATQTuAAAAAAAA3Pb29vbcAAAAAE4E7wAAAAAAAHzMzHxszAAAAABPBPAAAGz+
YmBkfGRgYv4AAAAAAQTxAAAASEgAeMz8wMx4AAAAAFEE8gAAADxmxsDwwMZmPAAAAAAEBPMAAAAA
AAB4zPDAzHgAAAAAVAT0AADMzDAwMDAwMDB4AAAAAAcE9QAAAGZmABgYGBgYPAAAAABXBPYAAGYY
ZmZmZj4GZjwAAAAADgT3AAAAAGYYZmZmZjwMGPAAAF4E+AAAADxmZmY8AAAAAAAAAACwAPkAAAAA
AAAcHAAAAAAAAAAAGSL6AAAAAAAAABgAAAAAAAAAALcA+wAAAAQEBAREZDQcDAAAAAAaIvwAAADM
z8/v/N/MzMwAAAAAFiH9AAAAAGY8JDxmAAAAAAAAAKQA/gAAAAA8PDw8PDw8PAAAAACgJf8AAAAA
AAAAAAAAAAAAAAAAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=

--babb14bd9c45ba3a65091c9746acd43b0--


Может стоит извлечь отдельно все эти большие закодированные части, раскодировать их, а потом попробовать вывести само письмо и попробовать каким-то образом сохранить приаттаченный файл.... Или все-таки есть выход более культурный?
PM   Вверх
Pakshin A. S.
Дата 22.2.2006, 19:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Цитата(Pakshin A. S. @ 22.2.2006, 18:45 Найти цитируемый пост)
раскодировать

Фокус не удался... Два кода из DRKB выдают пустоту... smile
PM   Вверх
Snowy
Дата 22.2.2006, 19:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Вот этот код с полным протоколированием:
Код
procedure ReseiveMail(Host: string; Port: integer; User, Password: string);
var
  pop: TIdPOP3;
  m:   TIdMessage;
  mc,i: integer;
begin
  pop:=TIdPOP3.Create(nil);
  pop.Host:=Host; pop.Port:=Port;
  pop.Username:=User; pop.Password:=Password;
  try
    pop.Connect(60000);
    mc:=pop.CheckMessages;
    while mc>0 do begin
      m:=TIdMessage.Create(pop);
      pop.Retrieve(mc,m);
      Form1.Memo1.Lines.Add('======== Mail ' + IntToStr(mc));
      Form1.Memo1.Lines.Add('-- From: ' + m.From.Text);
      for i:=0 to m.MessageParts.Count-1 do
        with m.MessageParts do
        begin
          if items[i].ClassType=TIdAttachment then
            with TIdAttachment(items[i]) do
              try
                Form1.Memo1.Lines.Add('-- Attach: '+FileName);
                if FileExists(FileName) then DeleteFile(FileName);
                SaveToFile(FileName);
              except
                ShowMessage('Не удается сохранить файл');
              end;
          if items[i].ClassType = TIdText then
            with TIdText(items[i]) do
            begin
              Form1.Memo1.Lines.Add('-- Text: ');
              Form1.Memo1.Lines.AddStrings(Body); // << текст здесь в Body: TStringList
            end;
        end;
      m.Free; dec(mc);
    end;
    ShowMessage('Все в порядке');
  except
    ShowMessage('Не удалось подключиться к серверу');
  end;
  pop.Free;
end;

Пример работы у меня:
Цитата

======== Mail 2
-- From: XXXXX  <[email protected]>
-- Text:
Собссна сабж
-- Attach: file.pas
======== Mail 1
-- From: System Administrator <[email protected]>
-- Text:
Your message

  To:      [email protected]
  Subject: test
  Sent:    Wed, 22 Feb 2006 18:55:33 +0300

did not reach the following recipient(s):

[email protected] on Wed, 22 Feb 2006 18:55:36 +0300
    The recipient name is not recognized

-- Text:
Message-ID: <op.s5ds6vadf895we@xxxxxxx>
From: xxxxxx <[email protected]>
To: [email protected]
Subject: test
Date: Wed, 22 Feb 2006 18:55:33 +0300
MIME-Version: 1.0
Content-Type: text/plain;
charset="koi8-r"

subj

--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/
Первое письмо отправлено с Web формы, второе - ответ от сервера, про неверный адрес в письме, отправленном с оперы.
Все корректно показывает. Файл корректно сохраняет.
Добавлено @ 19:17
Цитата(Pakshin A. S. @ 22.2.2006, 19:03 Найти цитируемый пост)
Два кода из DRKB выдают пустоту...
В Indy есть перекодировщики.
PM MAIL   Вверх
Pakshin A. S.
Дата 22.2.2006, 19:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
smile Не работат... Не входит в цикл for...

Может я тебе перешлю письмо, которое является образцом?
PM   Вверх
Snowy
Дата 22.2.2006, 19:20 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Давай. Мыло в профиле.
PM MAIL   Вверх
Pakshin A. S.
Дата 22.2.2006, 19:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Цитата(Snowy @ 22.2.2006, 19:13 Найти цитируемый пост)
В Indy есть перекодировщики.

А как называются?
PM   Вверх
Snowy
Дата 22.2.2006, 19:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
На закладк IndyMisc
TIdDecoderMIME
PM MAIL   Вверх
Pakshin A. S.
Дата 22.2.2006, 19:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Цитата(Snowy @ 22.2.2006, 19:20 Найти цитируемый пост)
Давай. Мыло в профиле.


Отправлено....

С декодированием разобрался...
PM   Вверх
Snowy
Дата 22.2.2006, 20:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Не получил. Но поковырял разные типы сообщений. Получилось примерно следующее:
Код

procedure ReseiveMail(Host: string; Port: integer; User, Password: string);
var
  pop: TIdPOP3;
  m:   TIdMessage;
  mc,i: integer;
  dm:   TIdDecoderMIME;
begin
  Form1.Memo1.Clear;
  pop:=TIdPOP3.Create(nil);
  pop.Host:=Host; pop.Port:=Port;
  pop.Username:=User; pop.Password:=Password;
  try
    pop.Connect(60000);
    mc:=pop.CheckMessages;
    while mc>0 do begin
      m:=TIdMessage.Create(pop);
      pop.Retrieve(mc,m);
      m.SaveToFile('C:\'+IntToStr(mc)+'.msg');
      Form1.Memo1.Lines.Add('======== Mail ' + IntToStr(mc));
      Form1.Memo1.Lines.Add('-- From: ' + m.From.Text);
      if m.MessageParts.Count=0 then begin
        if pos('base64', m.ContentTransferEncoding)>0 then
        begin
          dm := TIdDecoderMIME.Create(pop);
          m.Body.Text := dm.DecodeString(m.Body.Text);
          dm.Free;
        end;
        Form1.Memo1.Lines.AddStrings(m.Body);
      end else
      for i:=0 to m.MessageParts.Count-1 do
        with m.MessageParts do
        begin
          if items[i].ClassType=TIdAttachment then
            with TIdAttachment(items[i]) do
              try
                Form1.Memo1.Lines.Add('-- Attach: '+FileName);
                if FileExists(FileName) then DeleteFile(FileName);
                SaveToFile(FileName);
              except
                ShowMessage('Не удается сохранить файл');
              end;
          if items[i].ClassType = TIdText then
            with TIdText(items[i]) do
            begin
              Form1.Memo1.Lines.Add('-- Text: ');
              Form1.Memo1.Lines.AddStrings(Body);
            end;
        end;
      m.Free; dec(mc);
    end;
    ShowMessage('Все в порядке');
  except
    ShowMessage('Не удалось подключиться к серверу');
  end;
  pop.Free;
end;

Count действительно равен 0, если сообщение не мультипарт.
Сделал отдельную обработку для простых сообщений.
С Base64 не проверял, но вроде должно работать.
Также не проверял с UUE. Не знаю, какой у него ContentTransferEncoding .
PM MAIL   Вверх
Pakshin A. S.
Дата 22.2.2006, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Пока не проверял, но такое точно должно работать, правда проще не декодировать всё письмо, а продекодить только сообщение (благо общий шаблон документа один и тот же)...

Но вот файл оно явно не будет сохранять... Вот тут провел эксперимент:
Поставил задачу убрать #13#10 из файла (его текста кодированного в письме) и раскодировать... Процессор 3GHz c 512Mb ОЗУ cправился с поставленной задачей через достаточно большой промежуток времени. Прикинув, что прога будет работать на медленных компах, постановил, что способ сохранения фала "ручками" не идет...

Все-таки как-то можно сохранить этот вложенный файл? smile
Добавлено @ 21:50
Цитата(Snowy @ 22.2.2006, 20:02 Найти цитируемый пост)
Не получил.

Отправил с ящика... Не уверен, что сообщение будет таким же, каким оно пришло ко мне...
Добавлено @ 21:58
Да... разница есть:

Выдержка из оригинала:
Цитата

Return-path: <>
Envelope-to:
Delivery-date: Wed, 22 Feb 2006 21:31:35 +0500
Received: from nobody by server.uzdesign.com with local (Exim 4.52)
id 1FBwtL-0006kd-JX
for ; Wed, 22 Feb 2006 21:31:12 +0500
To:
Subject: Testing...
From: [email protected]
Errors-To: [EMAIL=][/EMAIL]
Content-type: text/plain; charset=windows-1251
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary = bc78d03e383c4c12234d4df1a94f11f7d
Message-Id: <>
Date: Wed, 22 Feb 2006 21:31:03 +0500
This is a MIME encoded message.

--bc78d03e383c4c12234d4df1a94f11f7d
Content-Type: text/plain
Content-Transfer-Encoding: base64

...

--bc78d03e383c4c12234d4df1a94f11f7d
Content-Type: file;
  name = "Bootfont.bin"
Content-Transfer-Encoding: base64

...


А вот выдержка из письма, которое переслалось:
Цитата

Return-path: <>
Envelope-to:
Delivery-date: Wed, 22 Feb 2006 23:51:30 +0500
Received: from ([] helo=user)
by server.uzdesign.com with smtp (Exim 4.52)
id 1FBz59-0007ai-CY; Wed, 22 Feb 2006 23:51:28 +0500
Message-ID: <001e01c637e0$f91f7c30$d4c05358@user>
From: "Pakshin A. S." <>
To: <>,
<>
Subject: Testing...
Date: Wed, 22 Feb 2006 21:49:37 +0300
MIME-Version: 1.0
Content-Type: multipart/mixed;
boundary="----=_NextPart_000_0013_01C637F9.E0151420"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2900.2180
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180

This is a multi-part message in MIME format.

------=_NextPart_000_0013_01C637F9.E0151420
Content-Type: text/plain;
format=flowed;
charset="koi8-r";
reply-type=original
Content-Transfer-Encoding: 7bit

...

------=_NextPart_000_0013_01C637F9.E0151420
Content-Type: application/octet-stream;
name="Bootfont.bin"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="Bootfont.bin"
...


Есть разница...
Добавлено @ 22:00
И эта разница оказалась существенной! Программа заработала именно с письмом, которое переслалось...
PM   Вверх
Pakshin A. S.
Дата 22.2.2006, 22:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Но ведь тот же самый Outlook все прекрасно читает (оба варианта письма)... Значит как--то все-таки это можно сделать, не изменяя отправку письма... smile smile
PM   Вверх
Snowy
Дата 22.2.2006, 23:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Оригинал мультипарт. Значит должен отлично проходить по стандартной схеме.
сделай m.SaveToFile и пришли мне на petin<at>pisem.net
PM MAIL   Вверх
Pakshin A. S.
Дата 22.2.2006, 23:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Цитата(Snowy @ 22.2.2006, 23:00 Найти цитируемый пост)
пришли мне

Отправлено...
PM   Вверх
Pakshin A. S.
Дата 23.2.2006, 13:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Так... наконец-таки все заработало...

Средство: изменил исходный текст письма, которое формировалось на сервере.
PM   Вверх
Snowy
Дата 23.2.2006, 14:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Ну, блин. Докопался до истины - мелкий баг в Indy9. В 10-й пока не смотрел.
Цитата(Pakshin A. S. @ 22.2.2006, 21:45 Найти цитируемый пост)
Content-Type: multipart/mixed; boundary = bc78d03e383c4c12234d4df1a94f11f7d
Вот на этом она спотыкается.
Недоработка в class function TIdMIMEBoundary.FindBoundary
Не предусмотрено, что могут быть пробелы слева и справа от '='.
Вот из-за этих пробелов инди не находит маркер частей.
Если пробелы убрать, то все проходит на ура.
Код инди корректировать некультурно. Значит нужно под нее подстраиваться.
Код напишу позже. Сейчас есть хочу smile
PM MAIL   Вверх
Snowy
Дата 23.2.2006, 16:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Готово:
Код

procedure ProcessMessage(m: TIdMessage);
var
  sl: TStringList;
  i:  integer;
  pp: string;

  function Decode64(s: string): string;
  var dm: TIdDecoderMIME;
  begin
    result := s;
    dm := TIdDecoderMIME.Create(nil);
    try
      result := dm.DecodeString(s);
    finally
      dm.Free;
    end;
  end;

  procedure FixMsg;
  var
    i, b: integer;
    s:    string;
    ms:   TMemoryStream;
  begin
    s := m.ContentType;
    b := pos('boundary', LowerCase(s));
    if b = 0 then Exit;
    for i := Length(s) downto b do
      if s[i] = ' ' then delete(s, i, 1);
    if s = m.ContentType then Exit;
    m.ContentType := s;
    ms := TMemoryStream.Create;
    m.SaveToStream(ms);
    ms.Position := 0;
    m.LoadFromStream(ms);
    ms.Free;
  end;

  procedure ProcessAttach(att: TIdAttachment);
  var
    Path: string;
  begin
    Path := pp + 'Attach';
    ForceDirectories(Path);
    Path := Path + '\' + att.FileName;
    try
      if FileExists(Path) then DeleteFile(Path);
      att.SaveToFile(Path);
      sl.Add('Attach: ' + att.FileName);
    except
      ShowMessage('Не удается сохранить файл');
    end;
  end;

begin
  sl := TStringList.Create;
  pp := ExtractFilePath(ParamStr(0));
  FixMsg;
  if m.MessageParts.Count = 0 then
  begin
    if pos('base64', m.ContentTransferEncoding)>0 then
      m.Body.Text := Decode64(m.Body.Text);
    sl.AddStrings(m.Body);
  end else
    for i:=0 to m.MessageParts.Count-1 do
    with m.MessageParts do
    begin
      if items[i].ClassType=TIdAttachment then
        ProcessAttach(TIdAttachment(items[i]));
      if items[i].ClassType = TIdText then
        with TIdText(items[i]) do
          sl.AddStrings(Body);
  end;
  try
    pp := pp + 'Messages';
    ForceDirectories(pp);
    for i := 1 to 9 do
    m.MsgId := StringReplace(m.MsgId, copy('<>:/\+*?"', i, 1),
                               '', [rfReplaceAll]);
    if sl.Count > 0 then sl.SaveToFile(pp + '\' + m.MsgId + '.msg');
  finally
    sl.Free;
  end;
end;

procedure ReseiveMail(Host: string; Port: integer; User, Password: string);
var
  pop: TIdPOP3;
  m:   TIdMessage;
  mc:  integer;
begin
  pop:=TIdPOP3.Create(nil);
  pop.Host:=Host; pop.Port:=Port;
  pop.Username:=User; pop.Password:=Password;
  try
    pop.Connect(60000);
    mc:=pop.CheckMessages;
  except
    mc := 0;
    ShowMessage('Не удалось подключиться к серверу');
  end;
  while mc>0 do
  begin
    m:=TIdMessage.Create(pop);
    try
      pop.Retrieve(mc,m);
      ProcessMessage(m);
    finally
      m.Free; dec(mc);
    end;
  end;
  pop.Free;
end;
PM MAIL   Вверх
jon76
Дата 15.1.2010, 14:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 14.1.2010

Репутация: нет
Всего: нет
Немного smile подниму тему. 
Вопрос такой, как доработать пример получниея почты что бы он после отделения присоединенного файла, удалял само письмо с сервера?
А если не удалять письма, то как не получать ранее полученные письма? Приходит в голову проверять при получении MSgId получаемого письма и тех которые были получены ранее, но для этого прийдется хранить Id всех ранее полученных писем. Возможно есть более красивый способ.


Это сообщение отредактировал(а) jon76 - 15.1.2010, 15:05
PM MAIL   Вверх
hkdkest
  Дата 16.1.2010, 00:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 300
Регистрация: 30.11.2008

Репутация: нет
Всего: 1
Цитата(Pakshin A. S. @ 20.2.2006,  23:20)
Итак, на почтовый ящик в инете поступило n штук писем с вложенными файлами.

Вот эти письма я должен получить поочередно из программы; получить текст письма, сохранить на жестком диске вложенный файл под определенным именем, получить адрес отправителя и время получения письма на сервер. Как это реализуется? Киньте ссылки на исходники таких функций (получение нужной информации, описанной выше)...

Заранее огромное Спасибо! smile

материалы и исходник
TIdMessage - объект почтового сообщения Indy
Отправить письмо на E-mail
Почтовый клиент (основы)
PM MAIL WWW   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1346 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.