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 Daniel » 15 Jan 2018 09:21

Acho que voce esta usando o comando WITH errado

WITH OBJECT oMsg
                :MDNRequested = .T.
                :Configuration = oCfg
                :From = cFrom
                :To = aTo[i]
                :CC = aCC
                :BCC = aBCC
                :Subject = cSubject
                :Sender = cdpar000->fantasia
                :ReplyTo = cFrom
                :Organization = cdpar000->razao
                if !uso
                   cMsg = strtran( cMsg, chr(13)+chr(10) , '<br>' )
                   :HTMLBody = "<h3>"+cMsg+"</h3>"
                else
                   :TextBody = cMsg
                endif         
                For x := 1 To Len( aFiles )
                    :AddAttachment(AllTrim(aFiles[x]))
                Next
                IF vEMAIL_CONF
                   :Fields("urn:schemas:mailheader:disposition-notification-to"):Value:= cFrom
                   :Fields("urn:schemas:mailheader:return-receipt-to"):Value:= cFrom
                ENDIF
                :Fields:update()
                :Send()
           END WITH
Daniel

Harbour + Minigui + dbfcdx
Marinas-Gui Pena que parou o suporte
Avatar de usuário

Daniel
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 373
Data de registro: 13 Ago 2003 22:42
Cidade/Estado: Apucarana - PR
Curtiu: 0 vez
Mens.Curtidas: 36 vezes

Email pelo Xharbour

Mensagempor alaminojunior » 15 Jan 2018 09:54

Daniel, pode até ser, mas tem funcionado assim há uns 10 anos.
Poderia apontar o que achou estranho ?

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 JoséQuintas » 15 Jan 2018 10:07

TÁ TUDO ERRADO!!!!!

Começou dizendo que foi a mesma mensagem de erro do post.
O ponto principal é: QUAL FOI A MENSAGEM DE ERRO?

Muito provavelmente é uma questão já muito falada no fórum, que dependendo da LIB gráfica o XHarbour funciona de um jeito.

OLE é o uso de recursos existentes no Windows, usando um tipo de ligação entre o programa e o recurso do Windows.

No Harbour isso é feito usando win_OleCreateObject().
No XHarbour depende da LIB gráfica, pode ser CreateObject(), TOleAuto(), xhb_CreateObject(), ou outra coisa diferente que inventaram.
O erro não é na linha da função, o erro é na hora do uso do OLE, dependendo do que está sendo usado, geralmente no Send().
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Email pelo Xharbour

Mensagempor alaminojunior » 15 Jan 2018 10:38

No XHarbour depende da LIB gráfica, pode ser CreateObject(), TOleAuto(), xhb_CreateObject(), ou outra coisa diferente que inventaram.
O erro não é na linha da função, o erro é na hora do uso do OLE, dependendo do que está sendo usado, geralmente no Send().


Na HwGui salvo engano meu (pois já procurei) não existe equivalente, e com isso assumo que está usando a que vem nos fontes do xHarbour.

E minhas rotinas de e-mail tem funcionado normalmente.
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 JoséQuintas » 15 Jan 2018 11:19

Acho que voce esta usando o comando WITH errado


Daniel, o WITH OBJECT até está inútil, mas funciona mesmo assim.

Volto ao que postei:
QUAL A MENSAGEM DE ERRO?
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Email pelo Xharbour

Mensagempor Daniel » 15 Jan 2018 11:39

Quintas
A minha observação seria só sobre o WITH Objeto mesmo
que com ele ou sem funciona do mesmo jeito
Daniel

Harbour + Minigui + dbfcdx
Marinas-Gui Pena que parou o suporte
Avatar de usuário

Daniel
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 373
Data de registro: 13 Ago 2003 22:42
Cidade/Estado: Apucarana - PR
Curtiu: 0 vez
Mens.Curtidas: 36 vezes

Email pelo Xharbour

Mensagempor Shark » 15 Jan 2018 21:14

Tenho tentado usar estes códigos para enviar email mas recebo este erro:

Error description: Error CDO.Message/3 DISP_E_MEMBERNOTFOUND: SEND

Stack Calls
===========
Called from: => TOLEAUTO:SEND( 0 )
Called from: GMAIL.prg => MAIN( 27 )
Shark
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 28
Data de registro: 25 Set 2017 21:42
Cidade/Estado: Brasília - DF
Curtiu: 5 vezes
Mens.Curtidas: 3 vezes

Email pelo Xharbour

Mensagempor alaminojunior » 15 Jan 2018 22:11

Provedores como Gmail, Yahoo entre outros, exigem que você ative no painel de controle da sua conta o recurso de fazer login a partir de aplicativos menos seguros.

