email com Harbour

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

Moderador: Moderadores

Avatar do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

email com Harbour

Mensagem por asimoes »

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 do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

email com Harbour

Mensagem por JoséQuintas »

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 mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"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 do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

email com Harbour

Mensagem por asimoes »

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 do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

email com Harbour

Mensagem por asimoes »

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 111 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 do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

email com Harbour

Mensagem por asimoes »

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 do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

email com Harbour

Mensagem por asimoes »

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 do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

email com Harbour

Mensagem por asimoes »

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 105 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 do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

email com Harbour

Mensagem por asimoes »

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 do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

email com Harbour

Mensagem por asimoes »

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 do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

email com Harbour

Mensagem por asimoes »

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)
Responder