El blog de Lluis Franco

Solidarízate y gana un Visual Studio Team System con suscripción MSDN Premium

lfranco — Mon, 22 Jun 2009 11:16:36 GMT

Uuuuuups!
Que la semana pasada se me olvidó avisaros del próximo sorteo de una suscripción MSDN para ayudar a Juanma:

Pues eso... que aún queda por sortear una suscripción a MSDN Premium con el Visual Studio Team System de cuando se hizo la gira GTC2008 (Guille Community Tour 2008) y como esa suscripción sólo se puede activar hasta el día 30 de este mes, pues... hay que hacer el sorteo ya... pero aún quedan más regalos que sortear... sigue leyendo y averigua cómo puedes participar en este sorteo y en los próximos... porque el que participes en uno no impide que sin tener que "aportar" más no participes en los otros... para que veas que es "rentable" ser solidario...

Ver más en: http://www.elguille.info/lonuevo/2009/junio/13_sorteo_solidario_msdn_premium.aspx

Pues ya estáis avisados! Un saludo desde Andorra… :-)

** crossposting desde el blog de Lluís Franco en geeks.ms **

Error al restrear documentos en MOSS 2007 (acceso denegado)

lfranco — Thu, 21 May 2009 14:55:00 GMT

Otra de MOSS 2007 en apenas unos días. Si en la anterior tuvo relación con la publicación de formularios de Infopath, en esta ocasión ha sido un poquito más grave. Resulta que de buenas a primeras algo que funcionaba perfectamente ha dejado de hacerlo y nadie ha tocado nada. Si, si, ya se que me direis que esto es lo que se dice siempre… pero esta vez os juro que es verdad :-)

Y cuál era el error? Resulta que el proceso de indexación de documentos del site principal ha empezado a ‘petar’ cada vez que se hace un rastreo completo o incremental, mostrando un mensaje de error de acceso denegado por cada documento escaneado:

Detalles: Acceso denegado. Compruebe si la cuenta predeterminada de acceso al contenido tiene acceso a este contenido, o bien agregue una regla de rastreo para rastrear este contenido. (0x80041205)” (en inglés: “Access is denied. Check that the Default Content Access Account has access to this content, or add a crawl rule to crawl this content. (0x80041205)”)

Lo primero que verificamos fue la cuenta del servicio de rastreo, pero la cuenta era correcta :-(

Después de ponerme en contacto con el departamento de soporte, me mandaron un link a un artículo reciente de la KB, en el que se describía que este problema era debido a una actualización de seguridad de Windows Server 2003 Service Pack 1 (SP1). Así que procedimos a plicar la solución, que simplemente consistía en establecer un valor del registro de Windows.

Después de aplicar la solución (y reiniciar el servidor) procedimos a lanzar manualmente un rastreo y todo volvió a la normalidad.

Os dejo el enlace al artículo de la KB por si alguien se encuentra en la misma situación:

http://support.microsoft.com/?id=971382

Nota: En el artículo dice que la solución se aplica a las direcciones que empiezan por ‘sts3://*’ pero no es correcto, ya que la solución aplicaba también en nuestro caso. Según me comentan actualizarán el artículo en breve…

** crossposting desde el blog de Lluís Franco en geeks.ms **

Bajando la Beta1 de Visual Studio 2010!

lfranco — Mon, 18 May 2009 15:48:00 GMT

:-)
Como mola!

Será que no hay nadie todavía que la esté bajando? Será la fibra? Que será, será...

La verdad es que así es un gustazo. .. Antes de terminar el post (y mira que era breve) ya ha terminado la descarga.

Ahora... a instalar! Nos vemos!

** crossposting desde el blog de Lluís Franco en geeks.ms **

Hotfix para Visual Studio 2008 (error al serializar propiedades)

lfranco — Thu, 14 May 2009 08:40:00 GMT

Leo en el blog del equipo de desarrollo de Developer Express, que Microsoft acaba de publicar un hotfix para solventar un pequeño problema en la serialización de propiedades. Parece ser que bajo algunas condiciones los cambios realizados en el diseñador no se guardan correctamente en la vista del código fuente. Este problema fue detectado por el equipo de desarrollo de Developer Express trabajando con sus propios controles de ASP.NET, pero en un análisis más profundo encontraron que es un error general de Visual Studio.

Para reproducir este error seguir estos 5 pasos:

Crear un nuevo sitio Web
Colocar un control Wizard estándar en él.
Colocar un control GridView dentro de la región editable del control Wizard.
Ir a las propiedades del control GridView y establecer la propiedad PagerSettings.Visible a False.
Cambiar a la vista de código fuente.

Si los cambios no se han aplicado correctamente, es necesario aplicar el hotfix.

Enlace para descargar el hotfix desde Connect:
http://connect.microsoft.com/VisualStudio/Downloads/DownloadDetails.aspx?DownloadID=17185

Saludos,

** crossposting desde el blog de Lluís Franco en geeks.ms **

Mapa de actualizaciones de SharePoint 2007

lfranco — Wed, 13 May 2009 11:31:33 GMT

Es de agradecer para vagos como yo que publiquen un mapa detallado de las actualizaciones del producto. Tanto Services Packs como Cumulative Update Packages. De este modo, podemos ver con una simple ojeada el estado de nuestros servidores y lo que nos falta por instalar:

Link del artículo completo en el blog del equipo:

http://blogs.msdn.com/sharepoint/archive/2009/05/13/april-cumulative-update-packages-ready-for-download.aspx

Saludos,

** crossposting desde el blog de Lluís Franco en geeks.ms **

Anunciados (y confirmados) los requisitos para SharePoint 2010

lfranco — Tue, 12 May 2009 08:00:03 GMT

El equipo de SharePoint acaba de hacer públicos los requisitos de hardware para SharePoint 2010. Como ya se venía comentando se ha confirmado que sólo se dará soporte a la arquitectura de 64 bits:

SharePoint Server 2010 will be 64-bit only.
SharePoint Server 2010 will require 64-bit Windows Server 2008 or 64-bit Windows Server 2008 R2.
SharePoint Server 2010 will require 64-bit SQL Server 2008 or 64-bit SQL Server 2005.

Además, se hace incapié en las mejoras introducidas en el soporte a varios browsers (hay vida más allá de IE?) gracias al uso de estándares como XHTML 1.0. Para empezar se soportará IE7 y 8, además de Firefox 3 sobre Windows, y se está planeando ampliar el soporte a FireFox 3 y Safari 3 en sistemas operativos no Windows (para celebrar el año de Linux en el desktop?).

Como notícia destacable, Internet Explorer 6 dejará de estar soportado. Lo cual, a mí me parece excelente.

Darle un vistazo a lartículo original:

http://blogs.msdn.com/sharepoint/archive/2009/05/07/announcing-sharepoint-server-2010-preliminary-system-requirements.aspx

** crossposting desde el blog de Lluís Franco en geeks.ms **

La SGAE se lleva el 10% de lo obtenido para salvar a un niño

lfranco — Tue, 05 May 2009 12:39:00 GMT

Hola a todos y antes de nada perdón por postear esto aquí. El tema creo que es lo suficientemente importante, si no para todos al menos para mí.

Desde hace casi dos años, un grupo de buena gente capitaneados por mi primo Guille y la indomable Eva, y entre los cuales me incluyo (aunque no en lo de buena gente :-P), están realizando campañas para intentar ayudar a Juanma, un niño que sufre una extraña enfermedad llamada síndrome de Alexander. Hasta aquí todo es normal si nos abstraemos de la tragedia familiar que está viviendo esta gente, pero lo que he leído hoy no tiene nombre: Resulta que un cantante bastante conocido llamado David Bisbal ha realizado un concierto sin cobrar un duro para que todos los ingresos vayan destinados a la búsqueda de un cura para Juanma. Sin embargo ciertos individuos (por llamarlos de una manera) no han renunciado a cobrar a su parte del pastel, y se han llevado nada más y nada menos que 5.000 euros, cantidad que supera con mucho lo que muchos de nosotros hemos podido aportar.

