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 gralak » 15 Jun 2010 17:48

Iai galera estou precisando implementar email pelo Xharbour alguém saberia como eu posso fazer isso
que bibliotecas usar...
Ou se possivel alugum exemplo vlw té+++
Avatar de usuário

gralak
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 232
Data de registro: 21 Mar 2007 13:28
Cidade/Estado: Cianorte/PR
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Re: Email pelo Xharbour

Mensagempor anacatacombs » 15 Jun 2010 20:04

Caro Colega.
Já verificou se as classes TipMail, TipClientSmtp e TipClientPop não servem para o que vc precisa?

[]'s

Ana
anacatacombs
Membro Master

Membro Master
 
Mensagens: 472
Data de registro: 12 Jul 2005 16:53
Cidade/Estado: Cianorte-Paraná
Curtiu: 2 vezes
Mens.Curtidas: 2 vezes

Re: Email pelo Xharbour

Mensagempor alxsts » 15 Jun 2010 21:54

Olá!

Tem material recente sobre o assunto postado no fórum. Utilize o recurso de busca, que se encontra no canto superior direito da página.
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

Re: Email pelo Xharbour

Mensagempor gralak » 16 Jun 2010 10:40

Então amiga eu inclusive ja estou tentando usar a lib TIP porem com o SENDEMAIL
porem os email não vão para seu destino ...
segue como eu estou mandando

SERVER: smtp.live.com
PORTA: 25
USUARIO PARA EMAL: meuemail@hotmail.com
SENHA: ***************
SERVIDOR POP: pop3.live.com
REMETENTE: remetente@hotmail.com
DESTINATARIO: destinatario@hotmail.com
ASSUNTO: teste
PRIORIDADE: 1
MENSAGEM: Teste 123456
Avatar de usuário

gralak
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 232
Data de registro: 21 Mar 2007 13:28
Cidade/Estado: Cianorte/PR
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Re: Email pelo Xharbour

Mensagempor sygecom » 16 Jun 2010 13:13

Olá gralak,
Se for xharbour >= 1.0.0 pode usar HB_SENDMAIL() veja exemplo:
viewtopic.php?f=4&t=9345&p=52940&hilit=HB_SENDMAIL#p52940
ou
viewtopic.php?f=4&t=7635&hilit=HB_SENDMAIL
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 7006
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 130 vezes

Re: Email pelo Xharbour

Mensagempor gralak » 16 Jun 2010 17:24

Caro amigo o exemplo com a SENDEMAIL para yahoo funcionou blz
mas e para hotmail e gmail que usa a porta direfente da 25 como
eu devo proceder nessa situação ???
Avatar de usuário

gralak
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 232
Data de registro: 21 Mar 2007 13:28
Cidade/Estado: Cianorte/PR
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Re: Email pelo Xharbour

Mensagempor sygecom » 16 Jun 2010 17:41

Em caso de uso com SSL tem que linkar a tipssl.lib(somente com xHarbour >=1.2.0) ou pode usar a rotina abaixo que com windows vai que é uma blz.:
http://www.fivewin.com.br/forum/topic.a ... 3&ARCHIVE=
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 7006
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 130 vezes

Re: Email pelo Xharbour

Mensagempor Maligno » 16 Jun 2010 17:42

Pelo menos no caso do GMail, sei que exigem SSL. Então, tente a porta 587.
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Avatar de usuário

Maligno
Membro Master

Membro Master
 
Mensagens: 6390
Data de registro: 06 Jul 2004 01:40
Cidade/Estado: Londrina/PR
Curtiu: 1 vez
Mens.Curtidas: 14 vezes

Re: Email pelo Xharbour

Mensagempor gralak » 16 Jun 2010 22:13

Então caro amigo Maligno eu ja tentei com a porta 587 mas também não deu certo

E amigo SYGECOM se vc puder disponilizar um exemplo de onde eu devo colocar
o trecho de código do exemplo que vc disponibilizou no link ???
vlw té+++
Avatar de usuário

gralak
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 232
Data de registro: 21 Mar 2007 13:28
Cidade/Estado: Cianorte/PR
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Re: Email pelo Xharbour

Mensagempor Maligno » 16 Jun 2010 22:26

Já não enviou antes algum eMail por servidor com autenticação SSL? Se é a primeira vez, realmente, vai precisar ou só da LIB, ou da LIB e das DLLs (mais provável) que ela por ventura necessite para a autenticação. Eu mesmo tenho de usar duas DLLs no C++ Builder. Mas isso depende da implementação.
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Avatar de usuário

Maligno
Membro Master

Membro Master
 
Mensagens: 6390
Data de registro: 06 Jul 2004 01:40
Cidade/Estado: Londrina/PR
Curtiu: 1 vez
Mens.Curtidas: 14 vezes

Re: Email pelo Xharbour

Mensagempor alaminojunior » 16 Jun 2010 22:43

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

Re: Email pelo Xharbour

Mensagempor sygecom » 16 Jun 2010 23:24

gralak escreveu:E amigo SYGECOM se vc puder disponilizar um exemplo de onde eu devo colocar
o trecho de código do exemplo que vc disponibilizou no link ???

Não deixe de olhar a dica do colega Alamino, abaixo como estou usando com Gmail e Hotmail:

FUNCTION MAIN()

aFiles   :={"c:\anexo.pdf"}
cSubject :="Asunto do Email"
aQuem    :="destino@servidor.com.br"
cMsg     :="Corpo da Mensagem"
cServerIp:="smtp.live.com"
cFrom    :="emitente@hotmail.com"
cUser    :="emitente@hotmail.com"
cPass    :="senha"
vPORTSMTP:=25
aCC      :="copia@hotmail.com"
aBCC     :="copia_oculta@hotmail.com"
lCONF    :=.F.
lSSL     :=.T.

CONFIG_MAIL(aFiles,cSubject,aQuem,cMsg,cServerIp,cFrom,cUser,cPass,vPORTSMTP,aCC,aBCC,lCONF,lSSL)

RETURN

**********************************************************************************************************
FUNCTION CONFIG_MAIL(aFiles,cSubject,aQuem,cMsg,cServerIp,cFrom,cUser,cPass,vPORTSMTP,aCC,aBCC,lCONF,lSSL)
**********************************************************************************************************
local lRet := .f.
local oCfg, oError
local lAut  := .t.

  TRY
    oCfg := CREATEOBJECT( "CDO.Configuration" )
      WITH OBJECT oCfg:Fields
           :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver"             ):Value := cServerIp
           :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport"         ):Value := vPORTSMTP
           :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing"              ):Value := 2
           :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"       ):Value := lAut
           :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl"             ):Value := lSSL
           :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername"           ):Value := alltrim(cUser)
           :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword"           ):Value := alltrim(cPass)
           //:Item( "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"  ):Value := 30
              :Update()
      END WITH
      lRet := .t.
  CATCH oError
    MsgInfo( "Não Foi possível Enviar o e-Mail!"  +HB_OsNewLine()+ ;
             "Error: "     + Transform(oError:GenCode,   nil) + ";" +HB_OsNewLine()+ ;
             "SubC: "      + Transform(oError:SubCode,   nil) + ";" +HB_OsNewLine()+ ;
             "OSCode: "    + Transform(oError:OsCode,    nil) + ";" +HB_OsNewLine()+ ;
             "SubSystem: " + Transform(oError:SubSystem, nil) + ";" +HB_OsNewLine()+ ;
             "Mensaje: "   + oError:Description, "Atenção" )

  END
  //--> FIM DAS CONFIGURAÇOES.
  if lRet
     lRet := Envia_Mail(oCfg,cFrom,aQuem,aFiles,cSubject,cMsg,aCC,aBCC,lCONF)
  endif

Return lRet

********************************************************************************
Function Envia_Mail(oCfg,cFrom,cDest,aFiles,cSubject,cMsg,aCC,aBCC,vEMAIL_CONF)
********************************************************************************
  local aTo := {}
  local lRet := .f.
  local nEle, oError

  aTo      := { cDest } //--> PARA
  nEle := 1

   for i:=1 to len(aTo)
       TRY
         oMsg := CREATEOBJECT ( "CDO.Message" )
           WITH OBJECT oMsg
                :Configuration = oCfg
                :From = cFrom
                :To = aTo[i]
                :Cc = aCC
                :BCC = aBCC
                :Subject = cSubject
                :TextBody = cMsg
                For x := 1 To Len( aFiles )
                    :AddAttachment(AllTrim(aFiles[x]))
                Next
                IF vEMAIL_CONF=.T.
                   :Fields( "urn:schemas:mailheader:disposition-notification-to" ):Value := cFrom
                   :Fields:update()
                ENDIF
                :Send()
           END WITH
           lRet := .t.
       CATCH oError
           MsgInfo("Não Foi Possível Enviar," +HB_OsNewLine()+;
                         "a Mensagem: "             +HB_OsNewLine()+;
                               cSubject                   +HB_OsNewLine()+;
                               "p/ o eMail: " + aTo[i] +HB_OsNewLine()+;
                   " - Erro: " + + oError:Description , "Atenção" )
           lRet := .f.
       END
   next

Return lRet
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 7006
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 130 vezes

Re: Email pelo Xharbour

Mensagempor gralak » 17 Jun 2010 16:52

Então Amigos implemetei o código repassado pelo SYGECOM
mas retornou uma menssagem de erro até onde eu vi
no código tem uma variavel chamada wSSL_EMAIL oque deveria ir nela ... ????
Avatar de usuário

gralak
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 232
Data de registro: 21 Mar 2007 13:28
Cidade/Estado: Cianorte/PR
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Re: Email pelo Xharbour

Mensagempor sygecom » 17 Jun 2010 17:03

Desculpa na correria, coloquei errado, mas já ajustei no post do código.
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 7006
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 130 vezes

Re: Email pelo Xharbour

Mensagempor gralak » 18 Jun 2010 10:26

Nossa ta complicado resolver isso em hahahhahah
agora ta dando um retorno com o seguite erro:

DISP_MEMBERNOTFOUND

oque seria ...
Avatar de usuário

gralak
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 232
Data de registro: 21 Mar 2007 13:28
Cidade/Estado: Cianorte/PR
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Próximo



Retornar para Harbour

Quem está online

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