Página 1 de 1
SMTPSEND no Harbour
Enviado: 19 Abr 2021 18:02
por reinaldo
Boa Tarde, amigos
Estou começando no Harbour e este Forum já está me ajudando bastante. Sei que logo vou precisar dele.
Baixei o Harbour 3.2
Um programa que uso muito no Clipper é o SMTPSEND.
Como faço para executá-lo no Harbour
Obrigado
SMTPSEND no Harbour
Enviado: 19 Abr 2021 18:24
por Itamar M. Lins Jr.
Olá!
No harbour usamos tip_MailSend().
Mas vc pode usar o smtpsend igual no Clipper. Eu não sei como vc usa no Clipper, se for um programa externo, pode chamar igual faz no Clipper.
Aqui no forum tem alguns exemplos de MAILSEND.
Tem o CURL também, mas é mais complicado de usar.
Como diz o espanhol "mira" na pasta do harbour \contrib\hbtip\tests\email.prg
Saudações,
Itamar M. Lins Jr.
SMTPSEND no Harbour
Enviado: 19 Abr 2021 20:25
por reinaldo
Boa Noite, Itamar
Obrigado pela resposta.
Uso o SMTPSEND assim:
MEMOWRIT("E_NVIO.TXT",v_file)
cMacro="SMTPSEND -@E_NVIO.TXT > VERRO.TXT"
!&cMacro.
v_Erro:=MEMOREAD("VERRO.TXT")
Está dando o seguinte erro na execução:
ANTES DA CHAMADA SMTPSEND
Exceção Não Tratada: System.IO>IOException: Identificador Inválido
APÓS O SMTPSEND
em System.IO._Error.WinIOError(Int32 errorCode, String maybeFullPath)
em System.IO._Error.WinIOError()
em System.Console.Clear()
em SmtpSend.Program.ShowProgScreen()
em SmtpSend.Program.Program.Main(String{} args)
Prefiro usar o SMTPSEND porque é comum enviaramos emails para até 30 destinatários (várias empresas envolvidas no processo) e ele permite isso
SMTPSEND no Harbour
Enviado: 19 Abr 2021 20:44
por Itamar M. Lins Jr.
Olá!
Coloca o código fonte que vc usa no clipper e funciona.
Assim não posso testar aqui.
Onde baixo o smtpsend ? Qual é o seu compilador ? Tá parecendo Visual Studio...
Tá parecendo erro do windows. Vc usa clipper com windows para isso ? Ou só funciona no DOS ?
Saudações,
Itamar M. Lins Jr.
SMTPSEND no Harbour
Enviado: 20 Abr 2021 08:01
por JoséQuintas
reinaldo escreveu:Prefiro usar o SMTPSEND porque é comum enviaramos emails para até 30 destinatários (várias empresas envolvidas no processo) e ele permite isso
As centrais de email costumam bloquear assim.
Já testou direto na linha de comando, pra ver se funciona?
A mensagem dá a impressão de que precisa indicar o path completo, o que em programas Windows é relativamente normal, porque o path do prompt não costuma ser o mesmo path default do Windows.
Uma possível alternativa é executar via BAT, se isso fizer diferença para esse smtpsend.
Mas o mais comum seria pela função ShellExecute() da API Windows, indicando o path de execução.
Lembrando que o PATH se refere a TODO COMANDO, e não apenas ao EXE.
SMTPSEND no Harbour
Enviado: 20 Abr 2021 08:15
por JoséQuintas
Não custa avisar:
No começo do Harbour 3.2, há muitos anos, o Harbour tinha problema com PATHs.
Não sei se o seu Harbour 3.2 pode ser daquela época.
SMTPSEND no Harbour
Enviado: 20 Abr 2021 10:15
por reinaldo
Bom dia
Já descobri o erro. O GMAIL está bloqueando. Preciso descobrir, pois envio a muito tempo e nunca falhou.
Fiz um programa simples em Clipper e depois compilei no Harbour.
Usei outro Servidor e está funcionando até em 64 bits.
Vou anexar o programa (não reparem, é muito simples) e o SMTPSEND. Para enviar para 30 remetentes como eu, basta ir repetindo as
linhas "b" e/ou "c"
O corpo do email e o anexo (que podem ser vários, é só repetir a linha) devem arquivo TXT (corpo) e qualquer formato (anexo)
Fico grato se me informarem e como pego a ultima versão do Harbour
Estou começando agora, e certamente vou precisar de mais ajuda.
Obrigado a todos
SMTPSEND no Harbour
Enviado: 20 Abr 2021 11:16
por reinaldo
já consegui me entender com o Gmail