Buscando o eMail de um usuário através da UsrRetMail

User Function zExe523()

    Local aArea      := FWGetArea()

    Local cCodUsr    := ""

    Local cNomUsr    := ""

    Local cEmailUsr  := ""

    Local cMensagem  := ""

    //Busca as informações do usuário

    cCodUsr    := RetCodUsr()

    cNomUsr    := UsrRetName(cCodUsr)

    cEmailUsr  := UsrRetMail(cCodUsr)

    //Monta a mensagem e exibe

    cMensagem := "Usuário logado: "+ cCodUsr + " ("+ cNomUsr + "), tem o seguinte endereço de email: "+ cEmailUsr

    FWAlertInfo(cMensagem, "Teste UsrRetMail")

    FWRestArea(aArea)

Return