Por favor ingresa o regístrate.
1 Hora 1 Día 1 Semana 1 Mes Siempre
Ingresar con nombre de usuario, contraseña y duración de la sesión

[enecumene]

Código: [Seleccionar]

{*****************************************************}
{ Notificador de Correos v1.0 © 2009                  }
{ Realizado por Lic. Fernando Leonor (Enecumene)      }
{ Para Delphiaccess ( http://www.delphiaccess.com )   }
{*****************************************************}
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdMessageClient, IdPOP3, mmsystem;
 
type
  TForm1 = class(TForm)
    IdPOP31: TIdPOP3;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var Estado: Integer;
begin
{*** Escondemos el form ***}
Form1.Width  := 100; //Fijamos el ancho del form
Form1.Height := 100; //Fijamos el alto del form
Form1.Left   := -500; //Fijamos la posición del form desde la izquierda
Form1.Top    := -500; //Fijamos la posición del form desde arriba
{*** Fin esconder el form ***}
 
{*** configuramos el servidor POP3 del correo ***}
idPOP31.Username := 'Nombre de usuario';
idPOP31.Password := 'Clave del correo';
idPOP31.Host     := 'Servidor POP3 del correo'; //pop3.servidor.com
{*** Fin ***}
 
{*** conectamos y chequeamos los mensajes ***}
idPOP31.Connect;
Estado := idPOP31.CheckMessages;
idPOP31.Disconnect;
{*** Fin ***}
 
{*** verificamos si existen mensajes nuevos o no ***}
if Estado = 0 then begin //Si no hay mensajes nuevos
  PlaySound('C:\WINDOWS\Media\Windows XP Logoff Sound.wav',0,SND_ASYNC);
  MessageDlg('No tienes mensajes nuevos.',mtInformation,[mbOK],0);
end;
 
if Estado = 1 then begin //Si hay sólo un mensaje nuevo
  PlaySound('C:\WINDOWS\Media\Windows XP Logon Sound.wav',0,SND_ASYNC);
  MessageDlg('Tienes 1 mensaje nuevo.',mtInformation,[mbOK],0);
end;
 
if Estado > 1 then begin //Si hay más de 1 mensaje nuevo
  PlaySound('C:\WINDOWS\Media\Windows XP Logon Sound.wav',0,SND_ASYNC);
  MessageDlg('Tienes '+IntToStr(Estado)+' mensajes nuevos.',mtInformation,[mbOK],0);
end;
{*** Fin ***}
 
{*** Terminamos el programa ***}
Application.Terminate;
{*** Fin ***}
 
end;
 
end.

Requisitos:

- Indy 9.0

Descarga

Enjoy !

[Caral]

Hola
Dos preguntas:
1- Sirve cuando el servidor es mail.tal.com o solo con pop3.tal.com ?
2- Cuando te avisa del nuevo mensaje lo baja del servidor o solo lo ves?
Saludos

[enecumene]

Sólo correos entrantes que es POP3, lo he probado con el de Delphiaccess y me ha funcionado perfecto, pues no sé si funcionará con mail.xxx.xxx, sólo es cuestión de probarlo.

Saludos.

[Caral]

Hola
Muy interesante amigo, gracias por el aporte.
Por cierto, si se necesita indy9 seria bueno poner el enlace de descarga.
Saludos

[enecumene]

Por cierto, si se necesita indy9 seria bueno poner el enlace de descarga.

No es necesario amigo, Delphi 6 y 7 lo traen por defecto .

Saludos.

[luk2009]

Gracias por el aporte

Preguntas:
1.- que valores debo cambiarle para que me funcione, porque cambie el user, el pasword y creo que cambie el pop3.
ejemplo para hotmail se pone pop3.hotmail.com?

2.- si quiero que me indique si tengo email en varios servidores como hotmail, gmail al mismo tiempo como se haria.

[enecumene]

Primero que todo, este notificador no es aún compatible con Gmail y Hotmail porque ambos requieren de SSL y el puerto 995, y con la versión 9 de Indy aún no soporta la tecnologí­a SSL .

Saludos.

[felipe]

Interesante aporte enecumene, solo una pregunta ¿cómo funciona?, debes tener Outlook funcionando o ¿algo asi? 


Saludos!

[enecumene]

Interesante aporte enecumene, solo una pregunta ¿cómo funciona?, debes tener Outlook funcionando o ¿algo asi? 

Pos no, nada de eso, sólo cambia los valores Username, Password y POP3

[felipe]

Interesante aporte enecumene, solo una pregunta ¿cómo funciona?, debes tener Outlook funcionando o ¿algo asi? 

Pos no, nada de eso, sólo cambia los valores Username, Password y POP3

Mejor entonces... gracias 


Saludos!

[angelo2007]

el archivo baja corrupto.
imposible ser usado. que raro:S

[egostar]

el archivo baja corrupto.
imposible ser usado. que raro:S

No es raro, en la última mudanza muchos archivos se corrompieron, ahora si alguien lo solicita se intenta subir si se tiene aún el o los adjuntos que se han dañado.

Salud OS

[enecumene]

el archivo baja corrupto.
imposible ser usado. que raro:S

Ya lo volví a subir de nuevo, pero de todos modos en el primer post está el código completo.

Saludos.