PC Toledo

Código: Selecionar todos

***************************
Function ENVIA_EMAIL(aARQUI, vMsg)
***************************
local cSubject   := ""
local aTo        := {"nome@servidor.com.br"}
local cServerIp  := ""
local cServerPop := ""

Local cFrom  := ""
Local cUser  := ""
Local cPass  := ""
Local aFiles := {aARQUI}

PRIVATE oDlgHabla:=NIL

cServerIp := "smtp.provedor.com.br"
cServerPop:= "pop.provedor.com.br"
cFrom     := cUser := "nome2@provedor.com.br"
XYZ       := ""

 MsgRun("Aguarde enviando o Arquivo")
IF HB_SendMail(cServerIP,25 ,cFrom,aTo, , , vMsg,cSubject, aFiles, cUser , XYZ, cServerPop , 3 , .F. , .T. , .T. , .F.  ) = .T.
    ferase(aARQUI)
    Fim_Run()
else
    Fim_Run()
    MsGStop("Não foi possível enviar o Arquivo, favor verificar sua conexão com a Internet." + HB_OsNewLine() + ;
                  "E envie para o email (xxx@provedor.com.br) o arquivo que foi gerado: " + HB_OsNewLine() + ;
              aARQUI,"Aviso do Sistema")
Endif
RETURN Nil



*********************
FUNCTION MsgRun(cMsg)
*********************
PRIVATE oTimHabla
if cMsg=Nil
   cMsg:="Aguarde enviando e-mail..."
endif

INIT DIALOG oDlgHabla TITLE "Processando..." NOEXIT NOEXITESC;
     AT 0,0 SIZE 485,80 ;
     STYLE DS_CENTER + WS_VISIBLE + WS_CAPTION + WS_SYSMENU//;
//COLOR Rgb(255, 255, 255)

@ 45,10 SAY oTimHabla CAPTION cMsg SIZE 395,20;
        FONT HFont():Add( "Arial", 0 ,-15,550,255 );
        BACKCOLOR Rgb(255, 255, 255)

ACTIVATE DIALOG oDlgHabla NOMODAL

Return Nil



****************
Function Fim_Run
****************
IF oDlgHabla#NIL
   oDlgHabla:CLOSE()
ENDIF
Return Nil