Archivos adjuntos en mail

[Dado de baja]

Yo uso las que vienen con Delphi 2007

Ese procedimiento que me envias lo ejecuto y me da los errores que describia.

Por cierto cual es la web de las Indy ?

[fide]

Empezado por Cecilio

Yo uso las que vienen con Delphi 2007

Ese procedimiento que me envias lo ejecuto y me da los errores que describia.

Por cierto cual es la web de las Indy ?

Bueno, puedes buscar la pagina en el google, aunque creo que es
http://www.indyproject.org

[Dado de baja]

No consigo que funcione de ninguna forma.

¿ Alguna idea ? está en Delphi 2007 No se que versión será de las Indy

Estoy por intentarlo en Delphi 7 a ver si funciona.

Voy a poner el trozo de código por si a caso:

 with idMessage do begin
    // Cuerpo del mensaje.
    Body.Clear;
    Body.Assign(texto.Lines);
    ContentType := 'text/html';
    // Cuenta Origen.
    From.Name:=config.enombre.Text;
    From.address := config.eusuario.Text;
    ReplyTo.EMailAddresses:=config.erespuesta.Text;
    // Asunto del email.
    Subject := edit1.Text;
    // Prioridad del mensaje, ALTA.
    Priority := TidMessagePriority(mpHighest);
    // Coloco el archivo adjunto el cual enviar.

    //TidAttachment.Create(idMensage.MessageParts,ARCHIVOADJUNTO);
    for I := 0 to adjunto.Items.Count - 1 do
      begin
         if Fileexists(adjunto.Items[i]) then
           tIdAttachment.Create(MessageParts, adjunto.items[i]);


      end;
    end;

Los Uses:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, IdMessage, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient,
  IdSMTPBase, IdSMTP,IdAttachment, Menus, ExtCtrls;

El IdAttachment lo agregue yo en los Uses, porque no estaba y no lo reconocia.

[fide]

Oyeme. Todo eso que pones esta muy bien y no se por que da error. Mira, por que no haces eso en delphi 7 que es donde yo se que no te va a dar error he???

[jachguate]

Seguramente estas usando Indy 10.

Lo digo de memoria... pero la clase TidAttachment se convirtió en una clase abstracta... ahora debe haber una clase TidFileAttachment, para el caso de los adjuntos que se originan en un archivo del sistema.

Hasta luego.

[caio]

La clase se llama TIdAttachmentFile. Lo probe y funciona perfectamente. En el uses hay que agregar IdAttachmentFile.