Yo no se vosotros pero mi indignación es total. En los tiempos que corren, mucha pobre gente ha ayudado con lo poco que tenían a esta causa… para que ahora venga esta gentuza (porque no tienen otro nombre) y haga esto. No hay derecho hombre!

Os dejo con el artículo copiado del periódico ‘el Mundo’:

La SGAE se lleva el 10% de lo obtenido para salvar a un niño

La familia de Juanma pelea por salvar su vida y la SGAE llega poniendo el cazo con su música fúnebre de caja registradora.

De los 50.000 euros recaudados por unos padres en filántropo concierto para salvar al hijo -aquejado del Síndrome de Alexander-, la sociedad que representa a los músicos ha obligado a la familia a desembolsarle 5.000.

La tajada de la vergüenza, por otra parte legal, es cosa de la Sociedad General de Autores y Editores, que el pasado 16 de abril ató por escrito a la madre y le arrancó el 10% de las ganancias que tuviera el 'show', la condición indispensable para que el evento pudiera realizarse. Se vendió todo el papel. El cantante David Bisbal no cobró. El concierto fue benéfico para todos. Menos para la SGAE.

En el medio y sin saber ni media de esta historia, anda un crío de cinco años. Tiene una letal enfermedad neurodegenerativa única entre un millón de personas. Los pacientes acaban en estado vegetativo. Los niños afectados mueren en torno a los seis. A la guitarra, con todos ustedes, Juanma. Enterarse por la prensa del evento y sacar lustre a sus carteras de cuero negro fue todo uno. Decía el periódico que tocaba David Bisbal en un pueblo almeriense. Daba igual que el concierto fuese benéfico. El delegado de la SGAE metió la calculadora dentro de la maleta y allá se fue agitando la saca de monedas.

"El hombre me llamó cuando estaba con el niño en rehabilitación en la clínica Fisiomarina. Me dijo que teníamos que vernos, y allí se vino", evoca Toñi, la madre. "Me explicó que había que dar una señal antes del concierto para que pudiera hacerse. Y que era ineludible firmar una solicitud de autorización a no ser que el autor cediera sus derechos. Así que firmé".

'Me dijo que había que dar una señal antes del concierto para que se pudiera hacer'

El concierto fue el 25 de abril en el Teatro Auditorio de Roquetas de Mar y funcionó como un tiro. En un día se vendió todo el aforo, 1.226 entradas entre 40 y 60 euros cada una. David Bisbal renunció a ganar nada. Eso sí, según lo suscrito, la décima parte de lo recaudado sería para la Sociedad General de Autores.

El mordisco duele más porque se da en manos callosas y con olor a lejía de trabajadores. El sueño de una ama de casa y un padre camionero que no tenían nada y que �hucha aquí, concierto benéfico allá y partido homenaje acullá� han rascado ya 1,4 millones de euros para tratar de salvarle la vida a Juanma.

La obsesión por la hucha empezó desde que la madre contactó con el doctor Albee Messing, un científico estadounidense del Waisman Center (en la Universidad de Madison), quien entonó su particular 'yes, we can' con las probetas en la mano. De los 3.000 fármacos con los que Messing ha trabajado para combatir el síndrome, 10 son "altamente prometedores" contra la enfermedad. Desarrollar cada uno cuesta más de 170.000 euros.

"Cuando se fue el de la SGAE me puse a llorar. Cada vez que me acuerdo de los 5.000 euros me duele el estómago. Porque hay gente que está ayudando a la causa como buenamente puede, ¿sabes? Una señora de la limpieza del Pryca ingresa cinco euros al mes; hay una chica en Irún que hace pulseras y las vende a un euro... No me sobra nada para luchar por mi hijo. Pero ellos quieren sus 5.000 euros".

'La SGAE se excusó apelando a que es su obligación'

La SGAE se excusó ayer apelando a lo que es su "obligación" siempre y cuando el autor de las canciones (y Bisbal no lo es) no ceda los derechos de las mismas. "Una cosa es que el cantante renuncie a su caché y otra, el uso de su música cuando ésta no es del cantante". Así que la familia, que iba a montar otro concierto en Vícar, lo ha suspendido todo. A la busca de cantautor que sí pudiera ceder su obra.

Ocho de los 10 fármacos ya están desarrollándose gracias al maná que viajó a Madison desde Almería. Los primeros resultados de las pruebas de Messing se exponen en julio. Los experimentos comenzarán en adultos y, de ser buenos los resultados, Juanma irá después, timonel de los pequeños.

La travesía es el día a día en el hogar y Toñi no deja que el barco haga aguas. Veamos. Juanma ya logra llamarle "bi" a la bici, "lo entiende todo" y anda de puntillas. Hace poco se dio un golpe en la cabeza jugando, dañándose aún más ese cerebro de cristal. Con lo que el crío ve pasar la vida con un casco de taekwondo.

Fue la hermana mayor la que vino con el cuento. Hay unas niñas en el colegio que le han dicho que su hermano se va a morir. Madre dice que no y le canta. A la guitarra, con todos ustedes, Juanma.

** crossposting desde el blog de Lluís Franco en geeks.ms **

Ya está aquí el Service Pack 2 de SharePoint 2007

lfranco — Wed, 29 Apr 2009 08:19:00 GMT

Ya es oficial.

Después de esperarlo durante muchos meses, por fin leo en el blog del equipo de SharePoint que está libre para su descarga el Service Pack 2 de SharePoint 2007, algo que muchos de nosotros estábamos esperando con ansia.

Creo que muchos de nosotros ya tendremos algo que hacer esta mañana, empezando por rezar tres padres nuestros mientras se hacen los backups, hasta unos cuantos avemarías mientras se instala el SP, pasando por un par de rosarios por cada reinicio del servidor.

Beneficios:

Mejoras en el rendimiento y la disponibilidad - Incluye diversas mejoras diseñadas a mejorar el rendimiento, la estabilidad y la disponibilidad de las granjas.

Mejoras en la interoperabilidad – Por ejemplo se ha mejorado el soporte para Firefox y se ha añadido IE8 a la lista de nevegadores soportados :-)

Preparación para el próximo SharePoint 2010 – Mi favoritra. Se ha añadido un nuevo comando llamado preupgradecheck al STSADM, de modo que en una futura (y previsible) migración podremos realizar un escaneo para identificar posibles problemas en la migración. Algo que preocupa a más de uno (por ejemplo a mi) ya que en su momento se decidió montar MOSS sobre 32 bits, y como ya sagbemos la siguiente versión sólo soportará 64 bits :-/.

Guía de instalación:

El SP2 incluye todos los fixes liberados desde Febrero de este año, de modo que es posible instalarlo directamente sobre la RTM de estos productos:

Service Pack 2 for Windows SharePoint Services 3.0
Service Pack 2 for Windows SharePoint Services 3.0 Language Pack (if applicable)
Service Pack 2 for Office SharePoint Server 2007
Service Pack 2 for Office SharePoint Server 2007 Language Pack (if applicable)

Una vez instalado, es necesario ejecutar el asistente de configuración de SharePoint mediante:

psconfig –cmd upgrade –inplace b2b –wait

Desde la línea de comandos. Ojo, que esto es necesario para cada servidor en nuestra granja!

La versión de las bases de datos de contenido debería ser 12.0.0.6425 después de haberse aplicado con éxito las actualizaciones.

Para una guía más detallada en el proceso de instalación, se recomienda *encarecidamente* dar una vistazo a los siguientes documentos antes de realizar la instalación, y no nos olvidemos de los padresnuestros y los avemarías:

Deploy software updates for Windows SharePoint Services 3.0
http://technet.microsoft.com/en-us/library/cc288269.aspx
Deploy software updates for Office SharePoint Server 2007
http://technet.microsoft.com/en-us/library/cc263467.aspx

Create an installation source that includes software updates (Windows SharePoint Services 3.0)
http://technet.microsoft.com/en-us/library/cc287882.aspx
Create an installation source that includes software updates (Office SharePoint Server 2007)
http://technet.microsoft.com/en-us/library/cc261890.aspx

Si queréis, podeis encontrar información más detallada en el este enlace.

Download Links

