enviar mensaje outlook con delphi
 

buenos dias compañeros estoy enviando correos de outlook por medio de delphi vi unos post y ya los envio pero individual lo que quiero hacer es enviarlos a varios correos. tratode formar la cadena con este codigo pero siempre truena y me marca el siguiente error.

---------------------------
Debugger Exception Notification
---------------------------
Project outlook.exe raised exception class EIdProtocolReplyError with message '<hcamacho@xxxxx.com; crosales@xxxxx.com; jorrantia@xxxxx.com; asal malformed address: ; crosales@xxxx.com; jorr may not follow <hcamacho@xxxxx.com.net
'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

alguna idea de por que hace eso :confused:el codigo es el siguiente:

Código Delphi [-]
 
Recipients[0].Name   :='xxxxxx';
listado_direcciones_con_copia := 'hcamacho@xxxxx.com; crosales@xxxxx.com; jorrantia@xxxxx.com';
   Recipients[0].Address:= 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';//Memo1.Lines.Text;

mil gracias.

¿ y separado por comas en lugar de punto y coma?

gracias contraveneno pero:( nop me marca el mismo error:confused:

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"

Investiga a cerca del objecto Outlook.Application, te saldrán miles de ejemplos con un codigo muy simple... aunque la mayoría estarán escritos en Visual Basic Script :D:D:D (por algo será)

Te ayudaría con un ejemplo pero no uso Outlook, prefiero ThunderBird :cool:

Salu2

gracias topx y krhonos por contestar pero con la solucion que dio topx funciona de 10 gracias a todos por su tiempo:D.

¿no sería mejor?

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