Ver Mensaje Individual
  #2  
Antiguo 29-09-2005
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
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;
__________________
David Esperalta
www.decsoftutils.com

Última edición por dec fecha: 29-09-2005 a las 08:20:32. Razón: Corrección del texto.
Responder Con Cita