Service Pack 2 for Windows SharePoint Services 3.0, x86 & x64
http://www.microsoft.com/downloads/details.aspx?FamilyId=79BADA82-C13F-44C1-BDC1-D0447337051B&displaylang=en

Service Pack 2 for Office SharePoint Server 2007, x86 & x64
http://www.microsoft.com/downloads/details.aspx?FamilyId=B7816D90-5FC6-4347-89B0-A80DEB27A082&displaylang=en

KB Article Links

Description of Windows SharePoint Services 3.0 SP2 and of Windows SharePoint Services 3.0 Language Pack SP2
http://support.microsoft.com/kb/953338
Description of 2007 Microsoft Office servers Service Pack 2 (SP2) and of 2007 Microsoft Office servers Language Pack Service Pack 2 (SP2)
http://support.microsoft.com/kb/953334

Eso es todo. Saludos desde Andorra,

** crossposting desde el blog de Lluís Franco en geeks.ms **

Haciendo prototipos con SketchFlow

lfranco — Mon, 27 Apr 2009 09:07:02 GMT

Según leo esta mañana en el blog de Somasegar, existe un nuevo conjunto de herramientas muy chulo para Expression Blend 3 llamado SketchFlow, pensado para la realización de prototipos en las primeras etapas del diseño de software.

Con SketchFlow podemos:

a) Esbozar las ideas
b) Convertir esas ideas en prototipos de trabajo.
c) Presentar y compartir estas experiencias de usuario interactivo mediante el SketchFlow player.

Darle un vistazo al artículo original que vale la pena:

http://blogs.msdn.com/somasegar/archive/2009/04/25/prototyping-with-sketchflow.aspx

** crossposting desde el blog de Lluís Franco en geeks.ms **

Unable to publish infopath forms in MOSS 2007

lfranco — Thu, 23 Apr 2009 15:25:00 GMT

:-)
Hola de nuevo,

Hoy os voy a contar un pequeño problema que hemos tenido a la hora de publicar formularios de InfoPath. Como ya sabéis, MOSS Enterprise dispone de los Forms Services, que permiten la publicación de documentos de InfoPath para su visualización en el navegador. Esto es muy útil, ya que permite que los clientes no necesiten disponer del cliente InfoPath.

Para poder publicar un formulario, es necesario que se habilite esta característica en las propiedades del formulario, y posteriormente publicarlo en una librería de documentos:

Evidentemente hay que tener activadas estas características en el servidor MOSS, dentro de las características de la colección de sitios:

Sin embargo aunque estaban activadas, en el momento de publicar el formulario nos aparecía un mensaje de error:

Visto con más detalle, las posibles causas del error podían ser las siguientes:

Uy, uy, uy......... mientras me estaban entrendo los sudores de la muerte, pensé “a mi me suena que esto está bien, pero vamos a revisarlo”. Efectivamente, la primera no era, ya que se estaban ejecutando los servicios de InfoPathServices correctamente. La segunda tampoco, como habéis podido ver en la tercera imágen, y la última tampoco (psé, mira que llamarme a mí ‘usuario’, ¡que uno es administrador oiga!).

Así que empezamos a pelearnos con el tema, y después de conalutar con Ioana (mi ángel particular, e ingeniera de soporte de Microsoft :-P). La solución estaba en ‘forzar’ la desinstalación y posterior instalación de esta feature mediante el ya famoso STSADM. O sea, ir a la consola y tirar unas líneas para hacer de forma manual lo que desde el entorno gráfico parecía estar bien.

Os dejo la solución por si alguien más se encuentra con esto alguna vez:

Resolution:

- Checked the "Office SharePoint Server Enterprise Site Collection features"

· Browse to the site collection features

· Check for the "Office SharePoint Server Enterprise Site Collection features" to be activated. -> it was activated

- Checked that there was a Form Library on the Site. There was not, so we created it, as sometimes the publishing wizard fails if there is not a Form Library created. -> the warning still appears.

- Deactivated and reactivated the "Office SharePoint Server Enterprise Site Collection features" from the UI - the warning is still appearing

- Forced the deactivation and reactivation with STSADM:

· Open the command line

· Browse to the 12\BIN folder: C:\Program Files\Common Files\Microsoft Shared\Web Server Extensions\12\BIN

· To force the deactivation of the features use:

stsadm -o deactivatefeature -filename IPFSSiteFeatures\feature.xml -url %sitecollection_URL% -force

stsadm -o deactivatefeature -filename IPFSWebFeatures\feature.xml -url %sitecollection_URL% -force

· To force the reactivation of the features use:

stsadm -o activatefeature -filename IPFSSiteFeatures\feature.xml -url %sitecollection_URL% -force

stsadm -o activatefeature -filename IPFSWebFeatures\feature.xml -url %sitecollection_URL% -force

This solved the issue and the warning no longer appears when publishing an InfoPath form to the site on a MOSS Server.

Venga! Un saludo desde Andorra,

** crossposting desde el blog de Lluís Franco en geeks.ms **

Server Quest II A day in a geek’s life…

lfranco — Wed, 08 Apr 2009 16:52:41 GMT

Que pasada!

Me acaba de llegar un enlace, vale la pena darle una ojeada... No os quiero contar nada porque quiero que lo veáis con vuestros propios ojos :-)

Me recuerda a los viejos juegos MAME, jejeje…

Ah! Y buen finde largo (los que lo tengan).

Saludos!

** crossposting desde el blog de Lluís Franco en geeks.ms **

Google Chrome usa ClickOnce :-)

lfranco — Mon, 06 Apr 2009 11:02:00 GMT

Pues eso. Tal vez muchos de vosotros ya lo sabíais pero esta mañana me he quedado de piedra al comprobar que la instalación de Google Chrome se realiza mediante la tecnología ClickOnce de Microsoft. Curioso verdad? Para muestra un botón:

Si lo piensas es normal, ya que el código del producto para Windows no deja de ser una solución de Visual Studio 2005 (15 proyectos si no recuerdo mal), de modo que es relativamente normal que se hayan aprovechado de una tecnología tan *cojonuda* (y perdón por la expresión) com es ClickOnce para el despliegue de aplicaciones.

Lo que no deja de ser gracioso es que de momento Chrome no tenga versiones estables para Mac ni para Linux (de hecho según los mismos desarrolladores "Esta mas cerca del comienzo que del fin"), y la única versión que funciona más o menos bien esté desarrollada con la herramienta de desarrollo más popular de la competencia :-P

En fin, como dije antes… curioso, verdad?

** crossposting desde el blog de Lluís Franco en geeks.ms **

ClickOnce, actualizar una aplicación ‘on demand’

lfranco — Thu, 02 Apr 2009 15:47:00 GMT

Una de las grandes características disponibles a partir de VS2005 fue la tecnología ClickOnce, que permitía distribuir aplicaciones de forma asombrosamente sencilla. Hoy no nos vamos a dedicar a explicar con detalle esta tecnología (supongo que muchos de vosotros ya la estaréis utilizando), si no que nos vamos a centrar en extender su funcionalidad para comprobar por código si existen nuevas versiones publicadas, y en caso afirmativo actualizar la misma.

La verdad es que utilizar la API de ClickOnce está tirado, y nos permite hacer cosas tan chulas como esta:

El código para comprobar si existen actualizaciones es el siguiente:

private static void InstallUpdateSyncWithInfo()

    UpdateCheckInfo info = null;

    if (ApplicationDeployment.IsNetworkDeployed)

        ApplicationDeployment ad = ApplicationDeployment.CurrentDeployment;

