Envío de mail con un archivo adjunto.

[angel.sosa]

no vas a creerlo, acabo de descomprimir el archivo que me envias, los adecue con los datos de mi correo y me marca de nuevo esto:

Código Delphi [-]
[DCC Error] Unit1.pas(29): E2003 Undeclared identifier: 'TIdAttachment'

[ecfisa]

Empezado por angel.sosa

no vas a creerlo, acabo de descomprimir el archivo que me envias, los adecue con los datos de mi correo y me marca de nuevo esto:

Código Delphi [-]
[DCC Error] Unit1.pas(29): E2003 Undeclared identifier: 'TIdAttachment'

Sin dudas que te creo, aunque me llama la atención que te de el error en esa línea siendo que está declarada con anterioridad al uso de AuthenticationType (el error previo) ...

¿ Será la versión de Indy ?
En mi caso es la: 9.00.10, podes verificar la tuya agregando un componente TIdHTTP y la siguiente línea:

Código Delphi [-]
    ShowMessage(idHTTP1.Version);

Si es una versión diferente tal vez tengas que buscar por el número de versión y los términos que te dan error (AuthenticationType, TIdAttachment, etc).

Saludos.

[[nlsgarcia]]

y_a_p,

Empezado por y_a_p

...tengo un programa para un pediatra...necesito que envie archivos por mail...

Empezado por y_a_p

...utilizo delphi 7 y veo dentro de sus paquetes que tengo Indy10...

Empezado por y_a_p

...acabo de descomprimir el archivo que me envias...me marca de nuevo esto...Undeclared identifier: 'TIdAttachment'...

Empezado por ecfisa

¿ Será la versión de Indy ?

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation {$R *.dfm}

uses
  IdSMTP, IdMessage, IdAttachmentFile;

procedure EnviarMensaje( sUsuario, sClave, sHost, sAdjunto, sAsunto, sDestino, sMensaje: String );
var
  SMTP: TIdSMTP;
  Mensaje: TIdMessage;
  Adjunto: TIdAttachmentFile;
  
begin
  SMTP := TIdSMTP.Create( nil );
  SMTP.Username := sUsuario;
  SMTP.Password := sClave;
  SMTP.Host := sHost;
  SMTP.Port := 25;
  SMTP.AuthType := atDefault;

  Mensaje := TIdMessage.Create( nil );
  Mensaje.Clear;
  Mensaje.From.Name := sDestino;
  Mensaje.From.Address := sDestino;
  Mensaje.Subject := sAsunto;
  Mensaje.Body.Text := sMensaje;
  Mensaje.Recipients.Add;
  Mensaje.Recipients.Items[0].Address := sDestino;

  if sAdjunto <> '' then
  begin
    if FileExists( sAdjunto ) then
      Adjunto := TIdAttachmentFile.Create( Mensaje.MessageParts, sAdjunto );
  end
  else
    Adjunto := nil;

  try
    SMTP.Connect;
  except
    raise Exception.Create( 'Error al conectar con el servidor.' );
  end;

  if SMTP.Connected then
  begin
    try
      SMTP.Send( Mensaje );
    except
      raise Exception.Create( 'Error al enviar el mensaje.' );
    end;

    try
      SMTP.Disconnect;
    except
      raise Exception.Create( 'Error al desconectar del servidor.' );
    end;
  end;

  if Adjunto <> nil then
    FreeAndNil( Adjunto );

  FreeAndNil( Mensaje );
  FreeAndNil( SMTP );

  Application.MessageBox( 'Mensaje enviado correctamente.',
    'Fin de proceso',MB_ICONINFORMATION );
end;

end.

El código del Msg #5 y #9 compila y funciona correctamente en Delphi 7 con Indy 9, en Indy 10 hay ligeros cambios como se señalan en el código anterior (Resaltados en color rojo) el cual fue probado en Delphi 2006 con Indy 10 y funciono correctamente según lo esperado con valores reales.

Espero sea útil

Nelson.

[y_a_p]

Hola!, agradezco tu respuesta, lo voy a comparar con el código que he hecho, luego te cuento como me fue...

[angel.sosa]

ya quedo, yo igual tenia Delphi 2007 e indy10, solo q el mensaje no me llega cuando se lo envio a correos gmail.com y a hotmail.com y no les llegan.

[angel.sosa]

muchas a gracias a todos por la valiosa ayuda, e pasado varios dias revisando las respuestas y ninguna se acomodaba a mi codigo, hasta que aparecio lo de la version y solucione mi problema. solo resta un detalle que es poder enviar a gmail y hotmail

Empezado por angel.sosa

ya quedo, yo igual tenia Delphi 2007 e indy10, solo q el mensaje no me llega cuando se lo envio a correos gmail.com y a hotmail.com y no les llegan.

[[nlsgarcia]]

angel.sosa,

Empezado por angel.sosa

...solo resta un detalle que es poder enviar a gmail y hotmail...

Revisa el Msg # 4 de este link: http://www.clubdelphi.com/foros/show...light=SendMail

Espero sea útil

Nelson.