Página 2 de 5

e-mail no harbour 3.2

Enviado: 12 Ago 2015 00:56
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.

e-mail no harbour 3.2

Enviado: 14 Ago 2015 17:28
por Softwhouse
Inácio,

Conseguiu resolver ?

e-mail no harbour 3.2

Enviado: 14 Ago 2015 23:17
por cjp
Não consegui, meu caro.

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

e-mail no harbour 3.2

Enviado: 15 Ago 2015 08:21
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+

e-mail no harbour 3.2

Enviado: 15 Ago 2015 10:51
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.

e-mail no harbour 3.2

Enviado: 21 Ago 2015 00:53
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?

e-mail no harbour 3.2

Enviado: 21 Ago 2015 08:05
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.

e-mail no harbour 3.2

Enviado: 15 Fev 2016 10:03
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.

e-mail no harbour 3.2

Enviado: 15 Fev 2016 12:11
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?

e-mail no harbour 3.2

Enviado: 15 Fev 2016 13:06
por sygecom
Post como está usando e os erros.

e-mail no harbour 3.2

Enviado: 15 Fev 2016 23:13
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.

e-mail no harbour 3.2

Enviado: 15 Fev 2016 23:52
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.

e-mail no harbour 3.2

Enviado: 16 Fev 2016 01:06
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.

e-mail no harbour 3.2

Enviado: 16 Fev 2016 01:12
por acf
jcp,

e com outros e-mails o que muda?

Você usa o hb_SendMail() mesmo ?

Att

Antonio Carlos

e-mail no harbour 3.2

Enviado: 27 Dez 2018 23:31
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 ???