Enviar email con copia y adjunto con indy
 

Hola amigos, estoy enviando correos usando las indy estas me funciona correctamente , pero quiero enviar con copia a varias personas y algo atachado, cuales serias las instrucciones para el componente idmessage ?

chao gracias

Hola,

Observa el código fuente de este Hilo que sirve para enviar un correo electrónico a determinado destinatario adjuntando también un archivo. Fíjate en este extracto de dicho código:

Código Delphi [-]
  with mail do
  begin
    Recipients.Add;
    Recipients[0].Name := 'destinatario';
    Recipients[0].Address := 'correo@destinatario.com';
    From.Name := 'remitente';
    From.Address := 'correo@remitente.com';
    Subject := 'Asunto del correo';
    Body.Text := 'Cuerpo del correo';
  end;

Donde "mail" es una variable de tipo "TIdMessage". ¿Ves cómo se añade un destinatario? Pues de la misma forma se podrían añadir varios destinatarios, aunque no lo he probado, esto es, añadamos otro destinatario, por ejemplo:

Código Delphi [-]
  with mail do
  begin
    Recipients.Add;
    Recipients[0].Name := 'destinatario';
    Recipients[0].Address := 'correo@destinatario.com';
    Recipients[1].Name := 'otroDestinatario';
    Recipients[1].Address := 'correo@otroDestinatario.com';
    {...}
    From.Name := 'remitente';
    From.Address := 'correo@remitente.com';
    Subject := 'Asunto del correo';
    Body.Text := 'Cuerpo del correo';
  end;

Non funciono email con copia
 

No funciona da un erro por el [1], al hacer el send, no hay otra forma?

Hola,

Ignoro si habrá otra forma, pero, desde luego, a mí me ha funcionado de este modo:

Código Delphi [-]
      Recipients.Add;  // Nótese esta instrucción
      Recipients[0].Name := 'Destinatario 1';
      Recipients[0].Address := 'destinatario1@correo.com';
      Recipients.Add; // Nótese esta instrucción
      Recipients[1].Name := 'Destinatario 2';
      Recipients[1].Address := 'destinatario2@correo.com';

gracias ahora funciono