try

            info = ad.CheckForDetailedUpdate();

        catch (DeploymentDownloadException dde)

            MessageBox.Show(String.Format(

                Properties.Settings.Default.CLICKONCE_CANT_DOWNLOAD_UPDATE,

                dde.Message, MessageBoxButtons.OK,

                MessageBoxIcon.Exclamation));

            return;

        catch (InvalidDeploymentException ide)

            MessageBox.Show(String.Format(

                Properties.Settings.Default.CLICKONCE_CORRUPT_DEPLOYMENT,

                ide.Message, MessageBoxButtons.OK,

                MessageBoxIcon.Exclamation));

            return;

        catch (InvalidOperationException ioe)

            MessageBox.Show(String.Format(

                Properties.Settings.Default.CLICKONCE_NO_CLICKONCE_DEPLOYMENT,

                ioe.Message, MessageBoxButtons.OK,

                MessageBoxIcon.Exclamation));

            return;

        if (info.UpdateAvailable)

            Boolean doUpdate = true;

            if (!info.IsUpdateRequired)

                DialogResult dr = MessageBox.Show(

                    string.Format(Properties.Settings.Default.CLICKONCE_UPDATE_AVAILABLE,

                    info.AvailableVersion.ToString()),

                    Application.ProductName, MessageBoxButtons.OKCancel,

                    MessageBoxIcon.Information);

                if (!(DialogResult.OK == dr))

                    doUpdate = false;

            else

                MessageBox.Show(

                    String.Format(Properties.Settings.Default.CLICKONCE_MANDATORY_UPDATE,

                    info.MinimumRequiredVersion.ToString(),

                    ApplicationDeployment.CurrentDeployment.CurrentVersion.ToString()),

                    Application.ProductName, MessageBoxButtons.OK,

                    MessageBoxIcon.Information);

            if (doUpdate)

try

                    ad.Update();

                    MessageBox.Show(Properties.Settings.Default.CLICKONCE_UPDATE_SUCCESSFULLY,

                        Application.ProductName, MessageBoxButtons.OK,

                        MessageBoxIcon.Information);

                    Application.Restart();

                catch (DeploymentDownloadException dde)

                    MessageBox.Show(String.Format(

                        Properties.Settings.Default.CLICKONCE_CANT_INSTALL_UPDATE,

                        dde.Message, MessageBoxButtons.OK,

                        MessageBoxIcon.Exclamation));

                    return;

        else

            MessageBox.Show(Properties.Settings.Default.CLICKONCE_NO_UPDATES_AVAILABLES,

                Application.ProductName, MessageBoxButtons.OK,

                MessageBoxIcon.Information);

Basta acompañar este código con unas constantes definidas en los settings de nuestra aplicación y voilá!

A continuación os muestro un ejemplo del fichero de settings por si alguno se lo quiere personalizar:

<?xml version='1.0' encoding='utf-8'?>

<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings"

  CurrentProfile="(Default)" GeneratedClassNamespace="TestClickOnceDeployment.Properties" GeneratedClassName="Settings">

  <Profiles />

  <Settings>

    <Setting Name="CLICKONCE_CANT_DOWNLOAD_UPDATE" Type="System.String" Scope="Application">

      <Value Profile="(Default)">

      La nueva versión de la aplicación no puede ser descargada en estos momentos.\n\

      Por favor, revise la connexión de red o pruébelo un poco más tarde. Error: {0}</Value>

    </Setting>

    <Setting Name="CLICKONCE_CORRUPT_DEPLOYMENT" Type="System.String" Scope="Application">

      <Value Profile="(Default)">

      No se puede verificar la nueva versión de la aplicación. La publicación ClickOnce está corrupta.

      Por favor, redistribuya de nuevo la aplicación i pruébelo un poco más tarde. Error: {0}</Value>

    </Setting>

    <Setting Name="CLICKONCE_NO_CLICKONCE_DEPLOYMENT" Type="System.String" Scope="Application">

      <Value Profile="(Default)">

      La aplicación no se puede actualizar. Parece ser que la publicación no es una aplicación ClickOnce válida. Error: {0}</Value>

    </Setting>

    <Setting Name="CLICKONCE_UPDATE_AVAILABLE" Type="System.String" Scope="Application">

      <Value Profile="(Default)">

      Se ha encontrado disponible una actualización. Desea actualitzar la aplicación a la versión '{0}'?</Value>

    </Setting>

    <Setting Name="CLICKONCE_MANDATORY_UPDATE" Type="System.String" Scope="Application">

      <Value Profile="(Default)">

      Esta aplicación ha detectado que la versión mínima de l'aplicació es la versión '{0}',

      i actualmente se está utilizando la versión '{1}'.

      A continuación la aplicación se actualitzará y reiniciará.</Value>

    </Setting>

    <Setting Name="CLICKONCE_UPDATE_SUCCESSFULLY" Type="System.String" Scope="Application">

      <Value Profile="(Default)">

      La aplicación se ha actualitzado correctamente, y a continuación se reiniciará.</Value>

    </Setting>

    <Setting Name="CLICKONCE_CANT_INSTALL_UPDATE" Type="System.String" Scope="Application">

      <Value Profile="(Default)">

      La nueva versión de la aplicación no se puede instalar en estos momentos.\n\n

      Por favor, revise la connexión de red o pruébelo un poco más tarde. Error: {0}</Value>

    </Setting>

    <Setting Name="CLICKONCE_NO_UPDATES_AVAILABLES" Type="System.String" Scope="Application">

      <Value Profile="(Default)">No se han encontrado actualitzacions disponibles de la aplicación.</Value>

    </Setting>

  </Settings>

</SettingsFile>

Y eso es todo… Un saludo desde Andorra!

** crossposting desde el blog de Lluís Franco en geeks.ms **

SharePoint 2007 + Outlook 2007: Guardar correos de forma masiva (VII)

lfranco — Fri, 20 Mar 2009 08:07:00 GMT

Entradas anteriores de la serie:

SharePoint 2007 + Outlook 2007: Guardar correos de forma masiva (I)

SharePoint 2007 + Outlook 2007: Guardar correos de forma masiva (II)

SharePoint 2007 + Outlook 2007: Guardar correos de forma masiva (III)

SharePoint 2007 + Outlook 2007: Guardar correos de forma masiva (IV)

SharePoint 2007 + Outlook 2007: Guardar correos de forma masiva (V)

SharePoint 2007 + Outlook 2007: Guardar correos de forma masiva (VI)

Han pasado unos días desde que publiqué la última entrada, y es que voy absolutamente desbordado de curro.

Pero como lo prometido es deuda, vamos a proseguir con el tema, ya quedan un par de temas por ver antes de concluir la serie:

Cómo ejecutar distintos threads y mostrar el progreso (Callbacks).

Cómo distribuir nuestro complemento, creando un archivo MSI (Windows Installer packages).

Además, os dije que en el último post publicaría el código fuente del proyecto… y varios de vosotros ya lo habéis reclamado con insistencia :-P

De modo que vamos a hacerlo al revés: Hoy publico el código fuente del proyecto, y mañana (espero) continuaré el resto de la serie. De este modo al menos ya tendreis el código para jugar con él, y poder machacarme a preguntas…

El proyecto incluye el código de ejemplo del Add-In y el proyecto de instalación, y lo podéis descargar desde este enlace de Skydrive:

http://cid-f3a970280830b5fe.skydrive.live.com/self.aspx/MSDN%20Samples/OutlookToMOSS/OutlookToMOSS.zip

Saludos desde Andorra,

** crossposting desde el blog de Lluís Franco en geeks.ms **

How To: Cómo activar un servicio de Windows

lfranco — Mon, 09 Mar 2009 16:58:11 GMT

O lo que es lo mismo, cómo cambiar el modo de inicio a un servicio de Windows.

Este post va a ser muy breve, y con un poco de suerte mañana os lo explico con más detalle :-D

El tema es que tenía que iniciar el servicio SQL Server Browser por código, cosa muy sencilla de realizar mediante la clase ServiceController. El problema es que este servicio viene deshabilitado ‘de fábrica‘ en las ediciones express, y al intentar iniciarlo da un error.

Para cambiar el modo de inicio existen dos formas (si alguien conoce una tercera, por favor que me lo diga :-P), la primera es cambiando un valor DWORD del servicio en el registro de Windows (Clave = “HKLM\System\CurrentControlSet\Services\ServiceName” valor = “Start”) y la otra es mediante WMI. La primera no se recomienda ya que no se asegura que en futuras versiones funcione, así que vamos a por la segunda:

public static void enableService(string serviceName, ServiceStartType startType)

    string path = "Win32_Service.Name='" + serviceName + "'";

    ManagementPath p = new ManagementPath(path);

    ManagementObject ManagementObj = new ManagementObject(p);

    object[] parameters = new object[1];

    parameters[0] = startType;

    ManagementObj.InvokeMethod("ChangeStartMode", parameters);

