Прикрепленый файл к письму

[KoBRaAndrey]

В гугле искал как отправить файл к письму, ну нужны компоненты TidAttachment или TidAttachmentFile которых в Delphi 2010 попросту нету..

[DeDoK]

на форму IdSMTP, IdMessage

var
AT : TIdAttachment;
begin
IdMessage1.Clear;
idSMTP1.Username:='login';
idSMTP1.Password:='password';
idSMTP1.Host:='smtp.mail.ru';
idSMTP1.Port:=25;
try
with idMessage do
begin
Subject:='Subj';
From.Name:='login@mail.ru';
From.Address:='login@mail.ru';
body.clear;
body.Text:='This is a file';
recipients.clear;
with recipients.Add do
begin
Address:='who@mail.ru';
Name:='user';
end;
end;
except
ShowMessage('Error');
end;
TIdAttachment.Create(IdMessage1.MessageParts, 'Тут путь к файлу');
try
idSMTP1.AuthenticationType:=AtLogin;
idSMTP1.Connect;
idSMTP1.Send(IdMessage1);
except
ShowMessage('Error');
end;
IdSMTP1.Disconnect;
end;

[mihali4]

Читать русские "букафки" умеем ?
ТС ясно сказал

нужны компоненты TidAttachment или TidAttachmentFile которых в Delphi 2010 попросту нету

А вы ему для Delphi 2010

var
AT : TIdAttachment;

Ну как же так ?

[DeDoK]

procedure TForm1.IdMessage1CreateAttachment(const AMsg: TIdMessage;
  const AHeaders: TStrings; var AAttachment: TIdAttachment);

Вам ни о чем не говорит?
Этот "компонент" включен в IdMessage насколько я смотрел. во всех примерах он просто обьявляется и все. а на форму ничего не кидается.

[mihali4]

Пока неубедительно. Будем ждать реакции ТС.
А уж свою неправоту я всегда признаю По этому поводу у меня комплексов нет.
(Жизнь - есть постоянная учеба)

[DeDoK]

Да, абсолютно солидарен с Вами) критику надо уметь воспринимать в лицо и не поддаваться на провакации) ждем реакцию ТС)

[KoBRaAndrey]

Неа, не работает. Ругаеться что нету:

var
AT : TIdAttachment;

Причем событие OnCreateAttachment есть, но при создание его пишет ошибку что такого компонента нету О_о

[Usov]

попробуй поискать в исходниках где объявлен класс TIdAttachment, и потом включи этот модуль в uses

[DeDoK]

или хотябы версию инди скажи.

[Квэнди]

http://programmersforum.ru/showthrea...519#post438519