Servicio Aviso a Usuario

[shoulder]

Hay una forma mediante un servicio de enviar un mensaje a una PC mediante el loguin de windows por ejemplo cuando el servicio detecta que en el repositorio de firma electronica de facturas hay facturas a firmar le envie un mensahe al usuario?. Lo pregunto porque los usuarios no siempre abren el programa por comodos... y despues me dicen el sistema nos podria avisar que tenemos que firmar algo mediante un mail o mensaje...el tema del mail lo veo mas dificil porque tendria que configurar el servidor para enviar mails.

Gracias.

[[duilioisola]]

Con las INDY puedes enviar correos de manera bastante sencilla.

Código Delphi [-]
// Componentes Indy
     // (Pestaña Indy Clients en Delphi6)
     SMTP: TIdSMTP;
     // (Pestaña Indy Misc en Delphi6)
     Mail: TIdMessage;

// inicio el servidor SMTP
  with SMTP do
  begin
     Host := aHostSmtp ;
     UserID := aUserID;
     Password := aPassword;
     Port := aPort;
     SocksInfo.Authentication := saNoAuthentication;
     AuthenticationType := atNone;
     if aIdentificacion = True then
     begin
        AuthenticationType := atLogin;
        SocksInfo.Authentication := saUsernamePassword;
        SocksInfo.Host := aHostSmtp ;
        SocksInfo.Password := aPassword;
        SocksInfo.Port := aPort;
        SocksInfo.UserID := aUserID;
     end;
  end;

// Creo el mensaje de correo
  with Mail do
  begin
     Clear;
     UseNowForDate := True;
     From.Address := aFromAddress;
     From.Name := aFromName;
     Organization := aOrganization;
     if (EMailAddresses = '') then
        raise Exception.Create(_('El destinatario no tiene e-mail...'));
     Recipients.EMailAddresses := aEMailAddresses;
     Subject := aSubjectMail;
     Body.Clear;

     // Construyo el mensaje
     Body.Text := 'Hay una factura por firmar';
  end;

// Envio
  with SMTP do
  begin
     try
        Connect;
     except
        Disconnect;
        raise Exception.Create(_('Se ha producido un error al intentar la conexión.'));
     end;

     try
        Send(Mail);
     except
        Disconnect;
        raise Exception.Create(_('Se ha producido un error al intentar enviar el mensaje.'));
     end;

     Disconnect;
  end;

[Neftali [Germán.Estévez]]

Empezado por shoulder

...el tema del mail lo veo mas dificil porque tendria que configurar el servidor para enviar mails.

No he entendido esto.
¿A qué te refieres con configurar el servidor?

[shoulder]

Hola gracias por la respuesta, lo voy a implementar lo que decia que tendria que configurar un servicio con usuarioid de la cuenta y password de la cuenta de la empresa para que envie al empleado que tiene facturas a firmar.