e-mail no harbour 3.2

[Jairo Maia]

Olá Inácio,

Acrescente em seu arquivo .hbp os seguintes arquivos:

Código: Selecionar todos

hbssl.hbc
hbtip.hbc

A função de mensagem acho que é a HWG_MsgInfo, não seria? É a que está no exemplo acima. Essa função é da HWGUI, substitua pela Hb_Alert() para os testes.

[cjp]

Ainda tá dando erro na compilação: hb_fun_tip_mailsend.

[Jairo Maia]

Olá Inacio,

Entenda como enviar e-mail pelo Gmail e adapte os dados às suas necessidades.

Para melhor entendimento, proceda da seguinte forma:

Fase A-Libere sua conta Gmail para aceitar aplicativo de terceiros:
1-Abra sua conta de email Gmail;
2-Se você tem mais de uma conta Gmail, certifique-se de selecionar a conta que quer liberar;
3-Abra uma nova guia desse link: https://support.google.com/accounts/ans ... 5?hl=pt-BR;
4-Procure a frase: "1-Vá para a seção Apps menos seguros da sua Conta do Google", e clique no link dessa frase;
5-Em: "Permitir aplicativos menos seguros", ATIVE.

Fase B-Feito isso, proceda da seguinte forma:
1-Crie uma nova pasta em seu computador;
2-Descompacte o anexo desse post;
3-Edite o arquivo Gmail.Prg;
4-Coloque as informações de sua conta Gmail;
5-Digite Hbmk2 Gmail.hbp;
6-Será criado o arquivo executável de testes.

-Arquivos do anexo:
Gmail.Prg - fonte do exemplo
Gmail.hbp - script de compilação do hbmk2

FileXML.Xml - arquivo XML (fictício)
FilePDF.Pdf - arquivo PDF (fictício)

E as DLL´s necessários para executar o exemplo. Quando adaptar seu sistema, essas DLL´s (todas) precisam ficar na mesma pasta do executável de seu aplicativo:
libeay32.dll
libgcc_s_dw2-1.dll
libwinpthread-1.dll
ssleay32.dll

Gmail.rar

(860.08 KiB) Baixado 486 vezes

[cjp]

Jairo, em primeiro lugar, muito obrigado pelo seu passo-a-passo, muito bem explicado e fácil de adaptar.

Entretanto, infelizmente, ainda não funcionou. Está dando falta da função tip_mailsend() na compilação. Fiz exatamente da forma como vc disse.

Será que não seria por algum problema na minha versão do Harbour? Uso a 3.2.

[Jairo Maia]

Bom dia Inácio,

É possível que seja o Harbour desatualizado. Baixe o Harbour atualizado aqui e instale (clique em harbour-nightly-win.exe), veja se vai funcionar: https://sourceforge.net/projects/harbou ... s/nightly/

[JoséQuintas]

O nome pode ser diferente entre Harbour 3.4 e 3.2.

hbmk2 -find mail


hbcurl.hbc (não instalado):

hb_curl_mail_address_to_email()
hb_curl_mail_address_to_name()

hbtip.hbc (instalado):

TIPMail()
tip_GetNameEmail()
tip_GetRawEmail()
tip_MailAssemble()
tip_MailSend()

hbwin.hbc (instalado):

win_MAPISendMail()

xhb.hbc (instalado):

HB_LogEmail()

josequintas.hbc (não instalado):

ze_sendmailclass()

[cjp]

Quintas, não sei se te entendi bem, veja a imagem no anexo, por favor.

[cjp]

Jairo, instalei o HB 3.4, mas ainda não deu certo. Veja no anexo, por favor.

[Jairo Maia]

Olá Inácio,

Conforme informa sua mensagem, você tentou compilar com o Harbour 3.0.0. Não entendi o que foi que você fez.

Vamos tentar de novo. Proceda da seguinte forma:

1-Baixe o Harbour 3.2 conforma coloquei nesse post: https://pctoledo.org/forum/viewto ... 19#p128219;
2-Instale o Harbour aceitando as definições padrões;

3-Abra o Internet Explorer (não confunda com Windows Explorer);
4-Na janela esquerda clique em Computador;
5-No menu superior clique na aba Propriedades do sistema;
6-Clique em Configurações avançadas do sistema;
7-Clique no botão Variáveis do sistema;
8-Na janela inferior chamada Variáveis do sistema, procure a variável Path e clique sobre ela (uma vez);
9-Clique no botão Editar;
10-Remova qualquer path para o Harbour que houver;
11-Acrescente o caminho onde foi instalado o Harbour, por padrão será na pasta Hb32, então acrescente ;X:\hb32\bin (onde X é a unidade em que você instalou o Harbour)

12-Se posicione na pasta do exemplo;
13-Digite apenas Hbmk2 Gmail.Hbp (sem colocar nenhum path adicional, a pasta já estará no path).

Veja se funciona.

[cjp]

Eu fiz como vc disse. Abrindo o link indicado, cliquei em Download Lastet Version. Não seria aí?

Agora vi que ali está escrito 3.0.

Se não for em Download Lastet Version, é pra baixar como?

[Jairo Maia]

Se não for em Download Lastet Version, é pra baixar como?

Como coloquei na mensagem do link: Clique em harbour-nightly-win.exe. Fica mais abaixo na página.

[cjp]

Desculpe a demora, tive alguns problemas, só agora puder ver isto.

Baixei o 3.4 correto agora. Compilou sem problema.

Mas deu erro na execução. Vide os anexos.

Curioso é que os arquivos .dll citados estão na pasta.

O que ainda estou fazendo errado?

[Daniel]

Ola voce esta com erro no path pois ainda esta compilando com o harbour 3.2
visto pela imagem que voce postou

[cjp]

De fato, vi agora que ele está informando o 3.2.

Mas será que o problema é no path? Estou na própria pasta do 3.4, chamando direto o hbmk2, que está na pasta.

Será que o problema não é na versão baixada, que era pra ser a 3.4, mas ainda está na 3.2?

Digitando só hbmk2, ele aponta de novo a 3.2.

[JoséQuintas]

Vamos repassar:

gmail: precisa liberar lá na conta de gmail

Harbour: precisa gerar com o recurso de comunicação segura, e pode ficar dependente de existir DLL

Detalhes? não sei, não uso o recurso. Uso uma conta que permita emails tradicionais e pronto.