Developing.ru

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var at:TidAttachment;
    mes:tidmessage;
    i:integer;
begin
 button1.Enabled:=false;
 idSMTP1.Host:=Edit1.Text;
 idSMTP1.Port:=StrToInt(Edit2.Text);
 mes:=TIdMessage.Create(nil);
 mes.Body:=Memo1.Lines; //sendbody
 //mes.Date:=date;
 mes.ContentType:=texttype[CheckBox1.Checked];
 mes.Subject:=Edit3.Text;
 mes.From.Address:=Edit4.Text;
 //mes.From.Name:=Edit5.Text;
 mes.Recipients.EMailAddresses:=Edit6.Text;
 mes.IsEncoded:=true;
 {!!!СМОТРИМ СЮДА!!!}at:=TIdAttachment.Create(mes.MessageParts,'C:\Projects\Delphi\sendmail\file1.jpg');
 at:=TIdAttachment.Create(mes.MessageParts,'C:\Projects\Delphi\sendmail\file2.txt');
 {if memo2.Lines.Count>0 then
  begin
  mes.IsEncoded:=true;
    for i:=0 to memo2.Lines.Count do
      begin
        at:=TIdAttachment.Create({MessageParts}{mes.MessageParts,memo2.Lines[i]);
        at.Free;
      end;

  end;}
     try
      idSMTP1.Connect();
        if idSMTP1.Connected then
        begin
          idSMTP1.Send(mes);
          showmessage('отослал');
        end
        else showmessage('не приконнектился');
      finally
        IdSMTP1.Disconnect;
      end;
at.Free;
button1.Enabled:=true;
end;