Email и listview

[sg-ua]

Нужна помощь с отправкой на почту, письмо отправляется но не могу заполнить письмо...нужно данные взять с listview. Вот наработки

procedure TForm1.Button2Click(Sender: TObject);
 var
 I: integer;

begin

 for I := 0 to ListView3.Items.Count - 1 do
  begin
    
    IdMessage1.Body.Text:=ListView3.Items.Item[I].Text + '-' +ListView3.Items.Item[I].Detail+'#13#10'
   end;
IdMessage1.Body.Text:='Адрес: '+ addres.Text + '#13#10Имя: ' + Ename.Text + '#13#10Телефон: '+Etel.Text;
IdMessage1.Date:= now;
IdMessage1 := TIdMessage.Create;
IdMessage1.From.Address:='****';
IdMessage1.Recipients.EMailAddresses:=****';
IdMessage1.Subject:= AnsiToUtf8('Ресторан');


IdSMTP1 := TIdSMTP.Create(nil);

IdSMTP1.Host:='smtp.ukr.net';
IdSMTP1.Port:=465; 
IdSMTP1.Username:='****';
IdSMTP1.Password:='****';
IdSMTP1.AuthType:=satDefault;


IdSSLIOHandlerSocketOpenSSL1:= TIdSSLIOHandlerSocketOpenSSL.Create(nil);
IdSSLIOHandlerSocketOpenSSL1.Destination := IdSMTP1.Host+':'+IntToStr(IdSMTP1.Port);
IdSSLIOHandlerSocketOpenSSL1.Host := IdSMTP1.Host;
IdSSLIOHandlerSocketOpenSSL1.Port := IdSMTP1.Port;
IdSSLIOHandlerSocketOpenSSL1.DefaultPort := 0;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1;

IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned;

IdSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
IdSMTP1.UseTLS := utUseImplicitTLS;


IdSMTP1.Connect();
  if idsmtp1.Connected then
  showmessage('Отправлено');
  IdSMTP1.Send(IdMessage1);
  Application.ProcessMessages;
  IdSMTP1.Disconnect;
  idMessage1.Free;
  IdSSLIOHandlerSocketOpenSSL1.Free;
  idSMTP1.Free;
end;

[ZuBy]

for I := 0 to ListView3.Items.Count - 1 do
  begin
    
    IdMessage1.Body.Text:=ListView3.Items.Item[I].Text + '-' +ListView3.Items.Item[I].Detail+'#13#10'
   end;
IdMessage1.Body.Text:=

давно им не пользовался но Body - это тело письма, т.е только текст

[sg-ua]

а не подскажете как можно сделать? может через что иное?

[ZuBy]

IdMessage1.Body.Text:= '';
for I := 0 to ListView3.Items.Count - 1 do
begin  
  IdMessage1.Body.Text:= IdMessage1.Body.Text+ListView3.Items.Item[I].Text + '-' +ListView3.Items.Item[I].Detail+'#13#10'
end;