Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Servicio Aviso a Usuario (https://www.clubdelphi.com/foros/showthread.php?t=88185)

shoulder 24-04-2015 06:39:27

Servicio Aviso a Usuario
 
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 24-04-2015 10:27:18

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] 24-04-2015 10:43:34

Cita:

Empezado por shoulder (Mensaje 491663)
...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 27-04-2015 01:51:58

Aviso desde el servidor
 
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.


La franja horaria es GMT +2. Ahora son las 20:43:32.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi