Email pelo xHarbour

[Laudelino Scarmagnani]

Olá, pessoal
Preciso de uma ajuda. Pesquisei por aqui, mas estou perdido.
Alguem tem um exemplo de como enviar email pelo xHarbour? O que preciso para configurar os envio de email.
Estou usando xHarbour build 1.0.0 Intl. (SimpLex)
Uso para envio cMacro="SMTPSEND -@E_NVIO.TXT > VERRO.TXT", mas acredito estar fazendo algo errado, pois não consigo enviar.
Se alguém me orientar quanto a isso, agradeço muito.

Estou tentando usar o HB_Sendemail e me retorna Erro ao Enviar Email.
Estou enviando os comandos desta forma:
aFILES := {email_anex}
cServer := "www.ig.com.br"
cSubject := email_assu//"Aqui vai o assunto do seu email"
cFrom := "meuemail@ig.com.br" // email do remetente
cMAILUSER := "meulogin@ig.com.br" // login de acesso do seu email
cPASSWORD := "minhasenha" // sua senha de email
cSMTP := "smtp.ig.com.br" // seu domínio do email
cTo := email_dest //"email@destinatario.com.br" // email do destinatário
cCC := space(1)//cFrom // manda cópia carbono pra você mesmo ter certeza que deu certo
aAttach := {email_anex} //caminho do arquivo // sempre array
cBody := email_assu
nEMAILSIZE := HB_FSIZE(email_anex) / 1024
@ 24,00 SAY PADC("Enviando email... ("+ALLTRIM(STR(nEMAILSIZE))+"Kb) AGUARDE!",80) COLOR "W+/BG"
IF HB_SENDMAIL(cSMTP,, cFROM, cTO, cCC,, cBODY, cSUBJECT, aAttach, cMAILUSER, cPASSWORD, cSMTP, 1, .T., .T.)
ALERT("ARQUIVOS ENVIADOS COM ÊXITO.")
ELSE
ALERT("Falha ao enviar o email.")
ENDIF

Descobri o log. Está retornando:
20160102-18:19:56 :INETCONNECT( www.ig.com.br, 465 )
>> 19F1364 <<

20160102-18:19:56 :INETERRORCODE( 19F1364 )
>> -1 <<

Laudelino

[JoséQuintas]

vai com calma...
Raciocinar primeiro...

Por acaso o IG deixa enviar email?

Ouvi comentários há pouco tempo atrás que agora só pagando pra usar via programa.

Se for assim, nenhuma rotina vai funcionar se não tiver conta paga.

Já tentou usar um programa de email comum pra fazer um teste?

Nota: quase falei de nome errado em cServer := "www.ig.com.br", mas parece que não serve pra nada.

[Eolo]

Descobri o log. Está retornando:
20160102-18:19:56 :INETCONNECT( www.ig.com.br, 465 )

http://centraldeajuda.ig.com.br/hc/pt-b ... -IMAP-POP-

O servidor de saída (SMTP) requer porta 465 SSL e, talvez, o SMTPSEND use como default a porta 25. Se for isso, não vai funcionar mesmo.

Precisa ver como setar a porta 465 SSL no SMTPSEND (eu não sei como).

[janio]

O IG não está mais funcionando para ENVIAR e nem RECEBER email. A não ser que vc pague!

Janio

[Laudelino Scarmagnani]

Opa, boa tarde!
Eolo, Prazer em falar contigo novamente! Grande abraço. Me ajudaste muito, no início, na migração do Clipper ao xHarbour!
Boa tarde, José Quintas! Estou pagando o email da ig. No ACBrMonitorPlus, consigo enviar email das notas fiscais. Não estou conseguindo enviar arquivos. Pode ser que dê, mas não consegui.
Acredito que deva funcionar, é questão de configurar. Testei de várias formas. Chegou a retornar outras mensagens no log gerado.
Se não for possível este, qual a sugestão para envio de email via sistema?
Abraços.
Laudelino.

[Kapiaba]

Boa tarde, o IG grátis, funciona, mas se for corporativo, passado o limite de envios de emails, ele bloqueia o envio. Tenho um email de testes no ig, e está funcioando normal, conforme tela abaixo:

[Kapiaba]

Configuração do servidor de emails do IG:



abs.

[Laudelino Scarmagnani]

Kapiaba, boa tarde!
Tens como me enviar os dados que voce envia ao Hb_sendmail? Ou, dar uma olha nos meus comandos onde estou errando?
Abraços.
Laudelino

[Eolo]

http://centraldeajuda.ig.com.br/hc/pt-b ... -IMAP-POP-

O servidor de saída (SMTP) requer porta 465 SSL e, talvez, o SMTPSEND use como default a porta 25. Se for isso, não vai funcionar mesmo.

Precisa ver como setar a porta 465 SSL no SMTPSEND (eu não sei como).

Laudelino,

Como eu comentei antes (confirmado nas imagens publicadas depois pelo Kapiaba), tem que usar a porta 465.

Se você setar outra porta, usando qualquer cliente (seja o Outlook, o SMTPsend ou outros), não vai funcionar, porque o servidor SMTP da IG vai refugar a conexão.

E as portas mudam, de servidor pra servidor, POP e SMTP.
Exemplos:
- Gmail - POP 995 SSL – SMTP 465 SSL
- UOL – POP 995 SSL – SMTP 587 sem SSL.
- IG – POP 993 SSL – SMTP 465 SSL ou 587 TLS

(outro dia, configurei o Outlook do meu irmão, servidor Távola, eles ainda usam a porta SMTP 25...)

O que tem que fazer, então, é descobrir como configurar o SMTPSend pra usar a porta que o IG exige, ou seja, a 465 ou 587.

Na dúvida, faça o teste: configure essa conta IG no Outlook e sete a porta 25 pro SMTP. Não vai funcionar, igual ao SMTPSend...

[Kapiaba]

Boa tarde, como não uso modo console, fico devendo. mas veja se este exemplo te ajuda:

http://www.linguagemclipper.com.br/book/export/html/48

Abs

[Eolo]

FUNCTION HB_SendMail( cServer, nPort, cFrom, aTo, aCC, aBCC, cBody, cSubject, aFiles, cUser, cPass, cPopServer, nPriority, lRead, lTrace, lPopAuth, lnoauth, nTimeOut)
/*
cServer -> Obrigatório. IP ou domínio do servidor de emails
nPort -> Opcional. Porta usada pelo servidor de emails
cFrom -> Obrigatório. Email do remetente
...

Laudelino,

Legal o que o Kapiaba postou.

Veja que aparece em segundo lugar, na listagem dos parâmetros, o “nPort”, que é usado pra definir (opcionalmente) qual porta é usada pelo servidor.

Talvez seja opcional porque antes todos usavam a porta 25, então não precisava chover no molhado. Quando a conexão batia no servidor, ela já era direcionada pra porta 25. Talvez...


Então, no seu exemplo, veja que vc suprime o segundo parâmetro nPort. Tente fazer a seguinte:

IF HB_SENDMAIL(cSMTP,, cFROM, cTO, cCC,, cBODY, cSUBJECT, aAttach, cMAILUSER, cPASSWORD, cSMTP, 1, .T., .T.)

por

nPort:=”465”
IF HB_SENDMAIL(cSMTP,nPort, cFROM, cTO, cCC,, cBODY, cSUBJECT, aAttach, cMAILUSER, cPASSWORD, cSMTP, 1, .T., .T.)

Não sei é string (“465”) ou número (465), mas é só testar rodando com um ou outro.