Clipper On Line • Ver Tópico - Email pelo Xharbour

Email pelo Xharbour

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Email pelo Xharbour

Mensagempor alaminojunior » 22 Set 2020 14:00

Sim, também faço desta maneira com exceção de um ponto que não conhecia:

"Erro CDO.: " + win_oleErrorText()
// Essa eu não uso !

Pelo que percebi você recebe com win_oleErorText() uma mensagem de texto com a causa do problema, correto ?

O máximo que consigo usando
oError:Description
é uma string que vem algo como DISP_MEMBERNOTFOUND ou algo assim.

Utilizo xHarbour 1.2.3

Obrigado !
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Avatar de usuário

alaminojunior
Colaborador

Colaborador
 
Mensagens: 1689
Data de registro: 16 Dez 2005 20:26
Cidade/Estado: Ubatuba - SP
Curtiu: 27 vezes
Mens.Curtidas: 11 vezes

Email pelo Xharbour

Mensagempor rochinha » 23 Set 2020 16:04

Amiguinhos,

rossine
Outra coisa. O erro ocorre de que forma? num lote de emails em sequencia, dá erro em todos ou apenas um específico? Verifique se tem caracteres estranhos(invisíveis), vírgulas, etc nos emails.

A variável cTo recebe apenas o email destinatário, ou estás passando algum array?

Eu não tenho como testar o componente pois meu Windows Seven é capado e dá erro ao tentar instalar componentes do sistema. E CDOSYS é um deles.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

Email pelo Xharbour

Mensagempor rossine » 24 Set 2020 16:36

Boa tarde,

Verificando melhor minha rotina de envio de email, onde não era o foco da minha atenção em descobrir o problema, reparei que minha rotina abre o arquivo a ser enviado para testar se o arquivo está liberado para envio, assim:

function ENVIA_EMAIL( cFile, ... )

...

h := FOpen( cFile )
   
IF (h == -1)
   RETURN .F.
endif

fclose( h )  // <<<<<<< Aqui não tinha esta linha ???????
...

lRet := SendCDOMail( cMailServer, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass, nPort, cFile )

returen lRet



Reparem que eu me esqueci de fechar o arquivo, com isto gerou este problema do "Arquivo ficar travado" no HD. :(

Tenho quase certeza que devo ter pego este código em algum site e ter ajustado aqui para minhas necessidades, então fica a pergunta.
Será que o código já não estava bugado e eu não percebi esta falha ou acidentalmente apaguei esta linha (hehe) ?

Mas de todo caso, peço desculpa pelo "Falso Alarme" por este problema, e refiz os testes aqui e está funcionando corretamente :)

Agradeço ao Rochinha pelas dicas em tentar me ajudar :)
Rossine.

Harbour 3.4, MingW / Msvc, QT, Qt5xhb, GtQtc, DbfCdx, MySql/MariaDB.
rossine
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 313
Data de registro: 06 Ago 2007 09:57
Cidade/Estado: Divinópolis-MG
Curtiu: 1 vez
Mens.Curtidas: 21 vezes

Email pelo Xharbour

Mensagempor rochinha » 25 Set 2020 17:36

Amiguinhos,

rossine
É pra isto que estamos aqui, para somar. Algumas vezes coisas assim nos tiram os poucos cabelos.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

Anterior



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google [Bot] e 4 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro