Clipper On Line • Ver Tópico - Email pelo Xharbour
Mudar para estilo Clássico
Projeto Harbour - Compilador de código aberto compatível com o Clipper.
Postar uma resposta

Email pelo Xharbour

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é+++

Re: Email pelo Xharbour

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

Re: Email pelo Xharbour

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.

Re: Email pelo Xharbour

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

Re: Email pelo Xharbour

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

Re: Email pelo Xharbour

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

Re: Email pelo Xharbour

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=

Re: Email pelo Xharbour

16 Jun 2010 17:42

Pelo menos no caso do GMail, sei que exigem SSL. Então, tente a porta 587.

Re: Email pelo Xharbour

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é+++

Re: Email pelo Xharbour

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.

Re: Email pelo Xharbour

16 Jun 2010 22:43

Dá uma olhada http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=9345&start=15#p61297

Re: Email pelo Xharbour

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:

Código:
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

Re: Email pelo Xharbour

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 ... ????

Re: Email pelo Xharbour

17 Jun 2010 17:03

Desculpa na correria, coloquei errado, mas já ajustei no post do código.

Re: Email pelo Xharbour

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 ...
Postar uma resposta