e-mail no harbour 3.2

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

Moderador: Moderadores

cjp
Usuário Nível 6
Usuário Nível 6
Mensagens: 1563
Registrado em: 19 Nov 2010 22:29
Localização: paraná
Contato:

e-mail no harbour 3.2

Mensagem por cjp »

Eu uso o 3.2.

Testei compilar diretamente o gmail.prg que está na pasta contrib\hbtip\tests. Deu o seguinte erro ao executar:

Imagem

Também testei executar essa função de dentro do meu programa. Como disse antes, ela até roda, retorna .T., mas o destinatário não recebe o e-mail.
Inacio de Carvalho Neto
Softwhouse
Usuário Nível 3
Usuário Nível 3
Mensagens: 324
Registrado em: 07 Dez 2011 18:44
Localização: Porto Alegre/RS

e-mail no harbour 3.2

Mensagem por Softwhouse »

Inácio,

Conseguiu resolver ?
Fernando
cjp
Usuário Nível 6
Usuário Nível 6
Mensagens: 1563
Registrado em: 19 Nov 2010 22:29
Localização: paraná
Contato:

e-mail no harbour 3.2

Mensagem por cjp »

Não consegui, meu caro.

Veja acima o resultado das minhas últimas tentativas, sem sucesso.
Inacio de Carvalho Neto
Avatar do usuário
ANDRIL
Usuário Nível 5
Usuário Nível 5
Mensagens: 1297
Registrado em: 06 Jul 2004 00:44
Contato:

e-mail no harbour 3.2

Mensagem por ANDRIL »

Já verificou se consta essa dll no seu Windows? Se utiliza o AcbrMonitor/AcbrNFeMonitor tem ela instalada no sistema, ou dentro da pasta de instalação desses aplicativos.

Caso não tenha, baixe um dos aplicativos acima apenas para obtê-la se for o caso, acho que não tem como postar em anexo por que zipada chega a 500mb.

Ate+
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

e-mail no harbour 3.2

Mensagem por Itamar M. Lins Jr. »

Ola!
Baixem o Harbour deste lugar.
https://pctoledo.org/forum/viewto ... 43&t=16195

É bem completo.

Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
cjp
Usuário Nível 6
Usuário Nível 6
Mensagens: 1563
Registrado em: 19 Nov 2010 22:29
Localização: paraná
Contato:

e-mail no harbour 3.2

Mensagem por cjp »

Achei várias versões da libeay32.dll no meu computador, mas não tinha nenhuma na pasta do Harbour.

Baixei o HB34 do link sugerido pelo Itamar, peguei essa lib e uma outra pedida e compilei com o HB32.

O gmail.exe, gerado a partir do exemplo do contrib, funcionou perfeitamente. Mas, quando tentei colocar no meu programa, está dando por falta da função hb_fun__hbextern__hbssl__. Quando eu acresço o libcurl.dll na compilação, ele dá "cannot find -llibcurl".

Eu acho que já tinha conseguido compilar com isso antes, não sei porquê agora não está funcionando. Será que esqueci alguma coisa?
Inacio de Carvalho Neto
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

e-mail no harbour 3.2

Mensagem por Itamar M. Lins Jr. »

Ola!
"cannot find -llibcurl".
Isso não é falta de DLL é falta da CURL LIB.

Código: Selecionar todos

 Pasta de C:\hb34\lib\win\mingw

02/07/15  21:02            13.900 liblibcurl.a
               1 arquivo(s)         13.900 bytes
está dando por falta da função hb_fun__hbextern__hbssl__.
Não é aconselhável misturar as versões 3.2 com 3.4.

O problema é que não é assim que devemos usar: Fazendo coisas que não está no escopo da instalação. Misturar A com B ou pegar código do xHarbou etc...

Olhar como está nosso PATH, desinstalar tudo, instalar só o que manda o manual. Estão misturando BCC com Mingw... hbmk2 da versão 3.4 com a versão 3.2...

Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
acf
Usuário Nível 1
Usuário Nível 1
Mensagens: 23
Registrado em: 04 Jun 2006 19:40

