PC Toledo

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

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>

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?

Fladimir,

Compacto com pecompact

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

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.

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))

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 ?

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.

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

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

Att,

Deivid