IdSmtp

[dgbgt]

Muchas Gracis por sus comentarios. Es la primera vez que uso Indy para enviar correo y me funciono a la perfección.

Gracias a todos.

[rruffino]

Hola amigos del foro, he seguido estos pasos y les digo que anda a la perfeccion, pero noto un problema cuando envio archivos adjuntos. Uso delphi 7 e interbase. Mi sistema es un sistema de facturacion que al generar una factura la paso a formato pdf y se la envio al cliente por correo electronico. El problema es que a medida que voy enviando los correos me va adjuntando las facturas de los demas, es decir, si el primer cliente que facturo se llama Jose, y el numero de factura es el 100, José recibe en su correo la factura número 100, pero si luego esta el cliente Pablo con la factura numero 101, pablo no solo recibe su correspondiente factura sino que recibe las que fueron enviadas antes, en este caso la que fue enviada a José. Es como si quedaran cargados los archivos adjuntados previamente. Desde ya les agradezco su ayuda y espero que se me solucione este embrollo.
Saludos a todos, Román

[roman]

Si usas el mismo IdMessage para los sucesivos correos es lógico que así suceda; supongo que de alguna manera tienes que borrar los datos anteriores. Cuando creas al "attachment" con

TidAttachment.Create(idMensage.MessageParts,ARCHIVOADJUNTO);

imagino que se agrega a idMessageParts así que posiblemente

idMessageParts.Clear

sea suficiente pero no lo he probado.

// Saludos

[rruffino]

Tocayo (yo tambien soy Román), has dado en la tecla, lo he probado y hasta ahora anda de maravillas. Gracias por tu tiempo.
Saludos, Román.-

[elguille]

Resumo todo lo dicho con una funcion que funciona (comprobado)

añadir a USES

IdBaseComponent, IdComponent, IdTCPServer, IdSMTPServer,
IdMessage, IdEMailAddress, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP,idexception

Código Delphi [-]
  procedure email2(host:string;nombre:string;password:string;port:integer;desde:string;
    hasta:string;asunto:string;cuerpo:string;adjunto:string);
  var
      IDSMTP1: TIDSMTP;  // Componente de envio de correo
      mensaje: TIdMessage;
  begin
  IDSMTP1:=TIDSMTP.Create(nil);
  IdSMTP1.AuthenticationType :=atLogin;
  IdSMTP1.UserNAME := nombre;
  IdSMTP1.Password := password;
  IdSMTP1.Host := host;
  IdSMTP1.Port := port;
  MENSAJE:=TIDMESSAGE.CREATE(nil);
  with Mensaje do
  begin
  Body.Add(CUERPO);
  From.Text := desde;
  Recipients.EMailAddresses := hasta;
  Subject := asunto;
  Priority := TIdMessagePriority(mpHighest);//prioridad del mensaje
  CCList.EMailAddresses := '';
  BccList.EMailAddresses := '';
  TIdAttachment.Create(Mensaje.MessageParts,adjunto);
  end; //configuracion server smtp
  with idsmtp1 do
  begin
   try
      Connect;
      try
        // Envio el mensaje.
        Send(Mensaje);
      finally
        Disconnect;
      end;
  //    MessageDlg('Enviado Correctamente', mtInformation, [mbOK], 0);
    except
       // Capturo algunas excepciones que pueden ocurrir
      ON E: EIdProtocolReplyError do begin
      MessageDlg('No se ha podido enviar el email.' + #13 +
            'Incorrecto el email o el usuario o la password.', mtError, [mbOK], 0);
      end;
      on E: EFOpenError do begin
      MessageDlg('No se ha podido enviar el email.' + #13 +
            'Fichero Adjunto desconocido o erróneo.', mtError, [mbOK], 0);
      end;
      on E: EIdSocketError do begin
      MessageDlg('No se ha podido enviar el email.'+ #13 +
            'Host desconocido o incorrecto.', mtError, [mbOK], 0);
      end
      else begin
      MessageDlg('Fallo en el envio de email', mtError, [mbOK], 0);
      end;
    end;
  end;
  ENd;

[dec]

Hola,

elguille, no veo que liberes en la función que muestras los objetos "TIdSmtp" y "TIdMessage", y, sin embargo, en su creación no les das dueño: eres tú mismo, el dueño, por tanto, y el encargado de su liberación. En fin, es que me ha llamado la atención, nada más.

[seba_cipo]

elguille:

me tira un error asi
socket error #10051 network is unreacheable

por q es???


cuando llamo el procedi email2 en el parametro

nombre:= mi email
desde:= mi email ???


esta bien eso??
desde ya muchas gracias!

[seba_cipo]

solucionado,, muchas gracias, el problema era con el host,,
anda joya el procedure de elguille
saludos!