e-mail no harbour 3.2

Mensagem por acf »

Olá senhores(as).

Sou novato no harbour, mas converti meu aplicativo do Clipper 5.2 para o Harbour versão 3.2 e está funcionando corretamente sem nenhum problema. Inclusive
já coloquei pra rodar em um cliente para verificar possíveis problemas na conversão.

Estou neste tópico porque como abriu enormes possibilidades no Harbour estou aqui claro tentando enviar e-mail direto do sistema.

Peguei o exemplo GMAIL.PRG que fica na pasta ..\contrib\hbtip\ estou tentando compilar usando o HBMK2, mas ora consigo ora dá erro. Quando consigo gerar o executável e faço teste me retorna numa caixa (MessageBox) o texto:

"GMAIL.EXE - Ponto de entrada não encontrado"
"Não Foi possível localizar o pondo de entrada do procedimento EVP_Carmelia_128_cbc na DLL(dynamic-link library)
C:\hb32\contrib\hbtip\tests\GMAIL.EXE.

Apartir desta mensagem não sei qual o procedimento para resolver.

Este exemplo usa a função hb_SendMail(). É comumente a melhor solução para o envio de e-mail junto com anexos?

A forma de compilar faço usando assim:
hbmk2 gmail.hbp
o conteúdo do arquivo do gmail.hbp esta assim:

hbssl.hbc
hbtip.hbc

-w3 -es2

-oGMAIL
gmail.prg

Como indicados por alguns, consegui configurar a minha conta do gmail pra enviar e receber email por aplicativos não seguro e a porta deixei como 465

Se tiver algum irmão que possa me indicar a forma de como resolver a testar o exemplo fico aqui muito grato.
acf
Usuário Nível 1
Usuário Nível 1
Mensagens: 23
Registrado em: 04 Jun 2006 19:40

e-mail no harbour 3.2

Mensagem por acf »

Coloquei a dll LIBEAY32.DDL na pasta do executável e dai solicitou uma outra dll chamada SSLEAY32.DDL copiei e dai não aparece mais mensagens.

Mas também não enviou um e-mail, porém cria dois arquivos de log chamados smtp-1 e smtp-2 contendo alguns escritos.

O que será que falta ainda?
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

e-mail no harbour 3.2

Mensagem por sygecom »

Post como está usando e os erros.
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
acf
Usuário Nível 1
Usuário Nível 1
Mensagens: 23
Registrado em: 04 Jun 2006 19:40

e-mail no harbour 3.2

Mensagem por acf »

Ufa consegui enviar o email.

Coisa boba mas pra quem esta iniciando, sempre parece complicado.

Simplesmente eu não estava retirando <> da função hb_default( @cFrom , "<myemail@gmail.com>" )

Feito isso, deu certo.

Fico grato Leonardo pela disponibilidade em me ajudar.
cjp
Usuário Nível 6
Usuário Nível 6
Mensagens: 1563
Registrado em: 19 Nov 2010 22:29
Localização: paraná
Contato:

e-mail no harbour 3.2

Mensagem por cjp »

Você conseguiu enviar e-mail pelo Gmail? Por favor, passe o caminho das pedras, pois faz tempo que estou tentando fazer isso e não consigo. Consigo com outros e-mails, mas do Gmail não consigo.
Inacio de Carvalho Neto
acf
Usuário Nível 1
Usuário Nível 1
Mensagens: 23
Registrado em: 04 Jun 2006 19:40

e-mail no harbour 3.2

Mensagem por acf »

jcp,

por enquanto estou apenas utilizando o exemplo (GMAIL.PRG) que esta na pasta HB32\CONTRIB\HBTIP\TESTS
funcionou uma beleza. Fiz alguns teste com arquivos anexos e com cópias.

GMAIL.PRG:
/*
* Copyright 2009 Viktor Szakats (vszakats.net/harbour)
* www - http://harbour-project.org
*
* Gmail work with ssl on port 465 and with tls on port 587
* tls mode is fully automatic and require that ssl must be disabled at first (We will activate it on request after STARTTLS command)
*/

