Lib HbCurl para envio de email

[JoséQuintas]

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

Código: Selecionar todos

   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

[rochinha]

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.

[JoséQuintas]

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.

[JoséQuintas]

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.

[JoséQuintas]

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.