Clipper On Line • Ver Tópico - Lib HbCurl para envio de email

Lib HbCurl para envio de email

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Lib HbCurl para envio de email

Mensagempor JoséQuintas » 09 Set 2019 10:43

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
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Lib HbCurl para envio de email

Mensagempor rochinha » 09 Set 2019 10:55

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.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

Lib HbCurl para envio de email

Mensagempor JoséQuintas » 09 Set 2019 13:01

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.

email.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Lib HbCurl para envio de email

Mensagempor JoséQuintas » 09 Set 2019 13:11

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:

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é M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Lib HbCurl para envio de email

Mensagempor JoséQuintas » 09 Set 2019 17:37

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.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Anterior



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 9 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro