Código: Selecionar todos
cAssunto:='"'+cAssunto+'"'
vaux:='@ mailsend -sub '+cAssunto
vaux+=' -from '+LOWER(cDe)
vaux+=' -to '+alltrim(cPara)
vaux+=' -smtp '+cServ
vaux+=' -starttls -port 587 -auth'
vaux+=' -portsmtp 587'
if !empty(vanexoxml)
vaux+=' -attach '+vanexoxml
endif
if !empty(vanexopdf)
vaux+=' -attach '+vanexopdf
endif
for z:=1 to len(vetcorpo) // tem que ser linha a linha
vaux+=' -M '+'"'+vetcorpo[z]+'"'
next
vaux+=' -log '+'eresult.txt'
if !empty(cCopia1)
vaux+=' -cc '+alltrim(cCopia1)
endif
if !empty(cCopia2)
vaux+=','+alltrim(cCopia2)
endif
if !empty(cCopia3)
vaux+=','+alltrim(cCopia3)
endif
vaux+=' -user '+vusuario
vsenha:='"'+vsenha+'"'
vaux+=' -pass '+vsenha
Coloque no seu HBP assim:C:\Users\Itamar\Documents\GitHub\harbour-core\contrib\hbcurl\tests>hbmk2 email.p
rg
hbmk2: Processando script local make: hbmk.hbm
Harbour 3.4.0dev (35ed68a) (2014-12-31 14:33)
Copyright (c) 1999-2015, https://github.com/vszakats/harbour-core/
Compiling 'email.prg'...
Lines 167, Functions/Procedures 1
Generating C source output to 'C:\Users\Itamar\AppData\Local\Temp\hbmk_gcnus4.di
r\email.c'... Done.
ou faça como o Mestre Viktor ensina, criar um arquivo assim hbmk.hbmhbcurl.hbc
hbtip.hbc
-w3 -es2
Código: Selecionar todos
hbcurl.hbc
hbtip.hbc
-w3 -es2
Se esse fosse o caso, não se conectaria.JoséQuintas escreveu:Por acaso mudaram a senha e esqueceram de te avisar?
Pois é. Ainda acho que algo está complicando a conexão.Alexandre Silva escreveu:Mas é que tudo vinha funcionando há mais de 2 anos...
Na minha opinião você pode mudar para qualquer outra ferramenta, mas não irá resolver. Seu cliente envia emails diretamente pelo site porque não depende das conexões de porta do computador dele.Alexandre Silva escreveu:Prefiro mudar para o Curl citado acima.. só nao sei complilar