enviar mensaje outlook con delphi

[richy08]

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 '<[email protected]; [email protected]; [email protected]; asal malformed address: ; [email protected]; jorr may not follow <[email protected]
'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

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

Código Delphi [-]
 
Recipients[0].Name   :='xxxxxx';
listado_direcciones_con_copia := '[email protected]; [email protected]; [email protected]';
   Recipients[0].Address:= 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';//Memo1.Lines.Text;

mil gracias.

[ContraVeneno]

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

[richy08]

gracias contraveneno pero nop me marca el mismo error

[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"

[Khronos]

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 (por algo será)

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

Salu2

[richy08]

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

[ContraVeneno]

¿no sería mejor?

Código Delphi [-]
 with Recipients do  begin
   Add.Address := '[email protected]';    
   Add.Address := '[email protected]';    
   Add.Address := '[email protected]';
 end;