FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
ayuda sobre el IdSMTP
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...
|
#3
|
|||
|
|||
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. Código:
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;
__________________
El saber no ocupa lugar. |
#4
|
|||
|
|||
Muy buen fragmento de codigo, funciona perfectamente. Estaba buscando en el foro eso exactamente
|
#5
|
|||
|
|||
Problema
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. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|