[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;