Por favor.....estou tentando gravar o erro no Event Viewer só que não grava....

 

Estou fazendo da seguinte forma:

 

app.logevent "TESTE"

 

só com isso ja deveria dar certo mas não funciona...o que pode estar errado?

 

Agradeço desde já..

 

Grato

 

Anderson

 

 

If App.LogMode = vbLogToNT Then
    'vai pro event view
ElseIf App.LogMode = vbLogOff Then
    MsgBox "Geração de logs desativada"
    Exit Sub
Else
    If App.LogPath = "" Then
        MsgBox "Geração de logs desativada"
        Exit Sub
    End If
    MsgBox "Log gravado em :" & vbCrLf & App.LogPath
End If

'tudo correu bem
App.LogEvent "Teste", 1