ZetaUploadScript By PiToLoKo (Manda emails con un click, sin restricciones!)

[SuperDraco]

ZetaUploadScript By PiToLoKo

En exclusiva para la gente de Elhacker.net   ...Ya se que no es nada del otro mundo el script, pero os lo dedico


Manda emails desde windows con archivos o carpetas adjuntas... ¡con un click desde el menú contextual!, ¡sin restricciones de tipo de archivo! sin limites de tamaño.

Muchisimo mejor que la opción que trae windows integrada.. pues esa opción requiere tener instalado un cliente de correo.

El script es solamente una ayuda para usar el programa zeta uploader, este ya tiene una interfaz gráfica para windows, pero me ha gustado la idea de integrar una opción en el menú y usarlo desde la consola, me parece más fácil así, en 2 simples pasos: Instalar y Usar.

Demo:

[youtube=425,350]http://www.youtube.com/watch?v=Zij2zpFUPS0[/youtube]

Nota: Visualizar en pantalla completa
Nota2: Bajar el volumen xDDDDDD





Modo de empleo:

1º - Click derecho sobre archivos o carpetas > "Enviar por email a..."

2º - Introducir el email de destino.

3º - Introducir asunto del email.

4º - Introducir el texto (Body) del email.

DESCARGA
Espero que os guste el aporte. Cualquier cosa comentarla  

Un saludo!

[SuperDraco]

Uso 2 scripts, uno un poco diferente del otro , pero bueno, uno de esos scripts es este, por si alguien lo quiere ver antes de descargar o por simple curiosidad:

Código (dos) [Seleccionar] Expandir

@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!=%%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

[VanX]

Gracias por el aporte 

[madpitbull_99]

Es un autoextraíble de WinRar. No sé que hace esto en Programación General, iría en Scripting.

PD: Allá va.

[SuperDraco]

ups, no se como ha pasado madpitbull perdon, ¿Lo puedes mover a Windows?

lo quería postear ahí y creo que debe ir ahi, porque como es para usar desde el menú contextual de windows...

Bueno, tu eres el moderador, gracias!

Vale lo habia movido Rando, ya da igual xD

por cierto claro, aclaro que es un autoextraible que instala la opcíon en el menu para poder usarla. Pero quien no se fie, ya he puesto el script y además se puede extraer el Rar y probarlo manualmente el script XD...

saludosss

[madpitbull_99]

De hecho lo posteaste en Windows, pero Randomize te lo movió a Programación General.