Hb_SendMail()

[Softwhouse]

Não consigo fazer funcionar a função Hb_SendMail() de forma alguma, uso xHarbour 1.0, mudou alguma coisa? Algum exemplo que funcione para o provedor do Correio do Povo? Valeu!

[sygecom]

Mudou apenas a porta de 25 para 587, mas na HB_SENDMAIL() não mudou nada.

[Softwhouse]

Leonardo, a porta do Correio do Povo é a 465. Tem alguma coisa errada nesse código?

Código: Selecionar todos

Function Main()

cServer:= 'smtp.googlemail.com'
nPort:= 465
cFrom:= 'remetente@cpovo.net'
aTo:= {'remetente@cpovo.net'}
cMsg:= 'PDF anexo'
cSubject:= 'Teste de envio de e-mail'
aFiles:={'arquivo.pdf'}
cUser:= 'remetente@cpovo.net'
cPass:= '123456'
cPopServer:= 'pop.gmail.com'

Scroll()

If Hb_SendMail(cServer, nPort, cFrom, aTo,,,cMsg,cSubject,aFiles,;
   cUser, cPass, cPopServer,3,,,,)
Else
   Alert("Não foi possivel enviar o e-mail")
Endif

Return(Nil)

[sygecom]

Fernando,
Tem sim, você está usando SMTP do GoogleMail para enviar e-mail do correio do povo.

Tenho quase certeza que porta 465 é autenticada com SSL, e para isso essa versão do xHarbour 1.0 não roda, a versão mais atual do xHarbour >=1.2.1 já tem a TIPSSL.LIB que da suporte para envio de e-mail com SSL.

[Softwhouse]

Ok, muito obrigado Leonardo. Saberia informar em quais provedores funciona essa função e quais suas respectivas configurações? Preciso enviar arquivos via sistema. As versões posteriores a 1.0 do xHarbour possuem um bug no hitbottom do tbrowse que não foi solucionado, não posso migrar. Grato.

[sygecom]

Ok, muito obrigado Leonardo. Saberia informar em quais provedores funciona essa função e quais suas respectivas configurações? Preciso enviar arquivos via sistema.

Dos provedor gratuito eu não sei lhe dizer, mas eu uso da King Host e não precisa de SSL e tem me atendido muito bem, e a configuração é bem simples: smtp.seusite.com.br , porta:587 e usuário e senha.

As versões posteriores a 1.0 do xHarbour possuem um bug no hitbottom do tbrowse que não foi solucionado, não posso migrar.

Nem sabia disso, também faz tempo que não uso mais o TBROWSE, mas já relatou esse problema no grupo do xHarbour ?

[Softwhouse]

Leonardo, não relatei não, saberia informar qual o link para fazer isso? Compilei com o xHarbour 1.2.1 e também não funcionou de jeito nenhum. Essa função tem no Harbour?

[sygecom]

Post em:
https://groups.google.com/forum/?hl=pt- ... g.xharbour

Nesse grupo talvez alguém posso ajustar o problema, post um exemplo que simule o BUG.

Não sei lhe dizer se tem no Harbour, veja abaixo outro modo de envio de e-mail com xHarbour.
viewtopic.php?f=4&t=10764&hilit=CDO.Configuration#p61323

[Softwhouse]

Leonardo, essa outra forma funcionou perfeitamente com provedor do Correio do Povo mas não teve jeito no Hotmail.
Usei smtp.live.com e porta 587 e 25. Tem que alterar alguma coisa?

[sygecom]

o Hotmail parou mesmo.......eu não consigo também, acho que esse foi bloqueado mesmo. Já tentou usar o Hotmail ele no Outlook Express ?

[Softwhouse]

No outlook não conseguí, no thunderbird funciona.

[sygecom]

Se funciona no thunderbird, tem que funcionar no xHarbour, me passe a configuração exata de como está usando, por que uso thunderbird e não consegui usar o Hotmail.

[Softwhouse]

Quando cadastrei o e-mail do hotmail as configurações foram preenchidas automáticamente.

Ficou assim:

Servidor de envio (SMPT) Microsooft Live Hotmail - smtp.live.com (padrão)

Receber Mensagens:
Tipo: Servidor POP
Servidor POP3.live.com Porta: 995

Segurança de conexão: SSL/TLS
Mode de autenticação: senha normal

[sygecom]

O meu aqui não funciona de jeito algum, você habilitou alguma parâmetro na sua conta do Hotmail(direto no site) ?

[Softwhouse]

Não, não mexi em nada, a conta é bastante antiga.

No xHarbour ficou assim:

aFiles :={'c:\email\OS.pdf'}
cSubject :='Em anexo ordem de servico'
aQuem :='destinatario@hotmail.com'
cMsg :='Teste de envio de ordens de servi‡o p/e-mail'
cServerIp:='smtp.live.com'
cFrom :='remetente@hotmail.com'
cUser :='remetente@hotmail.com'
cPass :='123456'
vPortSmtp:=587
aCC :='remetente@hotmail.com'
aBCC :='terceiro@hotmail.com'
lConf :=.F.
lSSL :=.F.