SMTPSend.exe?

[Kapiaba]

https://pctoledo.org/forum/viewto ... =39&t=9537

Boa Tarde, alguém tem um DEMO em FIVEWIN usando: SMTPSend.exe?

Gracias, tks.

Regards, saludos.

[Kapiaba]

Senhores, quase funcionou, mas esta pedindo lSSL, lTLS, como informo ao
SMTPSEND.exe? E onde baixar o mais atual?

Código: Selecionar todos

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL cDe, cPara, cMensagem, cCC, cBCC, cSMTP, cAssunto, cAnexo, cSenhMail, ;
         nPort, lSSL, lTLS

   cDe       := "joao@pleno.com.br"

   cPara     := "kapiabafwh@gmail.com"

   cMensagem := "TESTE DE SENDMAIL VIA SMTPSEND/XHARBOUR 2"

   cCC       := "karinhafwh@gmail.com"

   cBCC      :=  SPACE(10)

   cSMTP     := "smtp.pleno.com.br"

   cAssunto  := "TESTE DE SENDMAIL VIA SMTPSEND/XHARBOUR"

   cAnexo    := SPACE(10)

   cFileName := "HTM.TXT"

   cSenhMail := "XXXXXXXPPPPPP24Katacombe"

   nPort     := "587"

   lSSL      := .F. // Nao sei como informar isso ao enviador.

   lTLS      := .F.

   EnviaHotMail( cDe, cPara, cMensagem, cCC, cBCC, cSMTP, cAssunto,    ;
                 cAnexo, cSenhMail, nPort, lSSL, lTLS )

RETURN NIL

FUNCTION EnviaHotMail( cDe, cPara, cMensagem, cCC, cBCC, cSMTP, cAssunto,    ;
                       cAnexo, cSenhMail, nPort, lSSL, lTLS )

   LOCAL cFileName, cFileTxt, cFileRet, lRet := .F., pPath, oError

   // pPath := CurDrive() + ":\" + CurDir() + "\"
   pPath := cFilePath( getModuleFileName( GetInstance() ) )

   TRY

      cFileName := "htm.txt" // Cria arquivo HTML com a Mensagem

      MemoWrit( cFileName, cMensagem )

      cFileTxt  := "cmd.txt" // Cria arquivo TXT para o Comandos

      cFileRet  := "Ret.txt" // Cria arquivo TXT para o Retorno

      MemoWrit( cFileTxT, "-f"    + cDe        + CRLF + ;
                          "-t"    + cPara      + CRLF + ;
                          "-c"    + cCC        + CRLF + ;
                          "-b"    + cBCC       + CRLF + ;
                          "-h"    + cSMTP      + CRLF + ;
                          "-s"    + cAssunto   + CRLF + ;
                          "-a"    + cAnexo     + CRLF + ;
                          "-mbhi" + cFileName  + CRLF + ;
                          "-lu"   + cDe        + CRLF + ;
                          "-p"    + nPort      + CRLF + ; // Port (default is port 25)
                          "-lp"   + cSenhMail  + CRLF + ;
                          "-mfH"               + CRLF + ;
                          "-dNFSD"             + CRLF )

      // Executa o smtpsend.exe
      MyRun( pPath + "SmtpSend.Exe -@" + cFileTxt + " >" + cFileRet, 0 )
      // MyRun( "SmtpSend.Exe -@" + cFileTxt + " >" + cFileRet, 0 )

      // Verifica o Retorno
      lRet := IIF( "Message sent!" $ MemoRead( cFileRet ), .T., .F. )

      FErase( cFileName ) // Apaga arquivo HTML
      FErase( cFileTxt  ) // Apaga arquivo TXT
      FErase( cFileRet  ) // Apaga arquivo Retorno

      SysRefresh()

      lRet := .T.

   CATCH oError

      lRet := .F.

   END

   IF lRet

      ? [PASSOU MANO]

      lRet := .F.

   ELSE

      ? [FALHOU MANO]

      lRet := .F.

   ENDIF             

RETURN NIL
// MsgRun(): Executa um comando DOS e espera até terminar.
FUNCTION MYRUN( cComando )   

   LOCAL oShell, Ret

   oShell := CreateObject( "WScript.Shell" )

   Ret    := oShell:Run( "%comspec% /c " + cComando, 0, .T. )

   oShell := Nil

RETURN If( Ret = 0, .T., .F. )

// FIN / END

Regards, saludos.

[Kapiaba]

Mesmo usando a nova versão e informando o SSL/TLS, ele NÃO ENVIA:

Vejam fonte aqui:

https://fivewin.com.br/index.php?/topic ... ais-atual/

O que estou errando no SSL/TLS?

Obg. abs.

[Kapiaba]

Nova versão:

https://www.dataenter.co.at/download.asp

Regards, saludos.