#require "hbssl"
#require "hbtip"

REQUEST __HBEXTERN__HBSSL__

#include "simpleio.ch"

Main("myname@domain.com", "password", "addressee@domain.com", "465")

PROCEDURE Main( cFrom, cPassword, cTo, cPort, cCCopia)

IF !tip_SSL()
? "Error: Requires SSL support"
RETURN
ENDIF

hb_default( @cFrom , "<myname@gmail.com>" ) // Aqui vc sabe melhor, que deve muda-los
hb_default( @cPassword, "<mypassword>" )
hb_default( @cTo , "<addressee@domain.com>" )
hb_default( @cPort , "465" )
hb_default( @cCCopia , "<CCaddressee@domain.com>" )

? hb_SendMail( ;
"smtp.gmail.com", ;
Val(cPort), ;
cFrom, ;
cTo, ;
cCCopia /* NIL CC */, ;
{} /* BCC */, ;
"Aqui o corpo da mensagem.", ;
"Aqui o Titulo da mensagem "+cPort, ;
NIL /* attachment */, ;
cFrom, ;
cPassword, ;
"", ;
NIL /* nPriority */, ;
NIL /* lRead */, ;
.T. /* lTrace */, ;
.F., ;
NIL /* lNoAuth */, ;
NIL /* nTimeOut */, ;
NIL /* cReplyTo */, ;
iif(cPort=="465",.T.,.F.) /* lSSL */ )

RETURN

- Copiei para a pasta que é criado o executavel GMAIL.EXE as dll´s LIBEAY32.DLL e SSLEAY32.DLL (No seu computador que ira encontra-los)

-Configurei a minha conta do gmail. Ativei POP e IMAP e trambem em Outras Configurações da conta do Google -> Aplicativos e sites conectados -> Permitir aplicativos menos seguros, ATIVE.

- Adicionei uma conta na conta de e-mail do outlook (Isso é necessario?)

- Compilei da seguinte forma:
HBMK2 GMAIL.HBP

- o gmail.hbp esta assim. (É bom colocar os arquivos abaixo na mesma pasta também)
hbssl.hbc
hbtip.hbc

-w3 -es2

-oGMAIL
gmail.prg


Isso é tudo!

Desculpe mas ainda não sei como colocar no modo que fica um código na mensagem. (tela azul)
Acredito que para você também não era necessário colocar o código fonte como exemplo, mas serve pra outros também.
acf
Usuário Nível 1
Usuário Nível 1
Mensagens: 23
Registrado em: 04 Jun 2006 19:40

e-mail no harbour 3.2

Mensagem por acf »

jcp,

e com outros e-mails o que muda?

Você usa o hb_SendMail() mesmo ?

Att

Antonio Carlos
Fernando queiroz
Usuário Nível 4
Usuário Nível 4
Mensagens: 779
Registrado em: 13 Nov 2014 00:41
Localização: Porto Alegre/RS

e-mail no harbour 3.2

Mensagem por Fernando queiroz »

? hb_SendMail( ;
"smtp.gmail.com", ;
Val(cPort), ;
cFrom, ;
cTo, ;
NIL /* CC */, ;
{} /* BCC */, ;
"NF-e: " + "00001" + "/" + "000000001" +" Emitida para: " + "NOME DO CLIENTE FULANO DE TAL" + " CPF/CNPJ: " + "05.597.127/0001-53", ;
"CASA CEARENSE"+" - NF-E NOTA FISCAL ELETRONICA", ;
"C:\BENE\XML12181111194159000100550010000070421527821207.XML", ;
cFrom, ;
cPassword, ;
"", ;
NIL /* nPriority */, ;
NIL /* lRead */, ;
.T. /* lTrace */, ;
.F., ;
NIL /* lNoAuth */, ;
NIL /* nTimeOut */, ;
NIL /* cReplyTo */, ;
iif(cPort=="465",.T.,.F.) /* lSSL */ )


FIZ o anexo dessa forma mas não funcionou, alguém tem exemplo ???
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Responder