Clipper On Line • Ver Tópico - e-mail no harbour 3.2
Mudar para estilo Clássico
Projeto Harbour - Compilador de código aberto compatível com o Clipper.
Postar uma resposta

e-mail no harbour 3.2

12 Ago 2015 00:56

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.

e-mail no harbour 3.2

14 Ago 2015 17:28

Inácio,

Conseguiu resolver ?

e-mail no harbour 3.2

14 Ago 2015 23:17

Não consegui, meu caro.

Veja acima o resultado das minhas últimas tentativas, sem sucesso.

e-mail no harbour 3.2

15 Ago 2015 08:21

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+

e-mail no harbour 3.2

15 Ago 2015 10:51

Ola!
Baixem o Harbour deste lugar.
http://www.pctoledo.com.br/forum/viewtopic.php?f=43&t=16195

É bem completo.

Saudações,
Itamar M. Lins Jr.

e-mail no harbour 3.2

21 Ago 2015 00:53

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?

e-mail no harbour 3.2

21 Ago 2015 08:05

Ola!
"cannot find -llibcurl".

Isso não é falta de DLL é falta da CURL LIB.
Código:
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.

e-mail no harbour 3.2

15 Fev 2016 09:03

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.

e-mail no harbour 3.2

15 Fev 2016 11:11

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?

e-mail no harbour 3.2

15 Fev 2016 12:06

Post como está usando e os erros.

e-mail no harbour 3.2

15 Fev 2016 22:13

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.

e-mail no harbour 3.2

15 Fev 2016 22:52

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.

e-mail no harbour 3.2

16 Fev 2016 00:06

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.

e-mail no harbour 3.2

16 Fev 2016 00:12

jcp,

e com outros e-mails o que muda?

Você usa o hb_SendMail() mesmo ?

Att

Antonio Carlos

e-mail no harbour 3.2

27 Dez 2018 22:31

? 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 ???
Postar uma resposta