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 (http://www.indyproject.org/Demos/index.iwp) 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.:rolleyes: