Enviar correos con adjunto en SharePoint

Para añadir la funcionalidad a las listas y bibliotecas de poder enviar un correo electronico como adjunto, desde el menu despègable en cada archivo, solo hay que añadir un poco de codigo javascript.

Lo primero es ir a la lista o biblioteca deseada y acceder a "Acciones del sitio/Editar".

Despues se añadirá un web part de tipo "Elemento web editor de contenido", si no se encuentra aqui ir a configuracion del sitio y añadirlo.

Sobre el elemento web, "editar/modificar elemento web compartido" y en la pantalla que aparece en el lateral clicar en "Editor de codigo fuente" y pegar el siguiente codigo:


<script type="text/javascript">

function Custom_AddDocLibMenuItems(m, ctx)

{

var strDisplayText = "Enviar como adjunto";

//Añade el adjunto ;
var strAction="Adjuntar()";;

var strImagePath = "";

// Add menu item
CAMOpt(m, strDisplayText, strAction, strImagePath);

// add a separator to the menu
CAMSep(m);

return false;

}

//FUNCION QUE GENERA EL MENSAJE CON EL ADJUNTO
function Adjuntar()
{
try
{
// parse the URL out of the itemTable

var URL = "";
var index = itemTable.innerHTML.indexOf("href=");

if (index > 0)
{
var str = itemTable.innerHTML.substr(index + 6);

index = str.indexOf('"');

if (index > 0)
{
URL = str.substr(0, index);
URL = "http://"+location.host+URL;
}
}
if (URL != "")
{
var outlook = new ActiveXObject("Outlook.Application");
var msg = outlook.CreateItem(0);
var atach = msg.Attachments();
var strBody="Email de prueba";
msg.subject = strBody;
msg.body = strBody;
msg.Attachments.Add(URL);
msg.display();
}
}
catch(e)
{
alert("Error "+e.description);
}
}
</script>

Por ultimo en la opcion de distribucion marcar como oculto.



Este codigo lanza outlook y hay que tener el nevagador configurado para que pregunte o permita controles activex no seguros, porque por defecto viene como desactivada. Esto se hace en el explorador "Herramientas/Opciones de Internet/Seguridad/Nivel Personalizado" y marcar la opcion que he comentado.



Con esto ya aparecerá la opcion de mandar el archivo por correo como adjunto.