Clipper On Line • Ver Tópico - e-mail no harbour 3.2

e-mail no harbour 3.2

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

Moderador: Moderadores

 

e-mail no harbour 3.2

Mensagempor cjp » 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.
Inacio de Carvalho Neto
cjp
Usuário Nível 6

Usuário Nível 6
 
Mensagens: 1527
Data de registro: 19 Nov 2010 21:29
Cidade/Estado: paraná
Curtiu: 10 vezes
Mens.Curtidas: 20 vezes

e-mail no harbour 3.2

Mensagempor Softwhouse » 14 Ago 2015 17:28

Inácio,

Conseguiu resolver ?
Fernando
Softwhouse
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 300
Data de registro: 07 Dez 2011 17:44
Cidade/Estado: Porto Alegre/RS
Curtiu: 0 vez
Mens.Curtidas: 12 vezes

e-mail no harbour 3.2

Mensagempor cjp » 14 Ago 2015 23:17

Não consegui, meu caro.

Veja acima o resultado das minhas últimas tentativas, sem sucesso.
Inacio de Carvalho Neto
cjp
Usuário Nível 6

Usuário Nível 6
 
Mensagens: 1527
Data de registro: 19 Nov 2010 21:29
Cidade/Estado: paraná
Curtiu: 10 vezes
Mens.Curtidas: 20 vezes

e-mail no harbour 3.2

Mensagempor ANDRIL » 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+
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Avatar de usuário

ANDRIL
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1270
Data de registro: 06 Jul 2004 00:44
Curtiu: 12 vezes
Mens.Curtidas: 46 vezes

e-mail no harbour 3.2

Mensagempor Itamar M. Lins Jr. » 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.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

e-mail no harbour 3.2

Mensagempor cjp » 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?
Inacio de Carvalho Neto
cjp
Usuário Nível 6

Usuário Nível 6
 
Mensagens: 1527
Data de registro: 19 Nov 2010 21:29
Cidade/Estado: paraná
Curtiu: 10 vezes
Mens.Curtidas: 20 vezes

e-mail no harbour 3.2

Mensagempor Itamar M. Lins Jr. » 21 Ago 2015 08:05

Ola!
"cannot find -llibcurl".

Isso não é falta de DLL é falta da CURL LIB.
 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.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

e-mail no harbour 3.2

Mensagempor acf » 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.
acf
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 23
Data de registro: 04 Jun 2006 19:40
Curtiu: 1 vez
Mens.Curtidas: 0 vez

e-mail no harbour 3.2

Mensagempor acf » 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?
acf
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 23
Data de registro: 04 Jun 2006 19:40
Curtiu: 1 vez
Mens.Curtidas: 0 vez

e-mail no harbour 3.2

Mensagempor sygecom » 15 Fev 2016 12:06

Post como está usando e os erros.
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 7006
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 130 vezes

e-mail no harbour 3.2

Mensagempor acf » 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.
acf
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 23
Data de registro: 04 Jun 2006 19:40
Curtiu: 1 vez
Mens.Curtidas: 0 vez

e-mail no harbour 3.2

Mensagempor cjp » 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.
Inacio de Carvalho Neto
cjp
Usuário Nível 6

Usuário Nível 6
 
Mensagens: 1527
Data de registro: 19 Nov 2010 21:29
Cidade/Estado: paraná
Curtiu: 10 vezes
Mens.Curtidas: 20 vezes

e-mail no harbour 3.2

Mensagempor acf » 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.
acf
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 23
Data de registro: 04 Jun 2006 19:40
Curtiu: 1 vez
Mens.Curtidas: 0 vez

e-mail no harbour 3.2

Mensagempor acf » 16 Fev 2016 00:12

jcp,

e com outros e-mails o que muda?

Você usa o hb_SendMail() mesmo ?

Att

Antonio Carlos
acf
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 23
Data de registro: 04 Jun 2006 19:40
Curtiu: 1 vez
Mens.Curtidas: 0 vez

e-mail no harbour 3.2

Mensagempor Fernando queiroz » 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 ???
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

Anterior Próximo



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 7 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