Enviar E-mail 0.99.70

[fladimir]

.
Olá colegas, pesquisando no fórum ache várias formas de mandar e-mail a q adotei foi a do código abaixo,

Código: Selecionar todos

Function ENVIA_EMAIL()
      LOCAL oSmtp, oEMail
      LOCAL cSmtpUrl
      LOCAL cSubject, cFrom, cTo, cBody, cFile
		
      cSmtpUrl := "smtp://usuario:senha@smtp.mail.yahoo.com.br"
      cFrom    := "usuario@yahoo.com.br"
      cTo      := "usuario@hotmail.com"

      cSubject := "Erro sistema"
      cFile    := NIL //cNOME
      cBody    := "Erro Sistema"

      oEMail   := TIpMail():new()
      oEMail:setHeader( cSubject, cFrom, cTo )
      oEMail:setBody( cBody )
      oEMail:attachFile( cFile )

      // oEMail:hHeaders[ "Disposition-Notification-To" ] := cFrom // solicita confirmacao de recebimento

      oSmtp := TIpClientSmtp():new( cSmtpUrl )

      IF oSmtp:open()
         oSmtp:sendMail( oEMail )
         oSmtp:close()
         Msg( [E-Mail enviado com sucesso] )
      ELSE
         fim_run()
         Msg( "Erro:", oSmtp:lastErrorMessage() )
      ENDIF
RETURN Nil

mas esta dando erro na linha:

Código: Selecionar todos

 oEMail:setHeader( cSubject, cFrom, cTo )

Olhei na documentação do xHarbour e parece q a sintaxe esta ok... alguém sabe resolver isso no xHarbour 0.99.70 sem ter q mudar pra Harbour ou versões novas do xHarbour, digo isto, pois já mudei pra Harbour e versões novas do xHarbour e cheguei a conclusão q por um tempo indeterminado tenho q ficar no 0.99.70, questões aki q não vem de encontro com o tópico.

Agradecendo desde já....

Sucesso!!!!

[fladimir]

Pessoal resolvi compilando com a ultima versão do xHarbour, como eu havia dito queria algo com a versão q usava 0.99.70, mas como não tive resposta fiz com a versão mais nova, agora é torcer para ela não dar problema como tive com outras e tive q voltar pra 0.99.70.


Sucesso!!!

:)Pos

[fladimir]

Era o q temia... PROBLEMAS....

Onde td ocorre normal na versão 0.99.70 agora nesta versão nova 1.2.1 o e-mail deu certo mas afetou uma consulta q tenho das vendas do dia (via Dbedit) onde o simples fato de apertar a SETA pra direita, cima, abaixo ou esquerda faz RETORNAR ao Menu principal.

Resumindo, não tem como fazer o e-mail funcionar na 0.99.70???

Sucesso!!!

:)Pos

[fladimir]

Resolvi o problema era um Return(0) no final da função q no xHarbour 0.99.70 não influenciava, mas o correto era Return(1) troquei e até agora esta dando certo E-mail e demais funções, coloquei em um cliente teste pra ver se aparece mais algum problema....

Resumindo...

trocado o Return(0) por Return(1)
mantive a versão atualizada do xHarbour 1.2.1


Sucesso!!!!

:)Pos

[fladimir]

É pessoal, esqueçam td q disse anteriormente, o xHarbour 1.2.1 e o DbEdit tem muitas incompatibilidades, rotinas q estavam 100% começaram a apresentar problemas.

Status.

Voltei pro 0.99.70 e parei com o e-mail por enquanto até ver como vou fazer.

Grato a todos

Sucesso!!! :)Pos

[gvc]

Para resolver os problemas do DBEdit eu compilei os fontes dele junto com a aplicação.
Vc já tentou isso?

[fladimir]

uma vez tentei e na época 2007 não tinha dado... vc tem ai pra passar ? Vou tentar novamente com o xHarbour novo, quem sabe resolve...


Outra idéia q tive, mas não achei seria eu compilar os fontes do 0.99.70 com o tip do xHarbour novo, acredito q resolva, pois o problema, ao meu ver, é no source do TIP, mas não tenho o Source do 0.99.70

Sucesso!!! :)Pos

[fladimir]

Povo olha a loucura....

RESET GERAL pra não confundir mais do q estou confuso...

Resolvi da seguinte maneira....


- xHarbour 1.2.1 via CVS compilado com BCC55 blz.... manda e-mail direitinho Bagunça o DBedit, consequentemente td meu sistema
- Idéia GVC - compilar junto o DBEdit, como funcionava o sistema tranquilo na versão 0.99.70, procurei e achei em um backup antigo os fontes do xHarbour 0.99.70, peguei somente o DbEdit.prg e compilei junto com o sistema
- Resultado, funcionando DbEdit e E-mail.

Vlw a força GVC...

Sucesso a tds!!!!

:)Pos

[sygecom]

Realmente na 09970 não tinha ainda HB_SENDMAIL, mas esse negocio do DBEDIT, você pode mudar para TBROWSE que desde da época do clipper já era melhor para navegação.