Показать сообщение отдельно
  #3  
Старый 11.08.2010, 10:54
blsh blsh вне форума
Прохожий
 
Регистрация: 16.07.2010
Сообщения: 19
Репутация: 10
По умолчанию

вот незнаю.
есть такая процедура
Код:
procedure TfrmScan.MailError;
begin
  with frmScan do begin
    SysLocale.PriLangID:=LANG_RUSSIAN;
    IdSMTP1.Port:=25;
    IdSMTP1.Host := 'йцук';
    IdSMTP1.Username:='111';
    IdSMTP1.Password:='111';

    if IdSMTP1.Connected = false then
      IdSMTP1.Connect(60000);

    IdMessage1.Subject:='Error!';
    IdMessage1.Recipients.EMailAddresses:='@.ru';
    IdMessage1.From.Address:='.ru';
    IdMessage1.From.Name:='qwer';
    IdMessage1.Body.Text:=sText;

    if IdSMTP1.Connected then
      IdSMTP1.Send(IdMessage1);

    IdSMTP1.Disconnect;
  end;

end;

И при вызове этой процедуры я присваиваю переменной sText значение
Ответить с цитированием