@echo off
Title=Enviar por e-mail a...
mode con cols=96 lines=23
Nircmd win center ititle "Enviar por e-mail a..."
color 07
 
Setlocal enabledelayedexpansion
 
REM Creamos la variable para cada archivo que se ha arrastrado al .BAT
REM En total 20 variables, para mi son más que suficientes.
set num=0
 
For /F "tokens=*" %%a in ('type "%temp%\ZetaUploadList.txt"') DO (
	Set /a num+=1
	Set archivo!num!=%% style="color: #448888;">a)
 
 
If not defined archivo1 (goto :error)
If defined archivo10 (mode con lines=24)
If defined archivo11 (mode con lines=25)
If defined archivo12 (mode con lines=26)
If defined archivo13 (mode con lines=27)
If defined archivo14 (mode con lines=28)
If defined archivo15 (mode con lines=29)
If defined archivo16 (mode con lines=30)
If defined archivo17 (mode con lines=31)
If defined archivo18 (mode con lines=32)
If defined archivo19 (mode con lines=33)
If defined archivo20 (mode con lines=34)
 
 
 
 
REM Comprimimos los archivos/Carpetas.
 
echo+
Nircmd win center ititle "Enviar por e-mail a..."
Colous writesec "[2]Comprimiendo los archivos, por favor, espere..."
Del /Q /F "%temp%\ZetaUploadList.txt"
If exist "%Temp%\Archivos.zip" (Del /Q /F "%Temp%\Archivos.zip")
7z A "%Temp%\Archivos.zip" %archivo1% %archivo2% %archivo3% %archivo4% %archivo5% %archivo6% %archivo7% %archivo8% %archivo9% %archivo10% %archivo11% %archivo12% %archivo13% %archivo14% %archivo15% %archivo16% %archivo17% %archivo18% %archivo19% %archivo20%
 
If %errorlevel% GEQ 1 (
	cls
	echo+
	Echo+ Error inesperado al comprimir los archivos
	echo+
	echo+ Saliendo del programa...
	ping -n 5 localhost >nul
	exit)
 
 
 
 
REM Creamos la variable del peso del ZIP.
 
Ping -n 2 localhost >nul
for /f "tokens=*" %%%% in ('mediainfo "%Temp%\Archivos.zip" "--Inform=General;%%FileSize/String%%"') do (set "Peso=%%~%%")
 
 
 
 
REM El E-mail de destino.
 
:Destinatario
setlocal disabledelayedexpansion
 
Title=Enviar %peso:i=% por e-mail a...
cls
Echo+
Colous writesec "[7]Archivos:"
echo+
Colous writesec "[7]1 [8]"%archivo1:~0,90%"..."
If exist %archivo2% Colous writesec "[7]2 [8]"%archivo2:~0,90%"..."
If exist %archivo3% Colous writesec "[7]3 [8]"%archivo3:~0,90%"..."
If exist %archivo4% Colous writesec "[7]4 [8]"%archivo4:~0,90%"..."
If exist %archivo5% Colous writesec "[7]5 [8]"%archivo5:~0,90%"..."
If exist %archivo6% Colous writesec "[7]6 [8]"%archivo6:~0,90%"..."
If exist %archivo7% Colous writesec "[7]7 [8]"%archivo7:~0,90%"..."
If exist %archivo8% Colous writesec "[7]8 [8]"%archivo8:~0,90%"..."
If exist %archivo9% Colous writesec "[7]9 [8]"%archivo9:~0,90%"..."
If exist %archivo10% Colous writesec "[7]10 [8]"%archivo10:~0,89%"..."
If exist %archivo11% Colous writesec "[7]11 [8]"%archivo11:~0,89%"..."
If exist %archivo12% Colous writesec "[7]12 [8]"%archivo12:~0,89%"..."
If exist %archivo13% Colous writesec "[7]13 [8]"%archivo13:~0,89%"..."
If exist %archivo14% Colous writesec "[7]14 [8]"%archivo14:~0,89%"..."
If exist %archivo15% Colous writesec "[7]15 [8]"%archivo15:~0,89%"..."
If exist %archivo16% Colous writesec "[7]16 [8]"%archivo16:~0,89%"..."
If exist %archivo17% Colous writesec "[7]17 [8]"%archivo17:~0,89%"..."
If exist %archivo18% Colous writesec "[7]18 [8]"%archivo18:~0,89%"..."
If exist %archivo19% Colous writesec "[7]19 [8]"%archivo19:~0,89%"..."
If exist %archivo20% Colous writesec "[7]20 [8]"%archivo20:~0,89%"..."
echo+
Colous writesec "[7]Total [14]%peso:i=%"
 
