Boa tarde,
Verificando melhor minha rotina de envio de email, onde não era o foco da minha atenção em descobrir o problema, reparei que minha rotina abre o arquivo a ser enviado para testar se o arquivo está liberado para envio, assim:
function ENVIA_EMAIL( cFile, ... )
...
h := FOpen( cFile )
IF (h == -1)
RETURN .F.
endif
fclose( h ) // <<<<<<< Aqui não tinha esta linha ???????
...
lRet := SendCDOMail( cMailServer, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass, nPort, cFile )
returen lRet
Reparem que eu me esqueci de fechar o arquivo, com isto gerou este problema do "Arquivo ficar travado" no HD. :(
Tenho quase certeza que devo ter pego este código em algum site e ter ajustado aqui para minhas necessidades, então fica a pergunta.
Será que o código já não estava bugado e eu não percebi esta falha ou acidentalmente apaguei esta linha (hehe) ?
Mas de todo caso, peço desculpa pelo "Falso Alarme" por este problema, e refiz os testes aqui e está funcionando corretamente :)
Agradeço ao Rochinha pelas dicas em tentar me ajudar :)
Rossine.
Harbour 3.4, MingW / Msvc, QT, Qt5xhb, GtQtc, DbfCdx, MySql/MariaDB.