procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
with IdSMTP1 do
begin
if (Edit1.Text='') then
begin
ShowMessage ('Вы не заполнили необходимые поля')
end
else
Host := ini.ReadString(label1.Caption,'smtp', 'NouParametr'); // установим хост SMTP сервера
Port:= 25;
//ini.ReadString('p1conf','port2', 'NouParametr');
Username:= ini.ReadString(label1.Caption,'login', 'NouParametr');
Password:= ini.ReadString(label1.Caption,'parol', 'NouParametr');
end;
with IdMessage1 do
begin
Body.Assign(Memo.Lines);
From.Text:= ini.ReadString(label1.Caption,'email', 'NouParametr');
Recipients.EMailAddresses:=ComboBox1.Text;
Subject:=Edit2.Text; //чиаем тему письма из Edit
ContentType:='text/html; charset=windows-1251';
ContentTransferEncoding:='8bit';
//Body.LoadFromFile(ExtractFilePath(Application.ExeName)+'html');
attach := TIdAttachmentFile.Create(idMessage1.MessageParts, '123.jpg');
end;
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect();
ShowMessage('Сообщение отправлено!');
end;
end;