Problem with attachments lib tipmail

[danielmaximiliano]

eu gerar um arquivo de backup em qualquer máquina na rede usando esta rotina
, Você pode usar como um exemplo para incluir anexos de e-mail.

Code: Select all

If getenv("UserName") = "Hugo"
    cDefault := "Laptop"
    cToolTipText:= "Maquina Portable de Hugo"
    Else
    cDefault := "Pc"
    cToolTipText:= "Red maquina en Rocar Seguros"
    Endif
                                /*******  Es el Servidor ???? *****/
If ! FILE( "c:\SERVIDOR.TXT")  
   cDisco := "Z:\"
   else
   cDisco := "C:\"
   Endif   
     

Code: Select all

Function CreateZip()
*------------------------------------------------------------------------------*
*------------------------------------------------------------------------------*
LOCAL aDirectory := {}, aFilesDbx := {}, aFilesIdx := {}
Local dia, mes, fecha
local aDbx:={}, aIdx:={}
Local x
local nLen
Comprime.Comprime.Enabled := .F.
dia  :=str(day( Date()))
mes  :=str(month( Date()))
fecha:=dia+"-"+mes+"-"+str(year( Date()))
aDbx:=Directory(cDisco+"seguros\bases\*.db?")  /* Files.DBF and Files.DBT */
aIdx:=Directory(cDisco+"seguros\indices\*.*")
	 
    aeval(aDbx, {|x| aadd(aFilesDbx, cDisco+"seguros\bases\"+x[1])})
		
	CompressFiles( 'c:\Backup\'+fecha+'DBF.Zip',;
	               aFilesDbx, { | cFile, nPos | Comprime.Progreso.Value := nPos/len( aFilesDbx) * 100,;
                   Comprime.etiqueta.Value := "Procesando Tabla " + cFile }, .T. )
    
	aeval(aIdx, {|x| aadd(aFilesIdx, cDisco+"seguros\Indices\"+x[1])})
		
	CompressFiles( 'c:\Backup\'+fecha+'NTX.Zip', aFilesIdx, { | cFile, nPos | Comprime.Progreso.Value := nPos/len( aFilesIdx) * 100,;
                                                       Comprime.etiqueta.Value := "Procesando Indice "+cFile }, .T. )
			
        
        MODIFY CONTROL Etiqueta OF Comprime FONTCOLOR {0,0,255}
	    Comprime.etiqueta.Value := 'Backup Finalizo'
        

Return nil

Comprime Tablas del sistema Rocar_2012-03-13_22-59-35.png (50.02 KiB) Viewed 1983 times