Tô compartilhando essa experiência porque já vi em tópicos alguns com o mesmo problema...
Resposta do windows com acentos todos embaralhados:
Já havia tentado várias formas e não havia conseguido um resultado satisfatório.. As vezes o retorno fica totalmente ilegÃvel (se é que existe essa palavra).
Aà fazendo uns testes aproveitando que a rotina tava dando erro e sempre que executava voltava a mensagem com erro, consegui o resultado abaixo.. sei que não é o ideal mas tá resolvendo o problema.
No xDevStudio deixar configurado para DOS (OEM) Char Set e não usar assentos no xDev( Esse problema acho que não tem solução).
e usar o HB_ANSITOOEM:
cMessage := HB_ANSITOOEM("Nao foi possivel enviar a mensagem: "+cSubject+hb_EOL()+;
"para o email: " + aTo[i]+"." +hb_EOL()+;
"Erro: " +oErroMail:Description)
wapi_MessageBox( wapi_GetActiveWindow(), cMessage,'Alerta', WIN_MB_ICONEXCLAMATION )
é um problema besta e simples mas tava causando alguns aborrecimentos.
Rubens