ayuda sobre el IdSMTP

[srangel]

me podrian decir que es lo que le tengo que configurar y como funciona, si me pudieran ayudar con un ejemplo ó decirme de donde lo puedo bajar se los agradeceria mucho...

[VolaRe]

Desde esta página te puedes bajar demos de las indy

[URBANO]

El codigo que te pongo a continucion lo he sacado del foro, lo he probado y me funciona bien. Espero que te sirva.
Bueno un pequeño problema da, que cuando envias un email a una direccion hotmail, este correo te lo coloca directamente en la carpeta de mensajes no deseados.

with idMessage do begin
    // Cuerpo del mensaje.
    Body.Clear;
    Body.Add('Aqui añades el cuerpo del mensaje');
    // Cuenta Origen.
    From.Text := 'urbano@atm-informatica.com';
    // Cuenta Destino.
    Recipients.EMailAddresses := 'PRUEBAATM@terra.es';
    // Asunto del email.
    Subject := 'prueba';
    // Prioridad del mensaje, ALTA.
    Priority := TidMessagePriority(mpHighest);
    // Coloco el archivo adjunto el cual enviar.
    //TidAttachment.Create(idMensage.MessageParts,ARCHIVOADJUNTO);
  end;

with idSMTP do begin
   // Configuro autentificación.
   AuthenticationType := atLogin;
  Username := 'urbano@atm-informatica.com';  // Nombre del usuario
  Password := 'atmurb';  // la password
  // Configuro el servidor SMTP.
  Host := 'mail.atm-informatica.com';
  Port := 25;

  try
    Connect;
    try
      // Envio el mensaje.
      Send(IdMessage);
    finally
      Disconnect;
    end;
    showmessage('Enviado Correctamente');
  except
     // Capturo algunas excepciones que pueden ocurrir
    ON E: EIdProtocolReplyError do begin
      showmessage('No se ha podido enviar el email.' + #13 +
          'Incorrecto el email o el usuario o la password.');
    end;
    on E: EFOpenError do begin
      showmessage('No se ha podido enviar el email.' + #13 +
          'Fichero Adjunto desconocido o erróneo.');
    end;
    on E: EIdSocketError do begin
      showmessage('No se ha podido enviar el email.'+ #13 +
          'Host desconocido o incorrecto.');
    end
    else begin
      showmessage('Fallo en el envio de email');
      raise;//para que muestre el error.
    end;
  end;
  if connected then Disconnect;
end;

Saludos.

[AFilth]

Muy buen fragmento de codigo, funciona perfectamente. Estaba buscando en el foro eso exactamente

[rruffino]

Hola amigos, les comento que uso el mismo fragmento de codigo y no me anda. Anduvo en una oportunidad un buen tiempo, y ahora simoplemente no anda, y no acusa ningún error, es más, me dice que el correo fue enviado correctamente. Alguien puede decirme que rayos pasa???. Probe cambiando el host, la direccion de correo del remitente y destinatario, etc, y sigue sin funcionar.
Desde ya muchas gracias por su ayuda.