Fórum Delphi - Como enviar uma mensagem ao usuário a cada 15 dias? Para uma atualização ou backup #536098

Adicione um campo DATA_AVISO.

Ao incluir o registro coloque DATA_AVISO+15; Use funções para achar a data do aviso.

Crie uma rotina diária .

DM.SUA_TABLE.OPEN;
DM.SUA_TABLE.FISRT;
IF NOT (DM.SUA_TABLE.EOF) THEN
REPEAT
IF ID DM.SUA_TABLE.FIELBYNAME('DATA_AVISO').ASSTRING=DATEToStr(STATUS_HORA)) THEN
BEGIN
USE SUA FUNÇÃO DE ENVIAR MSG AQUI!
END;
DM.SUA_TABLE.NEXT;
END;
ULTIL (DM.SUA_TABLE.EOF);
END;
END;

ESPERO QUE AJUDE.
NÃO TESTEI MAIS FUNCIONA USO ESSE PROCEDIMENTO NUM CLIENTE QUE DISPARA MSG DE ANIVERSÁRIO DOS CLIENTES
USO UM TIME QUE DE 24HRS ELE REALIZA A VERIFICAÇÃO E ENVIA EMAIL PERSONALIZADO!

AGUARDO RETORNO,