NovaSenha

Definir Alfa Email;

Definir Alfa Texto;

 

Se (OriCan = 2) @Externo@

Email = R122CEX.EMACAN;

Senao

Se (OriCan = 1) @Interno@

Email = R034CPL.EMAPAR;

 

Se (Email <> "")

inicio

Texto = "Sua nova senha é " + NovaSenha;

EnviaEmail("", Email, "", "", "Nova senha", Texto, "", 0);

fim;