Siendo StartType una enumeración con loas siguientes valores:

public enum ServiceStartType

    Automatic = 2,

    Manual = 3,

    Disabled = 4

Eso es todo, mañana más...

Un saludo,

** crossposting desde el blog de Lluís Franco en geeks.ms **

SharePoint 2007 + Outlook 2007: Guardar correos de forma masiva (VI)

lfranco — Thu, 05 Mar 2009 14:57:00 GMT

Entradas anteriores de la serie:

SharePoint 2007 + Outlook 2007: Guardar correos de forma masiva (I)

SharePoint 2007 + Outlook 2007: Guardar correos de forma masiva (II)

SharePoint 2007 + Outlook 2007: Guardar correos de forma masiva (III)

SharePoint 2007 + Outlook 2007: Guardar correos de forma masiva (IV)

SharePoint 2007 + Outlook 2007: Guardar correos de forma masiva (V)

Ahora que parece que Bender está un poco más sobrio que de costumbre, prosigamos con la serie... que sabéis como se pone cuando no bebe.

Menú del día:

De primero: Cómo guardar un fichero en una biblioteca de documentos de SharePoint manteniendo el control de versiones.

De segundo: Cómo modificar los metadatos del fichero una vez subido a la biblioteca (From, To, Subject).

Postre: Pastel especial de la casa.

Pan, Vino y Café incluidos

El primero:

Es curioso, pero SharePoint en la versión actual no implementa “de serie” ningún mecanismo para subir documentos a una librería de documentos. Ahora que nos hemos quedado con la boca abierta, vamos a explicar algunos mecanismos para hacerlo por nuestra cuenta.

El bueno de mi tío Rodrigo hace un tiempo que publicó un post al respecto, en el cual se mostraba cómo subir ficheros a un SharePoint. Pero como él mismo decía, la pega estaba en que usando esta técnica no se disponía de historial de versiones. La alternativa era crearse un WebService propio, tal y como se explica en este artículo, aunque es una solución que no siempre se puede usar. Hoy veremos una tercera alternativa que permite hacerlo sin tener que recurrir a la creación de un WebService. La he probado en un servidor MOSS y en un par de WSS, uno local y el otro hospedado en un hosting en USA. Y en ambos funciona perfectamente, aunque en el segundo los tiempos se demoran un poco...

Describamos los elementos que necesitamos a continuación:

Para empezar vamos a crear una clase FileInfo para encapsular lo relativo al fichero que vamos a subir (nombre, propiedades, URI, y por supuesto los bytes):

public class FileInfo

    public string m_URL;

    public byte[] m_bytes;

    public Dictionary<string, object> m_properties;

    public ListInfo m_listInfo;

    public bool m_ensureFolders = true;

    private Uri m_uri;

    public bool HasProperties

get

            return m_properties != null && m_properties.Count > 0;

    public string RelativeFilePath

get

            return m_URL.Substring(m_URL.IndexOf(m_listInfo.m_rootFolder) + 1);

    public Uri URI

get

            if (m_uri == null) m_uri = new Uri(m_URL);

            return m_uri;

    public string LookupName

get

            if (m_listInfo != null && !string.IsNullOrEmpty(m_listInfo.m_listName))

                return m_listInfo.m_listName;

            return URI.LocalPath;

    public FileInfo(string url, byte[] bytes, Dictionary<string, object> properties)

        m_URL = url.Replace("%20", " ");

        m_bytes = bytes;

        m_properties = properties;

A continuación un método Upload con dos sobrecargas, que será el que invocaremos desde la ventana encargada de mostrar el progreso de la operación. Éste será el encargado de recibir la URL de destino, los bytes del fichero a subir (previamente debemos guardar el elemento de correo en un fichero o stream), las propiedades, y el elemento de correo para poder actualizar las columnas de metadatos. Este método Upload será el encargado de a su vez llamar al método TryToUpload, que realmente será el encargado de subir el fichero:

public bool Upload(string destinationUrl, byte[] bytes, Dictionary<string, object> properties, Outlook.MailItem item)

    return Upload(new FileInfo(destinationUrl, bytes, properties), item);

public bool Upload(FileInfo fileInfo, Outlook.MailItem item)

    if (fileInfo.HasProperties)

        fileInfo.m_listInfo = m_lists.Find(fileInfo);

    bool result = TryToUpload(fileInfo, item);

    if (!result && fileInfo.m_ensureFolders)

        string root = fileInfo.URI.AbsoluteUri.Replace(fileInfo.URI.AbsolutePath, "");

        for (int i = 0; i < fileInfo.URI.Segments.Length - 1; i++)

            root += fileInfo.URI.Segments;

            if (i > 1) CreateFolder(root);

        result = TryToUpload(fileInfo, item);

    return result;

Y para terminar, el método TryToUpload que se encarga de crear el objeto WebRequest necesario, crear el stream y actualizar los valores de las propiedades de los campos, para invocar finalmente el método UpdateListItems del servicio Web:

private bool TryToUpload(FileInfo fileInfo, Outlook.MailItem item)

try

        WebRequest request = WebRequest.Create(fileInfo.m_URL);

        request.Credentials = sharePointLists.Credentials;

        request.Method = "PUT";

        byte[] buffer = new byte[1024];

        using (Stream stream = request.GetRequestStream())

        using (MemoryStream ms = new MemoryStream(fileInfo.m_bytes))

            for (int i = ms.Read(buffer, 0, buffer.Length); i > 0; i = ms.Read(buffer, 0, buffer.Length))

                stream.Write(buffer, 0, i);

        WebResponse response = request.GetResponse();

        response.Close();

        if (fileInfo.HasProperties)

            StringBuilder sb = new StringBuilder();

            sb.Append("<Method ID='1' Cmd='Update'><Field Name='ID'/>");

            sb.AppendFormat("<Field Name='FileRef'>{0}</Field>", fileInfo.m_URL);

            foreach (KeyValuePair<string, object> property in fileInfo.m_properties)

                sb.AppendFormat("<Field Name='{0}'>{1}</Field>", property.Key, property.Value);

            updateMetadataColumns(fileInfo, item, sb);

            sb.Append("</Method>");

            System.Xml.XmlElement updates = (new System.Xml.XmlDocument()).CreateElement("Batch");

            updates.SetAttribute("OnError", "Continue");

            updates.SetAttribute("ListVersion", fileInfo.m_listInfo.m_version);

            updates.SetAttribute("PreCalc", "TRUE");

            updates.InnerXml = sb.ToString();

            sharePointLists.Url = fileInfo.m_listInfo.m_webUrl + "/_vti_bin/Lists.asmx";

            XmlNode updatesResponse = sharePointLists.UpdateListItems(fileInfo.m_listInfo.m_listName, updates);

            if (updatesResponse.FirstChild.FirstChild.InnerText != "0x00000000")

                throw new Exception("Could not update properties.");

        return true;

    catch (WebException ex)

        throw ex;

Lo juntamos todo, compilamos, probamos a subir algunos mensajes varias veces y voilá! Si observamos el control de versiones veremos lo siguiente:

El segundo:

Si hemos observado con atención el código del método TryToUpload seguramente hemos visto una llamada a un método updateMetaDataColumns, al cual se le pasa el StringBuilder que estamos construyendo, para que nos agregue los valores de los metadatos (cuya sintaxis que expresarse en XML según la ayuda del método UpdateListItems). El código es muy sencillo y básicamente lo que hace es comprobar si en la lista destino existen las columnas de metadatos, y en caso afirmativo modificar su valor:

