configuracao smtp hotmail

[frkiko]

Francisco:

https? Sim = .T., não funcionou.

https? Nao = .F., não funcionou.

Você tem certeza que funcionou ai, ou xutastes? kkkkkkkkkkkkkkkkkkkkkk

abs.

com essa configuração acabei de ti enviar um email.

Para kmt_karinha@pop.com.br

[frkiko]

Porta 25 .t. .t. não funcionou

[frkiko]

Atenção João verifiquei agora que funciona com esta função:

HB_SendMail(cSmtp,nPortSmtp,cFrom,cTo,cCc,aBcc,cTexto,cAssunto,aFile,cUser,;
cSenha,cPop3,nPriority,lTrace,lPopAuth,lPopAuth,lPopAuth,nTimeOut,)

Porta 587 .t.

[kapiaba]

Francisco, envie para você mesmo, vai ver que não está enviando, a vantagem do CDO é que você controla.

em kmt_karinha@pop.com.br está tudo vazio... kkkkkkkkkkkkkkkkkkkkkk

Não uso HB_SendMai do Harbour, pois só uso XHARBOUR... adogo... kkkkkkkkkkkkkkkk

Obg. abs.

[frkiko]

Como assim vazio.... eu utilizo xharbour sim..... kkkk a lib é a tip.lib

vou verificar de novo aqui....

[kapiaba]

kkkkkkkkkkkkkkkkk, estava e continua vazio, você está sem retorno de envio. Aqui no meu, o bloqueio é autmático da microsoft e o programa manda configurar o enviador de email, só libera quando um email é enviado corretamente.

Francisco, Isto funciona perfeito com os outros provedores, uol então é numa velocidade...

Com outlook.com não vai nem a pau Juvenal. Com se tivesse um bloqueio da micrsoft.

FUNCTION Config_Mail(_cUser,cPass,_cRemt,cDest, cCC, cCCO, cTxt, cSubject)
 
   LOCAL lRet := .F., nConta, lExiste, cAlias, oDlg, cMsg, cTexto, oEnviar
   LOCAL oCfg, oError, oDlgEnvia, oBrush, oFont, oFnt, oGroup
   LOCAL cServPOP3 := aServs[nServ][1] //--> SERVIDOR POP3 - "@servidor.com.br"
   LOCAL cServSMTP := aServs[nServ][2] //--> SERVIDOR SMTP - "smtp.servidor.com.br"
   LOCAL nPort     := aServs[nServ][3]
   LOCAL lAut      := .T.   // Autenticacao? Todos pedem hoje em dia.
   LOCAL lSSL      := aServs[nServ][4]  // .T. ou .F. vem do configrador.
 
   PUBLIC NewAnexo, lNewAnexoVemdaNFe, lVoltaVariosEmails, ;
          lEnvAutoVariosEmails, lLigaBtnAuto
 
   // Envia o email
   IF Empty( cPass )    .OR.  ;
      Empty( _cRemt )   .OR.  ;
      ( Empty( cDest )  .AND. ;
        Empty( cCC )    .AND. ;
        Empty( cCCO ) )
 
      MsgStop( OemToAnsi( "Preencha Todos os Campos " )+CRLF+ ;
               OemToAnsi( "Verifique o Remetente.   " )+CRLF+ ;
               OemToAnsi( "Verifique o Destin rio.  " ), ;
               OemToAnsi( "Aten‡Æo, Falha no Envio. " ) )
 
      RETURN( .F. )
 
   ELSE
 
      cUser := ALLTRIM( _cUser ) + ALLTRIM( cServPOP3 )
      cRemt := ALLTRIM( _cRemt ) + ALLTRIM( cServPOP3 )
 
   ENDIF
 
   TRY
 
      oCfg := CREATEOBJECT( "CDO.Configuration" )
 
      WITH OBJECT oCfg:Fields  // vem do configurador.
 
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver"       ):Value := cServSMTP // Servidor SMTP
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport"   ):Value := nPort
         :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing"        ):Value := 2 // Remote SMTP = 2, local = 1
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := lAut
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl"       ):Value := lSSL
         // By Rafa Carmona - Forum internacional - Nao testei com gmail.com e outlook.com
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusetls"       ):Value := .T. // Para TLS gmail e outlook.com
         :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername"     ):Value := cUser
         :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword"     ):Value := cPass
         // Inlcuido em: 14/01/2014 - nao sei ainda para que serve...
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"):Value := 30  // timeout
 
         :Update()
 
      END WITH
 
      lRet := .T.
 
   CATCH oError
 
      MsgInfo( "Não Foi Possível Enviar o E-Mail!"  +CRLF+ ;
               "Verifique o Remetente            "  +CRLF+ ;
               "Verifique o Destinatário         "  +CRLF+ ;
               "Error: "     + Transform(oError:GenCode,   nil) + ";" +CRLF+ ;
               "SubC: "      + Transform(oError:SubCode,   nil) + ";" +CRLF+ ;
               "OSCode: "    + Transform(oError:OsCode,    nil) + ";" +CRLF+ ;
               "SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ;
               "Mensajem: "  + oError:Description, "Atenção " )
 
   END
 
RETURN( lRet )

[frkiko]

É Hotmail está complicado.... João tenho as duas opções de envio... pois tem servidores que não funcionam em um más funcionam em outro. Vale a Pena ter.

[kapiaba]

Blz. friend, eu acho que a microsoft bloqueou algo mesmo.

Faz uma gentileza, me manda um exemplo fácil de entender de HB_SENDMAIL, no joao@pleno.com.br ou me add no skype no joao@pleno.com.br para a gente ir conversando e eu ir tirando as dúvidas.

Minha sorte é que quase ninguém usa outlook.com e quem usa eu vou pedindo para trocar de provedor.

É sempre bom ter mais de uma opção na vida, né não?

Não esqueça: o exemplo é para "JENIO", não para Genio, ok? kkkkkkkkkkkkkkkkkkkkk

Obg. abs fera...

[frkiko]

Uai semana passa deu certo.... Tá doido.

É muita configuração Gmail/Hotmal/Pop/Ig/Yahoo/Globo.... e ai vai....

Funciona hj depois para e inicia tudo de novo. Eita trem sô.

[kapiaba]

Francisco, isso ainda funciona com você? Consegue ativar o TLS do outloo.com com CDO? Obg. abs.