Email CDOSYS no Windows Server 2003

Mensagem por **fladimir** » 19 Out 2016 00:30

não funciona dá erro CO_E_ClassString ai percebi q era pq estava sem o arquivo CDOSYS.DLL, mas não encontro CDOSYS.DLL para Windows 2003 Server.

Pelo q li parece q não tem mesmo somente até Windows Server 2000 e depois a partir do Windows Server 2008, tipo deixando esta lacuna aparente no Windows Server 2003...

Vou ter q contornar isto, pq já tentei pegar CDONT.zip (arquivos do Windows 2000) e utilizar no 2003, mesmo registrando com regsvr32 e os nomes das Dlls não funciona.

Então minha ideia é ... indentificar SO se Windows 2003 Server vou ter q executar outra forma de envio de e-mail pelo Harbour sem ser CDOSYS.... alguma sugestão?

Mensagem por **asimoes** » 19 Out 2016 08:28

Fladimir,

Uma alternativa seria usar tip_MailSend

Mensagem por **fladimir** » 19 Out 2016 09:42

Vlw Alexandre vou pesquisar sobre ele.

obrigado.

Mensagem por **Kapiaba** » 19 Out 2016 10:11

Bom dia Fladimir, veja isto:

http://forums.fivetechsupport.com/viewt ... il#p191454

Tem os links para baixar a dll e a lib, qualquer coisa, avise que tenho no meu 4shared.

Testei, e funciona perfeito.

Abs.

Mensagem por **asimoes** » 19 Out 2016 11:49

Fladimir,

Eu tenho uma classe de envio de email usando tip_ mailsend se precisar, publico aqui.

Mensagem por **janio** » 19 Out 2016 12:51

Q-U-E-R-E-M-O-S!

Funciona com Hotmail na porta 587?

Janio

Mensagem por **asimoes** » 19 Out 2016 14:27

Olá Jânio,

Acredito que sim, eu uso com gmail.
Segue exemplo de uso, código da classe em anexo.
(*) As dll´s no zip tem que estar na mesma pasta do executável.

Código: Selecionar todos

oEmail:=ClEmailSSL():New()
oEmail:cUser     :="xhbsistemas"
oEmail:cPassword :="xxxxx"
oEmail:cFrom     :="xhbsistemas@gmail.com"
oEmail:cAlias    :="Sistema AsaPrev <"+oEmail:cFrom+"> "
oEmail:aTo       :={"Alexandre Simäes <asimoesluz@gmail.com>"}
oEmail:aCC       :={"Alexandre Simäes <a_1964_luz@yahoo.com.br>"}
oEmail:cHost     :="smtp.gmail.com"
oEmail:cAssunto  :="Log de erro de sistema em: "+hb_DtoC(Date(),"DD/MM/YYYY")
oEmail:cMensagem :="Log de erro de sistema em: "+hb_DtoC(Date(),"DD/MM/YYYY")+' V.SSL <br>'+cHtmlErro
oEmail:aArquivo  :=aArq
oEmail:cUrlImagem:='https://lh3.googleusercontent.com/-QVwBnkr04oA/Vp0Pa7miUII/AAAAAAAABBg/jh0iCxs2bMA/s279-Ic42/ASAPREV1.PNG'
oEmail:nPorta    :=465
oEmail:lSSL      :=(oEmail:nPorta == 465)
oEmail:Send()

IF oEmail:lRet
   hwg_MsgInfo("Erro enviado ao analista", "Sistema AsaPrev")
ENDIF

Mensagem por **fladimir** » 19 Out 2016 15:14

Vlw Galera.... Vlw Janio Alexandre João (Kapiaba)....

Já sei q vai funcionar p a restrição é somente ao CDO... não testei mas tenho 99% de certeza... os outros 1% volto pra atestar a teoria assim q tiver os resultados.

[]'s

Mensagem por **asimoes** » 19 Out 2016 15:24

Exemplo do email que eu recebo:

Mensagem por **janio** » 19 Out 2016 15:45

Até onde sei, nem tip_ mailsend e nem CDO funcionam com a porta 587 (que exige conexao TLS)

Hotmail funciona na porta 25 ou 587. O problema eh que alguns provedores de internet bloqueia a porta 25

Janio

Mensagem por **asimoes** » 19 Out 2016 16:01

Sabendo destas restrições, porque não usar o GMAIL?
Comigo funciona 100%

Acho que no GMAIL, se não me engano tem alguma coisa para encaminhar email, que pode ser hotmail

Mensagem por **JoséQuintas** » 19 Out 2016 19:27

Até onde sei, nem tip_ mailsend e nem CDO funcionam com a porta 587 (que exige conexao TLS)

Hotmail funciona na porta 25 ou 587. O problema eh que alguns provedores de internet bloqueia a porta 25

Tá precisando se atualizar.
Uma notícia que tá quase completando 4 anos, sobre o fim da porta 25.

https://canaltech.com.br/noticia/segura ... egra-5480/

Mensagem por **asimoes** » 19 Out 2016 19:28

Olhei o fonte da tip_ mailsend, e vi que tem esse trecho:

IF oInMail:OpenSecure( , lSSL )

lAuthTLS := oInMail:lTLS

Isso significa que trabalha com TLS

Mensagem por **JoséQuintas** » 19 Out 2016 19:38

O que sempre esquecem é o seguinte:

Apenas como exemplo:

Eu baixo os fontes do Harbour, e gero o Harbour, usando msvc.
Isso não permite enviar e-mails do gmail, porque a parte necessária para uso do gmail não faz parte do Harbour, é algo adicional.

Lógico, como não uso gmail, nunca me preocupei em mexer nisso.

Tá ai uma boa oportunidade pra descobrir o que precisa ser instalado.
Inclusive se vai precisar instalar alguma DLL no cliente pra poder funcionar.

O mesmo sobre pra libcurl, porque poderia ser substituta pro msxml5 que não faz parte do Windows, e precisa pra NFE, CTE e MDFE.
Depende de instalar alguma coisa no cliente pra funcionar?

Nota: Quanto ao email pelo Harbour, funciona normalmente.

Mensagem por **janio** » 19 Out 2016 22:34

Quintas,

Que a porta 25 foi (deveria ter sido) bloqueada, isso eu sei! Ocorre que alguns provedores de internet NÃO FIZERAM ESSE BLOQUEIO! Daí a porta 25 continuar funcionando para o hotmail!

JUSTAMENTE por saber disso, que essa porta (25) deveria ter sido bloqueada, eh que ESTOU PROCURANDO SOLUÇÃO PARA EMISSAO DE EMAIL PELA PORTA 587 (com TSL)! Até agora essa solução eu não encontrei, nem mesmo no harbour 3.4!

Tenho no sistema a opcao de emissão de email! O cliente cadastra os seus dados (email, senha) e envia relatorios, nfe... por email! Se chego num cliente que o seu email eh do hotmail, tenho enfrentado problemas de alguns funcionar (porta 25 liberada), e outros nao (porta 25 bloqueada)! Para os provedores que tem a porta 25 bloqueada, a solução seria usar a 587, so que nessa porta eh obrigatorio o uso do TSL. Repito: NÃO HA SOLUÇÃO (ainda) PARA ESSE PROBLEMA NO HARBOUR!

Estou atualizadíssimo!
:xau