enviar mensaje outlook con delphi

[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" <[email protected]>, "crosales" <[email protected]>, "jorrantia" <[email protected]>';

 Recipients.EmailAddresses:= listado_direcciones_con_copia;

 From.Name := 'Cotizador'; {Nombre del Remitente}
 From.Address := '[email protected]'; {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 := '[email protected]';
 end;

 with Recipients.Add do
 begin
   //Name := 'crosales';
   Address := '[email protected]';
 end;

 with Recipients.Add do
 begin
   //Name := 'jorrantia';
   Address := '[email protected]';
 end;

 From.Name := 'Cotizador'; {Nombre del Remitente}
 From.Address := '[email protected]'; {Correo del Remitente}
 Subject := 'Productos Que acaban de llegar'     
 Body.Text :='Prueba sitiquote';

--
"constructive mind, destructive thoughts"