Wysłanie maila z załącznikiem: INDY10.

Cześć, kiedyś wysyłanie maila z załącznikiem było proste jak skrętka.

Robiło się:

TIDAttachment.Create(IDMessage.MessageParts, sciezka_do_pliku);

Ale odkąd w metodzie Create pozbyto się tego magicznego, drugiego parametru, to nie mam pojęcia jak wysłać załącznik. Szukałem po necie, czytałem, patrzyłem w dokumentacjach, ale nie mam pojęcia jak to zrobić.

Coś tam piszą, że CHYBA trzeba oprogramować pewne zdarzenie, ale ja sobie nie wyobrażam tego w żaden sposób.

Może ktoś mi powiedzieć, jak wysłać ten załącznik?

np tak :
http://www.indyproject.org/DemoDownloads/Indy_10_MailClient.zip

Znowu rozgrzebuję stary temat. Tym razem nie zapytać, a odpowiedzieć. Może nie osobie, która zadawała pytanie, ale "potomności", bo może gdyby ktoś odpisał tu wcześniej, to nie straciłbym godziny na googlowaniu :)

W Indy 10 nie działa ta operacja:

TidAttachment.create(IdMessage.MessageParts, 'zalacznik.txt');

Wystarczy jednak zmienić pierwszy wyraz i już działa:

TIdAttachmentFile.Create(IdMessage.MessageParts, 'zalacznik.txt');

Nie wiem po co to zmienili, ale mi ta nowa wersja działa.

Dodawanie załączników:

procedure Tf_main.Button_maile_dodaj_zalacznikClick(Sender: TObject);
begin
  OpenDialog_zalacznik.filename:='';
  if OpenDialog_zalacznik.Execute then
    ListBox_zalaczniki.Items.Add(OpenDialog_zalacznik.FileName);
end;

Fragment kodu wysyłającego maila:

(...)
   for loop:=0 to ListBox_zalaczniki.count - 1 do
   begin
    TIdAttachmentFile.Create(IdMessage.MessageParts, ListBox_zalaczniki.Items[loop]);
   end;
(...)

Rozwiązanie znalazłem w starym wpisie z 2006 roku tutaj:
http://www.delphipages.com/forum/showthread.php?t=167950