private void updateMetadataColumns(FileInfo fileInfo, Outlook.MailItem item, StringBuilder sb)

    var cols = from c in SharePointExtensions.getListColumns(

               sharePointLists, fileInfo.m_listInfo.m_listName)

               where c.Hidden == false && c.Sealed == false && c.ReadOnly == false

               select c;

    Dictionary<string, SPColumnInfo> columns = cols.ToDictionary(c => c.Name);

    if (columns.ContainsKey(Properties.Settings.Default.COL_SUBJECT) && item != null)

        sb.AppendFormat("<Field Name='{0}'>{1}</Field>",

            Properties.Settings.Default.COL_SUBJECT, item.Subject);

    if (columns.ContainsKey(Properties.Settings.Default.COL_FROM) && item != null)

        sb.AppendFormat("<Field Name='{0}'>{1}</Field>",

            Properties.Settings.Default.COL_FROM, item.SenderName);

    if (columns.ContainsKey(Properties.Settings.Default.COL_TO) && item != null)

        sb.AppendFormat("<Field Name='{0}'>{1}</Field>",

            Properties.Settings.Default.COL_TO, item.To);

    if (columns.ContainsKey(Properties.Settings.Default.COL_CC) && item != null)

        sb.AppendFormat("<Field Name='{0}'>{1}</Field>",

            Properties.Settings.Default.COL_CC, item.CC);

    if (columns.ContainsKey(Properties.Settings.Default.COL_BCC) && item != null)

        sb.AppendFormat("<Field Name='{0}'>{1}</Field>",

            Properties.Settings.Default.COL_BCC, item.BCC);

    if (columns.ContainsKey(Properties.Settings.Default.COL_SIZE) && item != null)

        sb.AppendFormat("<Field Name='{0}'>{1}</Field>",

            Properties.Settings.Default.COL_SIZE, item.Size);

    if (columns.ContainsKey(Properties.Settings.Default.COL_SENT) && item != null)

        string dt = item.SentOn.ToString("yyyy-MM-ddTHH:mm:ssZ");

        sb.AppendFormat("<Field Name='{0}'>{1}</Field>",

            Properties.Settings.Default.COL_SENT, dt);

    if (columns.ContainsKey(Properties.Settings.Default.COL_IMPORTANCE) && item != null)

        string im = string.Empty;

        switch (item.Importance)

            case Microsoft.Office.Interop.Outlook.OlImportance.olImportanceHigh:

                im = Properties.Settings.Default.COL_IMPORTANCE_HIGH;

                break;

            case Microsoft.Office.Interop.Outlook.OlImportance.olImportanceLow:

                im = Properties.Settings.Default.COL_IMPORTANCE_LOW;

                break;

            case Microsoft.Office.Interop.Outlook.OlImportance.olImportanceNormal:

            default:

                im = Properties.Settings.Default.COL_IMPORTANCE_MEDIUM;

                break;

        sb.AppendFormat("<Field Name='{0}'>{1}</Field>",

            Properties.Settings.Default.COL_IMPORTANCE, im);

El postre:

Ingredientes :
125 gr. de chocolate
60 gr. de mantequilla
125 gr. de azúcar
3 huevos
60 gr. de maizena

Receta :
Fundir el chocolate con la mantequilla a fuego lento.
Separar las yemas y las claras.
Mezclar el azúcar con las yemas de los huevos.
Añadir la maicena y después el chocolate fundido.
Montar las claras de huevo a punto de nieve y añadirlas lentamente a la mezcla.
Verter la mezcla en un molde donde se ha extendido la mantequilla previamente.
Hornearlo entre 20 ó 25 minutos a 180º.

Para terminar:

En los próximos artículos veremos cómo realizar este proceso de subida de ficheros de forma asíncrona usando callbacks, para poder continuar trabajando con Outlook y mostrar el progreso en una barra. También para cerrar la serie, veremos los pasos que hay que hacer para construir el proyecto de instalación de nuestro Add-In, y así poder distribuirlo.

Nos vemos!

** crossposting desde el blog de Lluís Franco en geeks.ms **

SharePoint 2007 + Outlook 2007: Guardar correos de forma masiva (V)

lfranco — Tue, 03 Mar 2009 17:28:00 GMT

Entradas anteriores de la serie:

SharePoint 2007 + Outlook 2007: Guardar correos de forma masiva (I)

SharePoint 2007 + Outlook 2007: Guardar correos de forma masiva (II)

SharePoint 2007 + Outlook 2007: Guardar correos de forma masiva (III)

SharePoint 2007 + Outlook 2007: Guardar correos de forma masiva (IV)

Después de algunos días sin poder seguir con la serie porque han detenido a Bender hay que sacar adelante otros proyectos, volvemos a la carga con lo que promete ser la serie de artículos más larga que he publicado hasta ahora en este blog.

Antes de nada vamos a ponernos al día:

Que pretendemos?

Crear un add-in de Outlook que permita guardar nuestros correos en una librería de documentos de SharePoint (tanto MOSS como WSS).

Que necesitamos?

Cómo crear un complemento para Office (VSTO). visto
Cómo registrar acciones en los menús de la aplicación host (Outlook). visto
Cómo conectar con un servidor MOSS/WSS con diferentes credenciales de usuario (System.Net.NetworkCredential) visto
Cómo acceder a los sitios y listas de un site de MOSS/WSS (servicios Web de SharePoint). visto
Cómo interpretar la información XML devuelta por los servicios (LINQ to XML). visto
Cómo extender el modelo de objetos de SharePoint para acceder los valores devueltos por los servicios Web.
Cómo crear las columnas necesarias en una lista para guardar los metadatos del elementos de correo (From, To, Subject).
Cómo guardar un fichero en una biblioteca de documentos de SharePoint con control de versiones (DocLibHelper).
Cómo ejecutar distintos threads y mostrar el progreso (Callbacks).
Cómo distribuir nuestro complemento, creando un archivo MSI (Windows Installer packages).

Que vamos a ver hoy?

En este post vamos a centrarnos en cómo obtener datos de los servicios Web de SharePoint. En nuestro caso necesitamos obtener las colecciones de sitios, las librerías de cada uno de los sitios, y las carpetas de cada librería para mostrarlos en una ventana que permita al usuario seleccionar la ubicación en la que desea guardar los elementos de coreo:

Del mismo modo, vamos a necesitar obtener las columnas de la librería seleccionada, para comprobar si ya existen las columnas para almacenar los metadatos de los elementos de correo, y en caso contrario proceder a crearlas (esto va a ir muy bien para posteriormente poder clasificar los elementos).

Extendiendo el modelo de objetos de SharePoint

En el post anterior ya vimos que habíamos declarado algunas clases de apoyo (como la clase ‘SPSiteInfo’) para que nuestros métodos (como el método ‘getSiteSubSites’ que también vimos en el anterior post) pudiesen devolver colecciones genéricas de éestos tipos de datos, lo cual es mucho más manejable que pelearnos con el XML que devuelven los servicios Web de SharePoint.

Los métodos que vamos a crear son:

getSiteSubSites: Devuelve una lista genérica de objetos ‘SPSiteInfo’, a partir de un servicio Web websProxy.Webs
getSiteLists: Devuelve una lista genérica de objetos ‘SPListInfo’, a partir de un servicio Web listsProxy.Lists
getListFolders: Devuelve una lista genérica de objetos ‘SPFolderInfo’, a partir de un servicio Web listsProxy.Lists
getListColumns: Devuelve una lista genérica de objetos ‘SPFolderInfo’, a partir de un servicio Web listsProxy.Lists y de un listID (GUID)
createMetadataColumns: Crea las columnas de metadatos definidas en los settings del add-in en una lista, a partir de un servicio Web listsProxy.Lists y de un listID (GUID).

Las clases de apoyo son:

public class SPSiteInfo

    public string Title { get; set; }

    public string URL { get; set; }

    public SPSiteInfo()

//

    public SPSiteInfo(string title, string url)

        Title = title;

        URL = url;

public class SPListInfo

    public Guid ID { get; set; }

    public string Title { get; set; }

    public string URL { get; set; }

    public SPListInfo()

//

    public SPListInfo(Guid id, string title, string url)

        ID = id;

        Title = title;

        URL = url;

public class SPFolderInfo

    public string Title { get; set; }

    public string URL { get; set; }

    public SPFolderInfo()

//

    public SPFolderInfo(string title, string url)

        Title = title;

        URL = url;

public class SPColumnInfo

    public string ID { get; set; }

    public string Type { get; set; }

    public string DisplayName { get; set; }

    public string Name { get; set; }

    public bool Hidden { get; set; }

    public bool Sealed { get; set; }

    public bool ReadOnly { get; set; }

    public SPColumnInfo()

