PC Toledo

Provavelmente esta parte, fazer o mesmo com user e password:

   cUser := StrTran( cUser, "@", "&at;" )

   IF HB_ISSTRING( cPopServer ) .AND. lPopAuth

      BEGIN SEQUENCE WITH __BreakBlock()
         oUrl1 := TUrl():New( ;
            iif( lSSL, "pop3s://", "pop://" ) + ;
            cUser + ":" + cPass + ;
            "@" + cPopServer + "/" )
         oUrl1:cUserid := StrTran( cUser, "&at;", "@" )
         oPop := TIPClientPOP():New( oUrl1, xTrace )
      RECOVER

Amiguinhos,

Talvez não seje necessario alterar a classe. Use a herança da classe original em uma nova classe e altere o method nesta nova classe, se é que o trecho que o Quintas apresentou esteja em um method.

rochinha escreveu:Talvez não seje necessario alterar a classe

O envio de email é uma função, que faz uso da classe, então só alterando mesmo.
NÃO testei com "@", mas continua funcionando após uma alteração.

pensando bem...
nem precisava dessa complicação toda.
Já que passa usuário e senha direto pra variável, a linha de comando poderia ter qualquer coisa.

Apenas como exemplo:

Código: Selecionar todos

oUrl1 := TUrl():New( "pop://user:password@" + cPopServer + "/" )
oUrl1:cUserId := cUser
oUrl1:cPassword := cPass

Se "user" e "password" vão ser desprezados, pra que perder tempo trocando "@" por "&at;"?
A não ser que isso realmente faça diferença, e seja conversão pra UTF-8.

Na prática isso foi feito pra usuário, mas não pra senha.
É só repetir a alteração, tomando o cuidado de alterar no POP e no SMTP, são dois locais aonde cria a conexão.

PC Toledo

Lib HbCurl para envio de email

Lib HbCurl para envio de email

Lib HbCurl para envio de email

Lib HbCurl para envio de email

Lib HbCurl para envio de email

Lib HbCurl para envio de email