Envio de Correo con archivo adjunto desde Biblioteca SharePoint 2007

En su momento me fue solicitado por un cliente el envio de un correo con un documento adjunto alojado en una biblioteca de documentos en SharePoint 2007 (como muestra la imagen).

Por ende aqui dejo el script encontrado en la web una vez de haber buscado bastante.

<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="Aqui el texto breve que quieras que aparezca al usuario";
msg.subject = "Aqui puedes poner el ASUNTO";
msg.body = strBody;
msg.Attachments.Add(URL);
msg.display();
}
}
catch(e)
{
alert("Error "+e.description);
}
}
</script>

Este Script para que realice la funcion del envio de correo, debemos agregar un Elemento Web Editor de Contenido en la biblioteca de documentos deseada. Para esto nos dirigimos a Acciones del Sitio > Editar Pagina > y en Agregar Elemento Web, buscamos en Varios el Elemento Web Editor de Contenido y lo agregamos.

Una vez agregado este elemento web, nos vamos a editar para poder pegar el script puesto arriba en el boton Editor de Codigo Fuente... finalmente aceptamos todo y ya tenemos resuelta la necesidad.

Debemos considerar que debemos realizar una configuracion en el Internet Explorer para que pueda permitir la ejecucion del script o simplemente crear un politica en el AD para todos los usuarios de nuestra empresa,  para esto nos vamos a Herramientas/Opciones de Internet/Seguridad/Nivel Personalizado y debemos dejar la opcion que uno estime (Imagen Adjunta)

en mi caso quedara en la opcion que pregunte al usuario si permite continuar con la ejecucion del script por medidas de seguridad. (como muestra la imagen)

Finalmente si todo va bien podremos enviar los documentos de una biblioteca como adjunto en un correo.

Tambien debo comentar que en un equipo cliente ocurrio otro problema anexo, donde dejo la solucion al siguiente mensaje arrojado (Dejoimagen):

Error: El servidor de Automatizacion no puede crear el objeto.

La solucion a esto deben seguir estos pasos

El navegador del usuario tiene que tener la URL dentro de los "Sitio de confianza" ("Herramientas" -> "Opciones de Internet" -> "Seguridad" -> "Sitios de confianza" -> "Sitios" -> "Agregar"), y el "Nivel Personalizado" tiene que estar en "Baja" (Herramientas" -> "Opciones de Internet" -> "Seguridad" -> "Nivel personalizado" -> "Restablecer a: baja" -> "Restablecer"), de otra forma les arrojarael aviso comentado.

Cualquier consulta que tengan, no duden en comentarla.

Atte,

Claudio J. Pérez Q.