exe para enviar e-mails

[mkyx]

Bom dia, alguém tem um pequeno programa que possa ser executado fora do programa principal, para enviar qualquer tipo de e-mail com segurança?

Porque a rotina da flexdocs, só dá pau, constantemente, o gmail, o hotmail, fica bloqueando, todos os clientes ficam reclamando que o email, não está indo.

O ideal seria, se tivesse um pequeno exe, que fosse executado através de um arquivo .bat

Obrigado.

 

[kapiaba]

Use o RMAIL.PRG

[rochinha]

Amiguinhos,

Eu uso o blat assim:

	    cErrorFile := "NFWHErr.log"
    REDEFINE BUTTON oBtn1 ID 1 OF oDlg ;
                 ACTION ( iif( file( "develop.dev" ), fun(), Blat( "Cliente: " + CL_NOME,;
                                "seudominio.com.br",;
                                "nfe@seudominio.com.br",;
                                "nfe@seudominio.com.br",;
                                "***** Mensagem do Sistema de Erros 5Volution *****",;
                                "nfe@seudominio.com.br",;
                                "s3nh@s3cr3t@",;
                                cErrorFile ) ) )
	

Funcao chamada:

	/*
 *****************************************************************************
 *    FUNCAO: Faz uso do BLAT para enviar emails diretamente pela internet   *
 *****************************************************************************
 */
function blat( cbody ,;
               cserver ,;
               cto ,;
               cf ,;
               csubject ,;
               cu ,;
               cpw ,;
               cattach, lHtml, portSMTP, lSendBack )
     /* BLAT.EXE  blat.txt
      *           -server mail.seudominio.com.br
      *           -to emaildocliente@hotmail.com.br
      *           -f fabricapet@seudominio.com.br
      *           -subject "**** confirmacao de pedido ****"
      *           -u fabricapet@seudominio.com.br
      *           -pw s3nh@s3cr3t@
      *           -log "email.log"
      *           -debug
      *           -attach "EC030017.RTF"
      */
     lHtml := .t.
     BlatCMD := [ blat.txt] + ;
                [ -to ]       + alltrim(cto) + ;
                [ -server ]   + alltrim(cserver) + ;
                iif(!empty(cu),[ -f ] + alltrim(lower(cu)),"") + ;
                iif(empty(CL_Email), "", [ -mailfrom ] + alltrim(lower(CL_Email)) ) + ;
                [ -subject "] + alltrim(csubject) + ["] + ;
                [ -r ]        + ;
                iif(empty(CL_Email), "", [ -replyto ] + alltrim(lower(iif(lSendBack,CL_Email,cu))) ) + ;
                iif(empty(CL_Email), "", [ -returnpath ] + alltrim(lower(CL_Email)) ) + ;
                iif(!empty(cu),[ -u ] + alltrim(lower(cu)),"") + ;
                iif(!empty(cpw),[ -pw ] + alltrim(cpw),"") + ;
                iif(!empty(portSMTP),[ -portSMTP ] + portSMTP, "" ) + ;
                [ -log "email.log" -debug ] + ;
                iif( lHtml, [ -html ], [] )
     if empty( cAttach )
     else
        if ValType( cAttach ) == "A"
           BlatCMD := BlatCMD + [ -attach "] + alltrim(cAttach[ 1 ]) + ["]
           For nEle = 2 To Len( cAttach )
               BlatCMD := BlatCMD + [,"] + alltrim(cAttach[ nEle ]) + ["]
           Next
        else
           BlatCMD := BlatCMD + [ -attach "] + alltrim(cAttach) + ["]
        endif
     endif
     if lHtml
        cBody := FormHtml( cSubject, cBody )
     endif
     fErase( "blat.bat" )
     rMemoWrit( "blat.txt", cbody + "Enviado via BLAT.EXE" )
     rMemoWrit( "blat.bat", BlatCMD )
     fErase( "email.log" )
     //
     cMacro := "BLAT.EXE " + BlatCMD
     rMemoWrit( "blat.bat", cMacro )
     MsgRun("Aguarde o termino do processo","Envio de Email...",{||WaitRun( cMacro, 0 )})
     SysWait(2)
     if file( "email.log" )
        BlatLOG := memoread( "email.log" )
        if "ERROR" $ Upper(BlatLOG)
           //MemoEdit( BlatLOG )
           return .f.
        endif
        if "535" $ Upper(BlatLOG)
           MsgStop( "Erro: Authentication Failed" + CRLF + CRLF + "Senha/Login de autenticacao com erro." )
           return .f.
        endif
        //if "550" $ Upper(BlatLOG)
        //   MsgStop( "Erro: User Unknown" + CRLF + CRLF + "Usuario destino desconhecido." )
        //   return .f.
        //endif
     endif
     RETURN .T.
	FUNCTION FUN()
	     MsgStop( "nao envia casa esteja na maquina de desenvolvimento" )
	     return .t.

Download do Blat

[kapiaba]

 MsgStop( "nao envia casa esteja na maquina de desenvolvimento" ) ??

Oi? kkkkkkkkkkkkkkkkk

[rochinha]

Amiguinhos,

Seu bunda-mole você entendeu que foi erro de digitação né, kkkkkkkk.

ERRATA ...caso esteja na maquina de desenvolvimento...

[kapiaba]

12 horas atrás, rochinha disse:

Amiguinhos,

Seu bunda-mole você entendeu que foi erro de digitação né, kkkkkkkk.

ERRATA ...caso esteja na maquina de desenvolvimento...

kkkkkkkkkkkkk, Minha mariposa esvoaçantyyyyyyyy predileta. kkkkkkkkkkkkkkkkkkkkkk