AMSSpecialist

From = Input.GetText("From");-- texto con la cuenta gmail desde donde enviamos el email
To = Input.GetText("To");-- Destinatarios es un string delimitado con las cuentas que queramos enviar el correo ejemplo: "[email protected],[email protected],[email protected]"
NameFrom = Input.GetText("Name From");-- Es un nombre o referencia que aparcecera delante del remitente ejemplo: TU Nombre <<[email protected]>>
Password = Input.GetText("pass");-- El password de nuestra cuenta gmail, necesitamos autentificacion para usar el servidor smtp.gmail.com
Subject =  Input.GetText("Subject"); -- Titulo o asunto del correo
BodyMessage = Input.GetText("Body");-- correo en si 
local ret;
if not tfiles then -- si no hay archivos selccionados ene l listbox para enviar 
Attachments = "";-- el parametro attchment lo dejamos en ""
else-- si los hay...
-- creamos un string con las rutas de los archivos a adjuntar delimitados por ','
-- ejemplo : " path1, path2, path3" de los archivos adjuntados.
files = ""
	for i,v in pairs(tfiles) do
		files = files..","..v
	end
	Attachments = String.TrimRight(files,",");
end
-- llamamos al metodo SendEmail de la dll con todos sus parametros  , todos son necesarios excepto Attachments que puede ser un ""
ret = DLL.CallFunction("AutoPlay\\dll\\E-Mail.dll", "SendEmail", "\""..From.."\",\""..NameFrom.."\",\""..Password.."\",\""..To.."\",\""..Subject.."\",\""..BodyMessage.."\",\""..Attachments.."\"", DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL);
-- La dll retorna "SUCCESS" si el correo se ha enviado correctamente , en caso de error retorna un string con los errores posibles dentro de la dll
if ret ~= "" then
	Dialog.Message('',ret);
end

tfiles = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", true, false);-- buscamos los archivos que queremos adjuntar al correo
if tfiles then
	for x = 1,#tfiles do
		result = ListBox.AddItem("Att", tfiles[x],tfiles[x]);--añadimos rutas al listbox
	end
end