Email CDOSYS no Windows Server 2003

[janio]

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

aSimoes,

Eu cheguei a testar no harbour3.4, e la realmente tem este exemplo onde esperava-se que estivesse funcionando! SÓ QUE NÃO ESTÁ! Testes de 2 a 3 meses atras! So se de la pra ca tenham consertado!

viewtopic.php?f=4&t=9345&p=107036#p107036

Janio

[JoséQuintas]

Jânio, leu a mensagem que coloquei?
Existe uma LIB pra dar esse suporte da conexão do gmail e outras iguais, mas não é criada no Harbour, a não ser que seja instalada a LIB necessária.

Veja:

d:\CVSFiles\vszakats\contrib\hbssl>hbmk2 hbssl
hbmk2: Processing environment options: -comp=msvc
hbmk2: Building sub-project (level 2): hbssls.hbp
hbmk2: Processing environment options: -comp=msvc
hbmk2 [hbssls]: Warning: Missing dependency: openssl
hbmk2 [hbssls]: Hint: Point envvar HBMK_WITH_OPENSSL or HB_WITH_OPENSSL to the
directory containing header 'openssl\ssl.h'
hbmk2 [hbssls]: Hint: Project URL(s): https://www.openssl.org/
https://www.openssl.org/community/binaries.html

d:\CVSFiles\vszakats\contrib\hbssl>

[fladimir]

Com a Tip SSL deu certo MAS... agora o AVAST começou a reclamar do EXE mesmo não comprimindo os Resources esta dando erro...

Talvez seja pq o EXE exige agora algumas Dlls... exemplo compilei sem compactar e testei no meu server 2003 sem as Dlls pq fiz uma rotina pra baixar, porém se não tiver certa dll (esqueci o nome mas é uma delas do zip q o aSimoes cedeu) nem abre o EXE...

Alexandre vc compacta como seu EXE? O Avast não reclama ai?

[asimoes]

Fladimir,

Compacto com pecompact

Na minha máquina o antivirus é o kaspersky no cliente é avast

[fladimir]

Então aki deu certo mas tive q mexer nos parametros do PECOMPACT

Esses dias devido o FR3 interno no EXE via Resources tive q tirar o parametro pra compactar os Resources.ai blz..

agora como não sabia o q tirar tirei tudo deixei só PECOMPACT e o EXE reduziu cerca de 50%, com os parametros reduzia mais... mas de momento esta ótimo depois estudo com calma cada parametro.

[janio]

Jânio, leu a mensagem que coloquei?
Existe uma LIB pra dar esse suporte da conexão do gmail e outras iguais, mas não é criada no Harbour, a não ser que seja instalada a LIB necessária.

Quintas,

Estou mim referindo a TLS, e não a SSL!

A porta 587 exige conexão TLS, e ao menos que eu saiba, o hotmail mail eh o único que usa essa porta! Gmail usa porta 465 com ssl (blz, não tenho problemas com gmail (e outros que usam porta 465))

[marca]

Bom dia Pessoal.

Estou reativando este tópico devido a ter exatamente este mesmo problema e percebi que o mesmo foi resolvido utilizando outras ferramentas
de envio de email diferentes do CdoSys.

Este problema acontece utilizando um email do gmail para envio, outros provedores continuam enviando normalmente.
usuario@gmail.com

Eu consegui enviar utilizando o Hb_Sendmail() mais para isso tive que incorporar as libs tipssl,Libeay32 e a ssleay32.lib no projeto e suas dlls na pasta da aplicação.
e pra funcionar ainda tive que enviar o usuário sem o dominio -> @gmail.com passando somente "usuario"

Mais com o CdoSys estou procurando na Net já a alguns dias e não vi solução.
O que esta me intrigando é que tenho em vários clientes o Windows Server 2003 inclusive o meu aqui é exatamente o 2003 e funciona perfeitamente
Mais em alguns clientes que também usam o Server2003, não funciona de jeito nenhum o que me leva a crer que falta algo nestes que não enviam e o complicado esta sendo descobrir o que é.

Percebi que no Hb_sendMail tive que configurar o cPopServer := 'pop.gmail.com:995'
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
aTo -> Obrigatório. String ou array de endereços de email para serem enviados
aCC -> Opcional. String ou array de endereços de email para CC (Carbon Copy)
aBCC -> Opcional. String ou array de endereços de email para BCC (Blind Carbon Copy)
cBody -> Opcional. A mensagem do corpo do email como texto ou arquivo HTML
cSubject -> Opcional. Assunto do email
aFiles -> Opcional. Array de arquivos para serem enviados como anexo
cUser -> Obrigatório. Nome de usuário do servidor POP3
cPass -> Obrigatório. Senha do cUser
cPopServer -> Obrigatório. Nome ou endereço do servidor de emails POP3 [sic][Usa-se o SMTP para enviar email]
nPriority -> Opcional. Prioridade do Email: 1=Alta, 3=Normal (Padrão), 5=Baixa
lRead -> Opcional. Se for .T., uma requisição de confirmação será solicitada. Por padrão é .F.
lTrace -> Opcional. Se for .T., um arquivo de log é criado (sendmail<nNr>.log). O padrão é .F.
lnoauth -> Opcional. Desativa método de autenticação
nTimeOut -> Opcional. Número de milisegundos para esperar. O padrão é 20000 (20s).
*/




cServ := "smtp.gmail.com"
cUser := ---> apesar do usuário ser "usuario@gmail.com" se passar com o domínio não vai tendo entao que enviar somente "usuario"
nPort := 465
cPopServer := 'pop.gmail.com:995'
lTrace := .T.
lnoauth := .T. No caso do gmail precisa de autenticação

lRet := HB_SendMail( cServ , nPort, cUser , {'destinatario@dominio.com.br'} , , , 'GMAIl porta 465'+hb_osnewline()+'cBodydfdsfdsfdsf'+hb_osnewline()+'erwerewrewr'+hb_osnewline()+hb_osnewline()+'erewrewrew', 'dsfdfdafdasfcSubject',{'test.xsls','test.xslx','test.xlsx'} , cUser , cPass , cPopServer , , , lTrace, lnoauth , )

Somente assim funcionou.

Será que existe algum tipo de configuração neste nível no Cdo ?

[fladimir]

Eu tentei e não encontrei solução via CDO, não achei um motivo de em alguns locais com windows server 2003 funcionar e outros não, então resolvi colocando um IF generalizando todos os Sistemas Operacionais q forem 2003 usar Tip Mail e os demais continuam com CDO.

[deividdjs]

essa classe_email.prg funciona no xharbour ... porque tento complilar dá erro nessas duas linhas

//#require "hbssl"
//#require "hbtip"

Att,

Deivid