Подскажите новичку как самаму сделать функцию пне ее часто надо использовать...
Код:
begin
IdSMTP1.Host:='mail.kz';
IdSMTP1.Port:=25;
IdSMTP1.Username:='****';
IdSMTP1.Password:='****';
IdMessage1.Body.Text:='переменная1';
IdMessage1.From.Text:='переменная1';
IdMessage1.Recipients.EMailAddresses:='переменная3';
IdMessage1.Subject:='тема';
IdSMTP1.Connect;
if IdSMTP1.Authenticate then
begin
IdSMTP1.Send(IdMessage1);
ShowMessage('issended');
end
else
ShowMessage('not sended');
end;