Faça isso.
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 » 16 Jan 2018 22:32

Amiguinhos,

Editei meu post várias vezes e ainda deixei erros.

Vamos lá:
alaminojunior
Se você usa o objeto CDO para o envio dos emails a contento isso é boa notícia.

shark
Eu coloquei em meu sistemas vários motores de envio, alguns já ficaram obsoletos, mas a codificação ficou lá. Não deu ainda para podar e deixar um único.

Eu uso o blat.exe via command line(quando o prompt permite), mas algumas vezes uso a blat.dll via OLE.

O problema do Blat é que no caso do Gmail, o servidor SMTP necessita autenticação via SSL na porta 465 ou 587 como podem ver na página de ajuda do Google. Por isso utilizamos o programa, também grátis chamado Stunnel que ajuda o Blat a encaminhar o email de forma segura utilizando SSL na porta smtp do Gmail.

Para ele funcionar é necessário instalar o stunnel(https://www.stunnel.org/?page=downloads). Mas como você falou, tem de mexer nas entranhas do pc do usuário.

Outro dia encontrei o SwithMail.exe. Se digitar no Google dá pra encontrar já que não gravei o site.

Linha de comando:
SwithMail.exe /s /b corpo.txt /a "C:\SISTEMA\REMESSA\NFE110110*.ZIP" /Server smtp.gmail.com /ssl /p 587 /to irochinha@hotmail.com.br /sub "Arquivos da Nota Fiscal Eletronica - Carta de Correcao" /from meuemail@gmail.com /name meuemail@gmail.com /pass minhasenha$321


Se você digitar somente SwithMail.exe uma tela de configuração aparecerá e poderá ser feita a configuração e salva em XML.

A partir daí poderá ser chamado via linha de comando. Procure por exemplos.
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 Shark » 16 Jan 2018 23:39

Dei uma lida nas especificações do SwithMail e no que ele se propõem a fazer Rochinha.

Caso não consiga efetivamente usar funções nativas e códigos xharbour para a tarefa, vou apelar pra esse programa externo aí mesmo.

O que me causa estranheza, é uma funcionalidade tão básica como enviar um simples email, demonstrar-se inexplicavelmente assim: tão complexa e anti funcional.

Acho que deveria existir uma função tipo SendMail( cFrom, cText, aFiles )

Apenas isso enviaria a porcaria do email. Como? usando uma conta default provida pela linguagem. Tipo: se o programador não informar o email, usa-se essa conta default e o email chega no destino assim mesmo.

É uma pena isso não existir.

Me pego a imaginar: se pra enviar um email é essa novela todo, como será receber?
Shark
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 28
Data de registro: 25 Set 2017 21:42
Cidade/Estado: Brasília - DF
Curtiu: 5 vezes
Mens.Curtidas: 3 vezes

Email pelo Xharbour

Mensagempor JoséQuintas » 17 Jan 2018 08:46

Error description: Error CDO.Message/3 DISP_E_MEMBERNOTFOUND: SEND


Isso significa que não existe Send() no objeto que foi criado.

Possibilidades:

- Escreveu o nome errado no CreateObject()
- Não existe o recurso no Windows
- Equivalente a win_OleCreateObject() que foi usado não funciona como deveria

Por enquanto não tem nada a ver com porta 587, comunicação segura, etc.
Tem a ver com não funcionar/existir CDO na variável.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Email pelo Xharbour

Mensagempor JoséQuintas » 17 Jan 2018 08:51

Exemplo do que mencionei:

x := CreateObject( "algo que nao existe" )
x:Send()


Provavelmente isso vai gerar o mesmo erro, porque não existe o objeto indicado.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Email pelo Xharbour

Mensagempor alaminojunior » 17 Jan 2018 09:30

Ele ainda não respondeu se já ativou o login em aplicativos menos seguros no painel do Gmail.
Se não fizer essa configuração, vai retornar esse mesmo erro.
Digo por experiência própria.
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 » 17 Jan 2018 11:47

Amiguinhos,

Me pego a imaginar: se pra enviar um email é essa novela todo, como será receber?

Receber, nunca consegui.

alaminojunior
Entendo que se fosse problema de habilitar algo lá fora, o erro se daria pelo retorno de email do GMail confirmando a impossiblidade. Ao que parece o erro é pela não existência do método no objeto sendo usado.
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 JoséQuintas » 17 Jan 2018 13:39

Novamente.
Tá tudo errado, não existe fonte pra analisar, apenas menciona sobre Send() não funcionar.
Novamente: não tem a ver com GMAIL, PORTA, WITH, nada...

Outro exemplo prático:

cdo.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Anterior Próximo



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google [Bot] e 7 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