Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 28-09-2005
cmena cmena is offline
Miembro
 
Registrado: abr 2004
Ubicación: CHILE
Posts: 67
Poder: 20
cmena Va por buen camino
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
Responder Con Cita
  #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
Poder: 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 09:20:32. Razón: Corrección del texto.
Responder Con Cita
  #3  
Antiguo 30-09-2005
cmena cmena is offline
Miembro
 
Registrado: abr 2004
Ubicación: CHILE
Posts: 67
Poder: 20
cmena Va por buen camino
Non funciono email con copia

No funciona da un erro por el [1], al hacer el send, no hay otra forma?
Responder Con Cita
  #4  
Antiguo 30-09-2005
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
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';
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #5  
Antiguo 01-10-2005
cmena cmena is offline
Miembro
 
Registrado: abr 2004
Ubicación: CHILE
Posts: 67
Poder: 20
cmena Va por buen camino
gracias ahora funciono
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 17:43:13.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi