Enviar log de exceções por email

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (2)  (0)
Eu aprendi e aprendo muito com este site, claro com a comunidade Delphi, e com prazer q venho compartilhar mais esse exemplo prático.

Nem sempre é possível tornar nossa aplicação imune a todos os erros, sempre existe aquele que apenas o usuário conseguirá simular e na maioria das vezes você estará bem longe dali. Para não ficar apenas com a explicação do usuário, que muitas vezes e confusa e inconclusiva podemos criar uma maneira de ao menos rastrear os erros não controlados, isso mesmo podemos construir um "log" de erros, e envia-lo por email.

Dentro do arquivo compactado do exemplo tem um arquivo LEIA-ME.TXT onde tem maiores explicações

OBS.
criei um email no yahoo devmediadelphi@yahoo.com.br com a senha 123456
para q vc ja possa testar o exemplo, o email devmediadelphi é q vai mandar
o email para vc, claro vc pode alterar isso.

Outro cuidado a ser tomado, o arquivo log e criado automaticamente como o mesmo
nome do executavel EXEMPLO project3.exe o log sera project3.log
isso tem q ser trocado nas linhas

      if FileExists('Project3.log') then
        begin
         TIdAttachmentfile.Create(MailMessage.MessageParts, 'Project3.log')
        end;


no componente TidSMPT alterar as propriedades USERNAME E PASSWORD quando vc
trocar o email de origem
NA LINHA
MailMessage.Recipients.EMailAddresses := 'saverio.vertoni@superig.com.br' + ',' + ' ';
colocar aqui seu email de destino


NÃO CONSEGUI USAR A CONTA GMAIL PARA MANDAR EMAIL, CASO VC CONSIGA
DA UM FEEDBACK PARA MIM
saverio.vertoni@superig.com.br




 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?