echo+
Colous writesec "[8]::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::"
Colous writesec "[7]Introduce el e-mail de destino (Ej. [2]CSG1986@Hotmail.com[7])"
Colous cursoron
Echo+
Set /p Destino= A Quien se lo quieres enviar? 
 
Echo %destino% | Findstr "...@..."
If %Errorlevel% Equ 1 (
	echo+
	Colous writesec "[12]PORFAVOR INTRODUZCA UNA DIRECCION VALIDA"
        Ping -n 3 localhost >nul
	Goto :Destinatario)
 
 
 
 
REM El asunto del mensaje.
 
:Subject
cls
Title=Enviar %peso:i=% por e-mail a %Destino%
echo+
Colous writesec "[7]Destino: [2]%Destino%"
echo+
Colous writesec "[8]::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::"
Colous writesec "[7]Introduce el asunto del e-mail. [8](Dejalo vacio si quieres.)"
Colous cursoron
echo+
Set /p Asunto=Asunto: 
 
If not defined Asunto (Set Asunto=Archivo enviado con .:Zeta Uploader:.)
 
 
 
 
REM El cuerpo del mensaje.
 
:Cuerpo
cls
echo+
Colous writesec "[7]Destino: [2]%Destino%"
echo+
Colous writesec "[7]Asunto : [2]%Asunto%"
echo+
Colous writesec "[8]::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::"
Echo Introduce el Texto del cuerpo del mensaje. (Dejalo vacio si quieres.)
colous cursoron
echo+
Set /p mensaje=Texto: 
 
If not defined mensaje (Set mensaje=Archivo enviado con .:Zeta Uploader:.)
 
 
 
 
REM El usuario verifica si la informacion es correcta
 
:Verify
cls
echo+
Colous writesec "[7]Destino: [2]%Destino%"
echo+
Colous writesec "[7]Asunto : [2]%Asunto%"
echo+
Colous writesec "[7]Texto  : [2]%mensaje%"
echo+
Colous writesec "[8]::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::"
colous cursoron
Set /p Comprobar=¨Todo Ok? (SI/NO): 
 
If not defined Comprobar (
	echo+
	Colous writesec "[12]PORFAVOR INTRODUZCA UNA RESPUESTA."
        Ping -n 3 localhost >nul
	Goto :verify)
 
echo %Comprobar% | Find /i "s"
If %Errorlevel% EQU 0 (Goto :Enviar) ELSE (
	Set Destino=
	Set Asunto=
	Set Mensaje=
	Set Comprobar=
	Goto :destinatario)
 
 
 
 
REM Enviamos el zip.
 
:Enviar
cls
mode con cols=46 lines=3
Title=Enviando e-mail a %Destino%
Nircmd win center ititle "Enviando e-mail a %Destino%"
colous cursoroff
echo+ & echo+ Enviando el archivo, porfavor, espere...
Zulc.exe -path="%Temp%\Archivos.zip" -receivers="%Destino%" -remarks="%mensaje%" -language="es" - subject="%Asunto%" >nul 2>&1
Del /Q /F "%Temp%\Archivos.zip"
cls
Title=E-mail enviado!!
echo+ & echo+ El e-mail se ha enviado correctamente :)
pause >nul
exit
 
 
 
 
REM La pantallita del error (O Créditos xD)
 
:error
mode con cols=86 lines=13
title=ZetaUpload Script
echo+
Colous writesec "[14] ZetaUpload Script                                          [8]Visite"
echo+
Colous writesec "[7] By [14]PiToLoKo"
echo+
Colous writesec "[8]::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::"
echo  Como usar este script:
echo+
echo  1§ - Arrastre un archivo o carpeta hacia                y siga las instrucciones.
echo+
echo  2§ - Tambi‚n puede usar la opci¢n                   del men£ contextual.
colous 3 0 43,10 "ZetaUpload.Bat"
colous 3 0 36,12 "Enviar por e-amil"
colous 8 0 68,02 "Foro.ElHacker.Net"
colous cursoroff
Ping -n 3 localhost >nul
colous 14 0 68,02 "Foro.ElHacker.Net"
colous cursoroff
Ping -n 3 localhost >nul
colous 8 0 68,02 "Foro.ElHacker.Net"
colous cursoroff
Ping -n 3 localhost >nul
colous 14 0 68,02 "Foro.ElHacker.Net"
colous cursoroff
Ping -n 3 localhost >nul
colous 8 0 68,02 "Foro.ElHacker.Net"
colous cursoroff
Ping -n 5 localhost >nul
exit