[TOPX]

Buenas tardes richy08,

Suponiendo que usa los componentes Indy, y específicamente un TIdMessage, hay dos formas:

1.

Código Delphi [-]
 listado_direcciones_con_copia := 
  '"hcamacho" <hcamacho@xxxxx.com>, "crosales" <crosales@xxxxx.com>, "jorrantia" <jorrantia@xxxxx.com>';

 Recipients.EmailAddresses:= listado_direcciones_con_copia;

 From.Name := 'Cotizador'; {Nombre del Remitente}
 From.Address := 'asalazar@xxxxx.com'; {Correo del Remitente}
 Subject := 'Productos Que acaban de llegar'     
 Body.Text :='Prueba sitiquote';

2.

Código Delphi [-]
 with Recipients.Add do
 begin
   //Name := 'hcamacho';
   Address := 'hcamacho@xxxxx.com';
 end;

 with Recipients.Add do
 begin
   //Name := 'crosales';
   Address := 'crosales@xxxxx.com';
 end;

 with Recipients.Add do
 begin
   //Name := 'jorrantia';
   Address := 'jorrantia@xxxxx.com';
 end;

 From.Name := 'Cotizador'; {Nombre del Remitente}
 From.Address := 'asalazar@xxxxx.com'; {Correo del Remitente}
 Subject := 'Productos Que acaban de llegar'     
 Body.Text :='Prueba sitiquote';

--
"constructive mind, destructive thoughts"