FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
recibir correos
Hola Foro!!!
Tengo que hacer un pequeño apaño en mi aplicacion. Os cuento: Necesito que sea capaz de recibir un email sin usar el outlook ni ningun otro programa de recepcion de correos, es decir, que sea mi aplicacion kien lo reciba y la que lea ese correo sin que el usuario se de cuenta de lo que esta pasando. Tengo un procedimiento que hace exactamente lo contrario, mandar a una direccion de correo un email sin que el usuario se entere. Este procedimiento usa un objeto de este tipo: TNMSMTP. El codigo es asi: procedure EstoyVivo; var NMSMTP1: TNMSMTP; Mensaje : String; begin NMSMTP1:= nil; try NMSMTP1 := TNMSMTP.Create(nil); // nos conectamos al servidor NMSMTP1.Host := 'mail.decorreo.com'; NMSMTP1.Port := 25; NMSMTP1.UserID := 'direccion.decorreo.com'; NMSMTP1.Connect; // si estamos conectados mandamos el mensaje NMSMTP1.PostMessage.FromAddress := 'direccion@decorreo.com'; // la cuenta desde la que se envia NMSMTP1.PostMessage.FromName := 'Pepito'; // nombre de quien lo envia NMSMTP1.PostMessage.Subject := 'Esto es un correo'; // asunto NMSMTP1.PostMessage.ToAddress.Add('Otra_direccion@decorreo.com'); // a la cuenta que se envia NMSMTP1.PostMessage.ToBlindCarbonCopy.Add(''); NMSMTP1.PostMessage.ToCarbonCopy.Add(''); Mensaje := 'Soy un mensajito que indica que el dia ' + FormatDateTime('dd " de " mmmm " de " yyyy,',Date) + ' ' + FormatDateTime('" a las " hh:mm', Time) + ' sigo vivito y coleando!'; NMSMTP1.PostMessage.Body.Add(Mensaje); // mensaje NMSMTP1.SendMail; // accion de enviar finally NMSMTP1.Free; end; end; A ver si me podeis ayudar a hacer el proceso contrario. Mucas Gracias.
__________________
ash nazg durbatulûk ash nazg gimbatul ash nazg thrakatulûk agh burzum-ishi krimpatul |
|
|
|