Perguntas enviar email com arquivo anexado

Opa deu certim, a questão é quem tem que informar tanto que ele usa SSL, e tambem as porta pop3 995 e smtp 465.

Agora esse aqui deve ter algum macete, como eu anexo arquivos nessa função alguem ja conseguiu fiz o teste passando dessa maneira.

nErro := oMessage:AttachFile(GetSrvProfString("RootPath","")+"\danfe.pdf" )
If nErro < 0
Alert("[ERROR]Falha ao Anexar: " + oServer:getErrorString(nErro))
Return .F.
Endif

Retorno um erro -1 que nem a função getErro conseguiu descobrir.

Ele ja seta no RootPath automaticamente poderiam ter avisado mais deixa para la.

nErro := oMessage:AttachFile("\danfe.pdf" )

Jose Roberto .... Estou com o mesmo problema mas nao estou conseguindo encontrar aonde entrar com essas configurações....