ОЙ!!!!!!
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;
|