Clipper On Line • Ver Tópico - email com Harbour

email com Harbour

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

Moderador: Moderadores

 

email com Harbour

Mensagempor asimoes » 23 Abr 2018 18:19

Olá,

É conta do GMAIL ?

Eu tenho uma solução para harbour 3.4 usando tip_MailSend
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

email com Harbour

Mensagempor JoséQuintas » 23 Abr 2018 19:53

Tem exemplos no próprio Harbour.

Opção 1: tipmail
Opção 2: libcurl

Mas tem uma questão a mais:
gmail requer conexão segura
conexão segura requer componentes opcionais do Harbour, não criados na geração normal.

hazael escreveu:O 3.4 parece que está parado, então possivelmente tem futuro duvidoso.


Sendo prático:

Tá melhor e mais atualizado que XHarbour.
Mais provável XHarbour morrer primeiro.

Lógico... os usuários já estão matando ele em vida... aí fica duvidoso mesmo....
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: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

email com Harbour

Mensagempor asimoes » 23 Abr 2018 20:14

JoséQuintas escreveu:hazael escreveu:
O 3.4 parece que está parado, então possivelmente tem futuro duvidoso.


Harbour 3.2 ainda é distribuído pela Minigui ex. então essa coisa de morrer acho que no momento é um pouco remoto, quem sabe não sai um fork made in brazil, a exemplo que está sendo feito com a hwgui qt.
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

email com Harbour

Mensagempor asimoes » 24 Abr 2018 08:03

O exemplo é com gmail, mas pode ser usado também outra conta de email

Os dados do exemplo são fictícios.

O exemplo é com harbour 3.4

TesteEmail.zip
Teste email
(5.04 MiB) Baixado 92 vezes
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

email com Harbour

Mensagempor asimoes » 24 Abr 2018 08:09

O meu exemplo deve produzir algo assim:

2018-04-24 08_07_34-.png
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

email com Harbour

Mensagempor asimoes » 24 Abr 2018 08:27

Atenção para a pasta LIBSSL é a última atualização do Viktor
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

email com Harbour

Mensagempor asimoes » 24 Abr 2018 09:06

Uma correção do zip postado.

Agora para harbour 3.4 e 3.2 ver a bat de compilação a diretiva -dhb32 para usar a função:

Hb_mimeFName 3.4
tip_FileNameMimeType 3.2
Anexos
TesteEmail.zip
Correção exemplo para harbour 3.2 e 3.4
(5.04 MiB) Baixado 82 vezes
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

email com Harbour

Mensagempor asimoes » 24 Abr 2018 13:25

Não vai funcionar mesmo.

Você precisa das libs ssl pra funcionar, olha o fonte EMAIL_SSL.PRG

Isso:

#if ! defined( __HBSCRIPT__HBSHELL )
REQUEST __HBEXTERN__HBSSL__
#endif

e isso:

IF ! tip_SSL()
RETURN Nil
ENDIF

GMAIL que é o que eu uso precisa de SSL pra autenticar.

O demo.prg tem o exemplo é só substituir os dados da conta, outra coisa precisa compilar com a lib que está na pasta LIBSSL
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

email com Harbour

Mensagempor asimoes » 24 Abr 2018 16:31

Olá,

qual é o provedor de email ?
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

email com Harbour

Mensagempor asimoes » 24 Abr 2018 16:43

Isso aqui parece estar errado

'conta@servidor.com' , ; // POP3 USERNAME

Username é o nome do usuário da conta não do email
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google Adsense [Bot] 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