Ver Mensaje Individual
  #3  
Antiguo 14-09-2006
Avatar de razadi
razadi razadi is offline
Miembro
 
Registrado: feb 2004
Ubicación: Estado de México
Posts: 42
Reputación: 0
razadi Va por buen camino
Thumbs up Ya encontre la solución

Foro, encontre la solución al hilo que inicie, y aqui lo pongo por si a alguien le sirve, saludos.

Código Delphi [-]
{Creo el mensaje del mail}
      lMessage := TIdMessage.Create(Self);
      try
        lMessage.From.Name := sSenNomMail;
        lMessage.From.Address := sSenderMail;
        with lMessage.Recipients.Add do begin
          Name := sNomCliente;
          Address := sMailCliente;
        end;
        {Aqui agrego las copias}
        with lMessage.CCList.Add do begin
          Name := 'Cliente';
          Address := 'razadi33@hotmail.com';                                
        end;{del with}
        lMessage.Subject := sAsuntoMail;
        lMessage.Body.Text := '';
        {Creo el cuerpo en TXT}
        lTextPart := TIdText.Create(lMessage.MessageParts);
        lTextPart.Body.Text := 'Sistemas';
        lTextPart.ContentType := 'text/plain';
        {Aqui creo el cuerpo en HTML}
        lTextPart := TIdText.Create(lMessage.MessageParts);
        lTextPart.Body.Text := 'Aqui se pone el código en HTML
Puede poner, cualquier objeto
O puede incluir archivos HTML'
; lTextPart.ContentType := 'text/html'; lMessage.Priority := mpNormal; {Creo el archivo adjunto} lAttachPart := TIdAttachment.Create(lMessage.MessageParts, sArchivoPDF); EnviarMail(lMessage); finally lMessage.Free; end;{del try..finally} end;{del for de las facturas seleccionadas}

Última edición por razadi fecha: 14-09-2006 a las 00:46:31.
Responder Con Cita