//

    public SPColumnInfo(string id, string type,

        string displayName, string name, bool hidden,

        bool issealed, bool isreadonly)

        ID = id;

        Type = type;

        DisplayName = displayName;

        Name = name;

        Hidden = hidden;

        Sealed = issealed;

        ReadOnly = isreadonly;

Y el código de los métodos será el siguiente:

public class SharePointExtensions

    public static List<SPSiteInfo> getSiteSubSites(websProxy.Webs sharePointWebs)

try

            XmlNode websResult = sharePointWebs.GetWebCollection();

            XDocument results = XDocument.Parse(websResult.OuterXml);

            XName name = XName.Get("Web", "http://schemas.microsoft.com/sharepoint/soap/");

            var webs = from item in results.Descendants(name)

                       select new SPSiteInfo

                           item.Attribute("Title").Value,

                           item.Attribute("Url").Value

);

            return webs.ToList();

        catch (Exception ex)

            throw ex;

    public static List<SPListInfo> getSiteLists(listsProxy.Lists sharePointLists)

try

            XmlNode listsResult = sharePointLists.GetListCollection();

            XDocument results = XDocument.Parse(listsResult.OuterXml);

            XName name = XName.Get("List", "http://schemas.microsoft.com/sharepoint/soap/");

            var lists = from item in results.Descendants(name)

                        where item.Attribute("ServerTemplate").Value.ToString() ==

                            Properties.Settings.Default.SERVER_TEMPLATE

                        select new SPListInfo

                            new Guid(item.Attribute("ID").Value),

                            item.Attribute("Title").Value,

                            item.Attribute("DefaultViewUrl").Value

);

            return lists.ToList();

        catch (Exception ex)

            throw ex;

    public static List<SPFolderInfo> getListFolders(listsProxy.Lists sharePointLists,

        string listName, string listText, string folderURL)

try

            XmlDocument xmlDoc = new System.Xml.XmlDocument();

            XmlNode ndQuery = xmlDoc.CreateNode(XmlNodeType.Element, "Query", "");

            XmlNode ndViewFields =

              xmlDoc.CreateNode(XmlNodeType.Element, "ViewFields", "");

            XmlNode ndQueryOptions = null;

            if (listName != folderURL)

                ndQueryOptions = xmlDoc.CreateNode(

                    XmlNodeType.Element, "QueryOptions", "");

                ndQueryOptions.InnerXml = string.Format(

                    "<Folder>{0}/{1}</Folder>", listName, folderURL);

            XName name = XName.Get("data", "urn:schemas-microsoft-com:rowset");

            XmlNode ndListItems =

                    sharePointLists.GetListItems(listText, null, ndQuery,

                    ndViewFields, null, ndQueryOptions, null);

            XDocument results = XDocument.Parse(ndListItems.OuterXml);

            var folders = from item in results.Descendants(name).Elements()

                          where item.Attribute("ows_ContentType").Value == "Carpeta"

                          select new SPFolderInfo

                             item.Attribute("ows_BaseName").Value,

                             item.Attribute("ows_ServerUrl").Value

);

            return folders.ToList();

        catch (Exception ex)

            throw ex;

    public static List<SPColumnInfo> getListColumns(listsProxy.Lists sharePointLists, string siteID)

try

            List<SPColumnInfo> columns =new List<SPColumnInfo>();

            XmlNode listsResult = sharePointLists.GetList(siteID);

            XDocument results = XDocument.Parse(listsResult.OuterXml);

            XName name = XName.Get("Field", "http://schemas.microsoft.com/sharepoint/soap/");

            var lists = from item in results.Descendants(name)

                        select item;

            foreach (var item in lists.ToList())

                XAttribute aID = item.Attribute("ID");

                XAttribute aType = item.Attribute("Type");

                XAttribute aDisplayName = item.Attribute("DisplayName");

                XAttribute aName = item.Attribute("Name");

                XAttribute aHidden = item.Attribute("Hidden");

                XAttribute aSealed = item.Attribute("Sealed");

                XAttribute aReadOnly = item.Attribute("ReadOnly");

                if (aID != null && aType != null && aDisplayName != null &&

                    aName != null)

                    bool ishidden = false;

                    bool issealed = false;

                    bool isreadonly = false;

                    if (aHidden != null && aHidden.Value.ToString() == "TRUE") ishidden = true;

                    if (aSealed != null && aSealed.Value.ToString() == "TRUE") issealed = true;

                    if (aReadOnly != null && aReadOnly.Value.ToString() == "TRUE") isreadonly = true;

                    columns.Add(new SPColumnInfo(

                        aID.Value.ToString(),

                        aType.Value.ToString(),

                        aDisplayName.Value.ToString(),

                        aName.Value.ToString(),

                        ishidden, issealed, isreadonly));

            return columns;

        catch (Exception ex)

            throw ex;

    public static void createMetadataColumns(listsProxy.Lists sharePointLists, string listID)

        int createColumnsCount = 0;

        if (!Properties.Settings.Default.OPTION_CREATE_METADATA_COLUMNS) return;

        var cols = from c in SharePointExtensions.getListColumns(

                   sharePointLists, listID)

                   where c.Hidden == false && c.Sealed == false && c.ReadOnly == false

                   select c;

        Dictionary<string, SPColumnInfo> columns = cols.ToDictionary(c => c.Name);

        string newFieldsList = "";

        if (!columns.ContainsKey(Properties.Settings.Default.COL_SUBJECT))

            string subjectfield =

                @"<Method ID='1'><Field Type='Text' DisplayName='{0}' MaxLength='255'/></Method>";

            newFieldsList += string.Format(subjectfield, Properties.Settings.Default.COL_SUBJECT);

            createColumnsCount++;

        if (!columns.ContainsKey(Properties.Settings.Default.COL_TO))

            string subjectfield =

                @"<Method ID='2'><Field Type='Text' DisplayName='{0}' MaxLength='255'/></Method>";

            newFieldsList += string.Format(subjectfield, Properties.Settings.Default.COL_TO);

            createColumnsCount++;

        if (!columns.ContainsKey(Properties.Settings.Default.COL_CC))

            string subjectfield =

                @"<Method ID='3'><Field Type='Text' DisplayName='{0}' MaxLength='255'/></Method>";

            newFieldsList += string.Format(subjectfield, Properties.Settings.Default.COL_CC);

            createColumnsCount++;

        if (!columns.ContainsKey(Properties.Settings.Default.COL_BCC))

            string subjectfield =

                @"<Method ID='4'><Field Type='Text' DisplayName='{0}' MaxLength='255'/></Method>";

            newFieldsList += string.Format(subjectfield, Properties.Settings.Default.COL_BCC);

            createColumnsCount++;

        if (!columns.ContainsKey(Properties.Settings.Default.COL_FROM))

            string subjectfield =

                @"<Method ID='5'><Field Type='Text' DisplayName='{0}' MaxLength='255'/></Method>";

            newFieldsList += string.Format(subjectfield, Properties.Settings.Default.COL_FROM);

            createColumnsCount++;

        if (!columns.ContainsKey(Properties.Settings.Default.COL_SENT))

            string subjectfield =

                @"<Method ID='6'><Field Type='DateTime' DateOnly='FALSE' DisplayName='{0}'/></Method>";

            newFieldsList += string.Format(subjectfield, Properties.Settings.Default.COL_SENT);

            createColumnsCount++;

        if (!columns.ContainsKey(Properties.Settings.Default.COL_SIZE))

            string subjectfield =

                @"<Method ID='7'><Field Type='Number' DisplayName='{0}'/></Method>";

            newFieldsList += string.Format(subjectfield, Properties.Settings.Default.COL_SIZE);

            createColumnsCount++;

        if (!columns.ContainsKey(Properties.Settings.Default.COL_IMPORTANCE))

            string subjectfield =

                @"<Method ID='8'><Field Type='Choice' DisplayName='{0}'>;

                  <Default>{1}</Default>

                  <CHOICES>

                    <CHOICE>{2}</CHOICE>

                    <CHOICE>{3}</CHOICE>

                    <CHOICE>{4}</CHOICE>

                  </CHOICES>

                </Field></Method>"

            newFieldsList += string.Format(subjectfield,

                Properties.Settings.Default.COL_IMPORTANCE,

                Properties.Settings.Default.COL_IMPORTANCE_MEDIUM,

                Properties.Settings.Default.COL_IMPORTANCE_HIGH,

                Properties.Settings.Default.COL_IMPORTANCE_MEDIUM,

                Properties.Settings.Default.COL_IMPORTANCE_LOW);

            createColumnsCount++;

        if (createColumnsCount > 0)

            XmlNode ndList = sharePointLists.GetList(listID);

            XmlNode ndVersion = ndList.Attributes["Version"];

            XmlDocument xmlDoc = new System.Xml.XmlDocument();

            XmlNode ndNewFields = xmlDoc.CreateNode(XmlNodeType.Element, "Fields", "");

            ndNewFields.InnerXml = newFieldsList;

