[zdm]

Дайте пожалуйста пример прикрепления файла к письму, просто встрял и не могу растормозиться, есть IdSMTP,IdMessage -просто письмо отрправляется без проблем, а для присоединения файла нужен constructor, в инете все ссылки на одну и ту же статью, не могу самостоятельно разобраться, может есть у кого готовый unit , приведите пример, пожалуйста!

[Admin]

Посмотри этот пример: http://www.delphisources.ru/pages/so...et/e-mail.html

[zdm]

проблемы с constract. я так понял что вся тема заключается в :
msg : TIdMessage;
file : TIdMessagePart;
file := TIdAttachment.Create(msg.MessageParts, путь до attachfile);

но нужно создать конструктор, если можно расскажите как это правильно сделать!!!

[zdm]

разобрался, если кому пригодится то выход следующий(ни каких конструкторов не нужно(в bds2006))
uses .....IdAttachmentFile,IdMessageParts;


procedure TForm5.Button1Click(Sender: TObject);
var

file_ : TIdMessagePart;

begin
IdSMTP1.Disconnect;
// msg := TIdMessage.Create(nil);
IdSMTP1.Connect;
file_ := TIdAttachmentFile.Create(IdMessage1 .MessageParts, 'c:\1\1.zip'); ////Вот сдесь ошибка!!!!!!!
IdSMTP1.Send(IdMessage1);


end;

[zdm]

ОЙ!!!!!!
uses .....IdAttachmentFile,IdMessageParts;


procedure TForm5.Button1Click(Sender: TObject);
var

file_ : TIdMessagePart;

begin


IdSMTP1.Connect;
file_ := TIdAttachmentFile.Create(IdMessage1 .MessageParts, 'c:\1\1.zip');
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
end;