try

                XmlNode ndReturn =

                   sharePointLists.UpdateList(listID,

                   null, ndNewFields, null, null,

                   ndVersion.Value);

            catch (Exception ex)

                throw ex;

Y con esto ya estamos en disposición de mostrar un cuadro de diálogo al usuario, para que seleccione la ubicación en el servidor de SharePoint dónde quiere guardar los elementos de correo.

En el próximo post veremos cómo guardar los elementos de corro en la ubicación seleccionada, creando las columnas de metadatos (si así lo hemos definido), y actualizando el valor de éstas columnas para guardar los valores de los campos de correo (Asunto, De, Para, Fecha, Tamaño, etc.).

Os recuerdo que al terminar la serie publicaré la solución con el código completo, por si a alguien le sirve.

Espero no demorarme tanto en escribir el próximo post!

Nos vemos, un saludo desde Andorra!

** crossposting desde el blog de Lluís Franco en geeks.ms **

Good bye Pepe. Hasta siempre…

lfranco — Mon, 02 Mar 2009 09:51:00 GMT

El gran Pepe Rubianes nos ha dejado...

Humorista zafio y mordaz como pocos, pero con un sentido del humor y de la improvisación que muchos querrían tener. Tuve el placer de verlo en directo en varias ocasiones, y puedo decir que es de esos tipos que no dejan indiferente a nadie. Mucha gente no podía verlo ni en pintura (en mi opinión peor para ellos), pero para mucha otra gente ha sido una figura de referencia dentro del humor español de los últimos años.

De hecho esta mañana en la máquina de café del trabajo comentábamos algún que otro diálogo de sus funciones mientras nos descojonábamos de risa, lo cual creo que es el mejor homenaje que se le puede hacer a un cómico. Juer, que no lleves ni un día muerto y la gente se esté partiendo el culo de risa con alguna de tus obras es algo que debe haberlo alegrado un poco, aunque conociendo a Pepe seguro que debe estar buscando un bar en el cielo. Un lugar que a buen seguro, a partir de hoy será un poco más divertido.

Hasta siempre Pepe!

PD – Que cosas tienen estos tiempos! Fíjate que ya se ha creado un grupo en Facebook para su homenaje...

** crossposting desde el blog de Lluís Franco en geeks.ms **

LINQ to SQL (SQL compaq también existe!)

lfranco — Tue, 24 Feb 2009 12:58:00 GMT

Esta mañana mi colega de penurias Toni Sala me preguntaba acerca de las posibilidades de usar LINQ to SQL con bases de datos SQL Compaq. Efectivamente, se puede hacer, es algo que probé en su momento y no había utilizado más. Sin embargo, lo que si que recordaba era que no es tan evidente como con sus hermanos mayores.

Bueno, al lío. Para este ejemplo vamos a usar la BD de ejemplo Northwind.sdf que instala Visual Studio 2008 (en mi caso la tengo ubicada en ‘C:\Archivos de programa\Microsoft SQL Server Compact Edition\v3.5\Samples’).

Una vez creado el proyecto de ejemplo (en mi caso lo llamaré ‘SqlCompaqLINQ’), creamos una carpeta ‘Data’ dentro de nuestro proyecto y agregamos la BD a nuestro proyecto mediante ‘Project/Add existing Item’:

Hasta aquí todo normal, pero la diferencia de SQlCompaq respecto a sus hermanos mayores está en que si ahora creamos un DataContext e intentamos arrastrar una tabla sobre él, aparecerá un mensaje de error un poco descorazonador:

No pasa nada, para estos casos podemos ir directamente a la herramienta SqlMetal (ya sabéis lo del poder del metal :-P), y generar el correspondiente fichero DBML mediante la línea de comandos. Para ello abrimos la consola de Visual Studio y ejecutamos el siguiente comando (desde nuestra carpeta ‘Data’):

SqlMetal.exe Northwind.sdf /dbml:NorthwindCE.dbml

Esto generará el diseñador con las clases correspondientes a las tablas de la BD de SQL Compaq, que a continuación agegaremos a nuestro proyecto también mediante ‘Project/Add existing Item’:

Ahora basta con crear una instancia del diseñador, generar nuestra instrucción LINQ to SQL y ¡a jugar!:

using SqlCompaqLINQ.Data;

...

string path = "Data Source=|DataDirectory|\\Data\\Northwind.sdf";

using(Northwind dc = new Northwind(path))

    var customers = from c in dc.Customers

                    orderby c.CompanyName

                    select c;

    listBox1.DataSource = customers.ToList();

    listBox1.DisplayMember = "CompanyName";

    listBox1.ValueMember = "CustomerID";

Un saludo desde Andorra,

** crossposting desde el blog de Lluís Franco en geeks.ms **

SR-71 Blackbird, un sueño hecho realidad

lfranco — Thu, 19 Feb 2009 12:00:00 GMT

Recuerdo que cuando tenía unos 10 añitos, quería ser piloto de cazas. Me pasaba tardes enteras mirando colecciones de cromos, y me compraba todas las revistas de aviones que me permitía mi escasa asignación semanal. Y soñaba, como sueñan todos los niños en cumplir algún día mis sueños...

De entre todos los aviones habidos y por haber, había uno que era mi favorito: El Lockheed SR-71Blackbird. Era precioso, muy avanzado para su tiempo, y su diseño era genial, simplemente una obra de arte. Más bien parecía una nave espacial antes que un avión, y eso para alguien que se crió con Star-Wars era toda una tentación.

En fin, a la vista está que mi sueño se quedó en eso... un sueño. Pero da igual, estoy seguro que muchos de nosotros tenemos algún sueño que no hemos podido cumplir. Aunque esa es otra historia, tampoco puedo quejarme ya que la vida me ha tratado bien.

Sin embargo, esta mañana mientras estaba buscando unas viejas fotos, me he topado con una serie de fotos que me han hecho recordar un momento que para mí fue muy especial. Fue en 2005, en el que fue mi primer MVP Summit.

Después de tres días de conferencias, sesiones, eventos, comidas y alguna salida nocturna por las calles de Seattle, unos cuantos de nosotros decidimos escaparnos al mueso de la Boeing. Era una pequeña excursión en la que aprovecharíamos para ir a comprar a algún centro comercial y yo aprovecharía para poder ver algún avión.

Pero allí, para mi sorpresa me encontré con que en mitad de un hangar enorme había un SR-71. No os cuento lo que fue poder verlo y tocarlo (aunque estaba prohibido :-P). Pude observar los motores con todo detalle, subir en una réplica de la cabina, y pasearme por debajo como en su día hicieron Clint Eastwood y Tommy Lee Jones en Space Comwoys. De esa película recuerdo una frase que dice que “el Blackbird cuando está posado en tierra es como un ladrillo, feo y hasta gotea combustible, pero que cuando se pone a Mach 3 sus juntas se cierran, todo encaja perfectamente y se convierte en una máquina perfecta”.

En fin, fue una sensación muy especial... Casi llego a considerar cumplido mi sueño.

Hablando de sueños. Recuerdas alguno de tus sueños de niño que no hayas podido cumplir?

Un saludo desde Andorra,

** crossposting desde el blog de Lluís Franco en geeks.ms **